あなたはPCフォルダ内のファイル検索を、もっとやりやすくしたいと思ったことはありませんか？
Windows標準機能の右上の検索窓を使うと、検索は速いし、文書の中身を見てくれたりして、とても便利です。
一方で、条件を変えて検索したときなどは、前回の結果を保存したり、できないのが不便でもあります。
また、ヒットしたフォルダを開くと、前画面に戻ったときに、再度検索機能が動くので、時間がかかるのも不便といえば不便です。
エクセルVBAを使えば、検索結果をリスト表示するので保存できるし、リストからヒットしたファイルやフォルダも開けて便利です。
今回は「Excel VBAで簡単！フォルダ内ファイルを部分一致検索する仕組みを作る方法」を紹介します。
Excel VBAで簡単！フォルダ内ファイルを部分一致検索する仕組みを作る方法
Excel VBAで簡単！フォルダ内ファイルを部分一致検索する仕組みを作る方法です。
下の画像のように、A2セルに検索したい項目、B2セルに検索したいフォルダ、A5・B5セル以下に検索結果が出るようにします。
A5セル以下の結果をダブルクリックすると、ファイルが開くようになります。
１．alt + F11 を同時押し →ThisWorkbookをダブルクリック
alt + F11を同時押しし、ThisWorkbookをダブルクリックします。
２．コードを入力
コードを入力します。
３．Sheet1（Sheet1）をダブルクリック
Sheet1（Sheet1）をダブルクリックします。
４．コードを入力
コードを入力します。
５．「開発」タブをクリック →「挿入」をクリック →「ボタン」をクリック
６．「ThisWorkbook.ファイル検索」をクリック
７．OKをクリック
８．ボタンができた
９．検索したいフォルダのパスを取得
今回はデスクトップの「データ」フォルダ内のファイルを検索してみます。
１０．B2セルにパスを入力
１１．A2セルに検索したい文字を入れる →ボタンをクリック
１２．検索完了
１３．A5・B5セル以下に検索結果が表示される →A5セルをダブルクリック
１４．ファイルが開く
まとめ
Excel VBAで簡単！フォルダ内ファイルを部分一致検索する仕組みを作る方法です。
１．alt + F11 を同時押し →ThisWorkbookをダブルクリック
２．コードを入力
３．Sheet1（Sheet1）をダブルクリック
４．コードを入力
５．「開発」タブをクリック →「挿入」をクリック →「ボタン」をクリック
６．「ThisWorkbook.ファイル検索」をクリック
７．OKをクリック
８．ボタンができた
９．検索したいフォルダのパスを取得
１０．B2セルにパスを入力
１１．A2セルに検索したい文字を入れる →ボタンをクリック
１２．検索完了
１３．A5・B5セル以下に検索結果が表示される →A5セルをダブルクリック
１４．ファイルが開く
これなら検索も簡単だし、結果もリストで残せるし、ファイル内の確認もダブルクリックで開くので簡単になりそうですね。