Excel
June 17, 2025
どうやらOfficeの64bit版がインストールされた模様。
それでVBAで使われているProgressBarコントロールが64bit版ではサポートされてないとか、なんとか。
マジか？プログレスバーって使われてないの？マイナーなの？
▲ プログレスバーがエラーで使えない！
▲ Office 64bit版ではProgressBar Controlが使えない
という事で調査開始。
いつサポート切られるかわからん、自作しろ。だって。
下の所にあるStatusバーに『■■□□□□』四角を並べてバーっぽく表示するか。
それ用のFormを作るか。
簡単で手っ取り早いのは前者。
ちょっと見た目重視なら後者。かな。
▲ ステータスバーに四角の文字をバー代わりに
削除してほっとこうかと思ったけど、今後仕事で使っているVBA類が次々にエラーになる事を考えると対策は練っておこうという事で作ってみた。
では、作り方。
作るのがメンドウな方は下記アドレスからモジュールをダウンロードしてインポートしてください。
ダウンロードはコチラから
▲ フォームを作成
続きを読むまずForm（frmProgressBar）を作成。
Frame（fraPBar）を貼り付ける。
Captionを削除。
SpecialEffectを2-fmSpecialEffectSunkenにする。
Widthを200にする。
Label（lblPBar）をフレームの上に貼り付ける。
Captionを削除。
Widthを200にする。（フレームとサイズをあわせる）
BackColorを好きな色に変更。
▲ フォームを作成
モジュール（mdlProgressBarControl）を追加。
下記コードを貼り付ける。
February 06, 2022
それはOutlook.Applicationを使っていたのでOutlook専用のモノ。
で、Thunderbirdをお試しで使っていたらこのツールが使えない事に気付く。
あれ？既定のメールアプリに対しては使えない？ググってもOutlook用のサンプルばかり。
と言う事で既定のメールアプリ用のコードを書いてみました。
方法としてはExcel関数のHyperlinkをVBAで呼んでHTMLで使用されているmailtoを使う。
続きを読むJune 30, 2021
ダウンロードはコチラから ↓
プログラムのテスト結果のテキストファイルを比較するのにDiffツールを使う。
普段使っているのはWinMergeっていうソフト。
出力結果のテキストを吸わして修正前・後を比較する。
出力ファイルがCSVファイルの場合はどの項目なの？って事がよくある。
Excelで開き直したりして。
じゃぁExcel Vbaでコード書いてセルを比較するツールを作ってみる。
が、しかし！WinMergeの最新版だとCSVファイルを読むとテーブルモードになってセルの比較が出来ると後で知る事に。ショック（涙）。
続きを読む
April 19, 2020
どういう事かと言うと、
大量のデータをExcel VBAを使って読んだり書いたり処理させると、何十分とかExcelがまったく使えなくなるワケです。Excelがプログラムを走らせてるので。
その間仕事が滞るのです。ただでさえクソ遅いPCなのに。別々で動いてくれよ。と。
調べたらありました、方法が。
どうやらExcel 2010あたりから1つのプロセスで動くようになったらしく、いくつか手順があったけど僕の環境では以下の方法で行けました。
ちなみに環境はWindows10とExcel 2013です。
続きを読む
July 07, 2017
Windows標準のメモ帳ではまったく歯が立ちません。有名なテキストエディターだと結構読めたりもしますが、それでも大きすぎるとダメな場合も。
そんな時の為にExcelマクロを作ってみました。
テキストファイルを指定し、読み出したい行だけを抽出します。
続きを読むNovember 14, 2008
また、しょーもないオレしか使わんようなツールを作ってもうた。とりあえず載せてみる。ひょっとする誰か使うかもしれんし、外にいる時に「あぁ、あのツールのコードが欲しい」ってことになったらいつでも落とせるし。（時々あるんよね）
作ったのはテキスト分割ツールだ。
機能的には
テキストファイルを読み込んで指定した（だいたいの）文字数で分割して、別のテキストファイルを作ってくれるというもの。
何に使うの？って感じよね。たぶん。
何に使ってるのかと言うと、最近未読ニュースが1000件以上たまってる。大したことのないニュースならサラっと目を通すくらいだが、ちょっと長めでジックリ読みたい記事やレビューの時に記事を携帯にメールして空いた時間に読んでいる。電車待ちの時とかに。
続きを読む
