![見出し画像](https://assets.st-note.com/production/uploads/images/76577036/rectangle_large_type_2_149b3022af49f258d2b89c3eba51ce51.png?width=1200)
第38回 VBA会 青と緑のVBAer
登壇者:青と緑のVBAer
日時 :2022年4月16日 20時~
テーマ:もうファイル探しでイライラしない!
フォルダ構成を無視して高速検索するアドイン
![](https://assets.st-note.com/img/1650106191094-sXPDXMMJLc.png)
![](https://assets.st-note.com/img/1650107249822-mZqIxzQ17n.png?width=1200)
(そんな恐ろしい事故が!!!(@@)
![](https://assets.st-note.com/img/1650106544704-wicD9zteMd.png?width=1200)
(事務?ときどき開発・・・って所謂スーパー事務員やないか!
Qiitaはこちら
![](https://assets.st-note.com/img/1650107332237-JvEYn3JFUN.png?width=1200)
![](https://assets.st-note.com/img/1650106549077-5HJg5R85tm.png?width=1200)
リストアップは時間がかかるので昼休みに実施しておく。
抽出と表示、開くコピーは一瞬で終わる。
やれることは大きく4つ
1:ファイルの検索
2:FileList更新
3:FileList登録・追加・削除
4:FileListリスト表示
![](https://assets.st-note.com/img/1650107524694-Ueu1yfMget.png)
![](https://assets.st-note.com/img/1650107647687-PGtleUEOl9.png?width=1200)
![](https://assets.st-note.com/img/1650107514899-glHzaoeYoX.png?width=1200)
![](https://assets.st-note.com/img/1650106763830-FkydRLeuKE.png?width=1200)
![](https://assets.st-note.com/img/1650106549803-dYBCKHWBzH.png?width=1200)
![](https://assets.st-note.com/img/1650106750226-LLanf4bKoE.png?width=1200)
![](https://assets.st-note.com/img/1650106550109-TLC00c4q5q.png?width=1200)
ここから実演 コード解説
![](https://assets.st-note.com/img/1650107969055-rs6bz6HMTx.png?width=1200)
![](https://assets.st-note.com/img/1650108027035-naCluQ6T8K.png)
(ローカルとは言え、1.9秒は速いな。
ちゅんさんのコマンドプロンプト方式を採用しているって!
VBAでファイルリストを高速に取得する関数を自作する part1 - えくせるちゅんちゅん (excel-chunchun.com)
![](https://assets.st-note.com/img/1650108036659-8YyxCw6h1A.png?width=1200)
ダブルクリックでファイルを開ける
![](https://assets.st-note.com/img/1650108050505-scZh4dduod.png?width=1200)
![](https://assets.st-note.com/img/1650108059920-PTFZXIy4iJ.png?width=1200)
![](https://assets.st-note.com/img/1650108106676-HyZXmie9OX.png)
![](https://assets.st-note.com/img/1650108111311-yc1CYVCy3k.png)
セルを選択すると、それを検索ワードとして検索実施
![](https://assets.st-note.com/img/1650108239570-vUAhePz2WY.png?width=1200)
検索してリスト表示するとシートに検索ファイルパスが表示される
![](https://assets.st-note.com/img/1650108288802-rkGmHXDqb0.png?width=1200)
ユーザーフォームの画面の色変更もすぐにできちゃう。
![](https://assets.st-note.com/img/1650108307167-qTxLuOGj5g.png?width=1200)
![](https://assets.st-note.com/img/1650108393095-0heupIS1SB.png?width=1200)
![](https://assets.st-note.com/img/1650108312929-9HRiJjHL3Y.png?width=1200)
アドインファイルそのものを操作している
![](https://assets.st-note.com/img/1650108349590-x1hSLsmNrg.png)
ここからコードの説明
![](https://assets.st-note.com/img/1650108433697-etCD19Lhcx.png?width=1200)
![](https://assets.st-note.com/img/1650108446981-8dDqgy0wVO.png?width=1200)
![](https://assets.st-note.com/img/1650108517399-80DKiCWIME.png)
![](https://assets.st-note.com/img/1650108699424-bhXnLpXT75.png)
![](https://assets.st-note.com/img/1650108732843-pk5MGCFFQ2.png)
![](https://assets.st-note.com/img/1650108827290-q77cZDj8xX.png?width=1200)
![](https://assets.st-note.com/img/1650108957000-WwEb33aDcQ.png)
![](https://assets.st-note.com/img/1650108965459-XqOnbm62sV.png?width=1200)
Selection.Cells で飛び飛びセルの巡回ができる。
![](https://assets.st-note.com/img/1650108995646-LCnf36RmgC.png?width=1200)
引数変数の型はしっかり定義するのがオススメ
![](https://assets.st-note.com/img/1650109078429-dQWVGsDbIY.png?width=1200)
![](https://assets.st-note.com/img/1650109117170-HEUjiqIINl.png?width=1200)
![](https://assets.st-note.com/img/1650109204526-88VUwxQ8lS.png?width=1200)
![](https://assets.st-note.com/img/1650109216849-LQ2Z81ilfM.png?width=1200)
![](https://assets.st-note.com/img/1650109319633-9yhc1BJBrf.png?width=1200)
(キー操作にも対応してるのね
![](https://assets.st-note.com/img/1650109657019-e7iZXAYTOJ.png?width=1200)
アドインを有効化・解除も1行でできる。
![](https://assets.st-note.com/img/1650109855468-rpDmKMOxzX.png)
![](https://assets.st-note.com/img/1650109860752-rgc1S19mH5.png)
イベントの共有化も使ってます
![](https://assets.st-note.com/img/1650106550191-xy8gT8uGhU.png?width=1200)
![](https://assets.st-note.com/img/1650106549887-xgvtMC3Nii.png?width=1200)
アドインは拡張子をxlamにするだけ。
![](https://assets.st-note.com/img/1650106550423-v5iDU1DW8V.png?width=1200)
![](https://assets.st-note.com/img/1650110282576-IlVObKDkgs.png)
![](https://assets.st-note.com/img/1650110334358-q74NSmlxmK.png)
![](https://assets.st-note.com/img/1650110327549-T7bLXdYg6h.png)
![](https://assets.st-note.com/img/1650106550289-CwkuEMAnYZ.png?width=1200)
![](https://assets.st-note.com/img/1650106733995-bvzxqLfM92.png?width=1200)
おまけ
全フォームコントロールに着色をする
![](https://assets.st-note.com/img/1650110928077-Ttv8ytMrvM.png?width=1200)
![](https://assets.st-note.com/img/1650111156913-QLb1f7HAi5.png?width=1200)
![](https://assets.st-note.com/img/1650106550592-S4EV5f0wwA.png?width=1200)
![](https://assets.st-note.com/img/1650110488527-p8UnAxZ3Th.png)
For each e in Selection.Cells のCellは必要か?・・の議論。
と言ってたら和風スパげティ先生 参戦!
![](https://assets.st-note.com/img/1650112976560-k2sTWXkBjk.png?width=1200)
やっぱりExcelの神髄先生のブログ最強!
RangeオブジェクトのFor EachとAreasについて|VBA技術解説 (excel-ubara.com)
本日説明のアドインファイル
この記事が気に入ったらサポートをしてみませんか?