見出し画像

第38回 VBA会 青と緑のVBAer

登壇者:青と緑のVBAer
日時 :2022年4月16日 20時~
テーマ:もうファイル探しでイライラしない!
    フォルダ構成を無視して高速検索するアドイン


(そんな恐ろしい事故が!!!(@@)


(事務?ときどき開発・・・って所謂スーパー事務員やないか!
Qiitaはこちら


リストアップは時間がかかるので昼休みに実施しておく。
抽出と表示、開くコピーは一瞬で終わる。

やれることは大きく4つ
1:ファイルの検索
2:FileList更新
3:FileList登録・追加・削除
4:FileListリスト表示





ここから実演 コード解説

(ローカルとは言え、1.9秒は速いな。
 ちゅんさんのコマンドプロンプト方式を採用しているって!
VBAでファイルリストを高速に取得する関数を自作する part1 - えくせるちゅんちゅん (excel-chunchun.com)

ダブルクリックでファイルを開ける

セルを選択すると、それを検索ワードとして検索実施

検索してリスト表示するとシートに検索ファイルパスが表示される

ユーザーフォームの画面の色変更もすぐにできちゃう。


アドインファイルそのものを操作している

ここからコードの説明

Selection.Cells  で飛び飛びセルの巡回ができる。

引数変数の型はしっかり定義するのがオススメ

(キー操作にも対応してるのね

アドインを有効化・解除も1行でできる。

イベントの共有化も使ってます


アドインは拡張子をxlamにするだけ。




おまけ
全フォームコントロールに着色をする




For each e in Selection.Cells  のCellは必要か?・・の議論。
と言ってたら和風スパげティ先生 参戦!

やっぱりExcelの神髄先生のブログ最強!

RangeオブジェクトのFor EachとAreasについて|VBA技術解説 (excel-ubara.com)

本日説明のアドインファイル


この記事が気に入ったらサポートをしてみませんか?