2020.08.12以前、「複数ファイルシート一括検索」という記事を書きました。複数のExcelファイルの全てのシートを対象として文字列検索をするマクロです。フォルダ内の全てのファイルを対象としますが下の階層のフォルダには対応していませんでした。今回、下の階層を含めて検索するように改良しました。コードは四つあります。一枚のモジュールに貼り付けてください。Longまずモジュールレベル定数を宣言しています。「検索結果」という名前の空のシートを準備してください。ここに結果を表示します。モジュールレベル変数を三つ宣言しています。get_files(my_path)'指定したフォルダにある全てのファイル名(パス付)を取得する。'半角の「¥」を付ける。Functionファイルを取得し配列変数all_filesにセットします。フォルダの場合は再帰的にその中のファイルを取得します。'半角の「¥」を付ける。Sub検索文字列とフォルダを指定します。対象となる全てのファイル、シートを取得し検索します。Function指定したファイルの全てのシートについて、文字列を検索します。検索結果を「検索結果」シートにセットします。該当のセルにハイパーリンクを張るようになっています。2020年8月12日追記コードに誤りがありました。VBEで作成したコードをこのブログにペーストするときに半角の「\」が消えてしまっていました。修正を反映したbasファイルを添付します。上に載せたコードを一つずつコピペする代わりにインポートして使えます。コピーstabuckyをフォローするstabucky関連記事ExcelExcelで印刷時に文字がはみ出さないようにする方法Excelで「折り返して全体を表示する」を適用している場合、画面上ではセルに収まっている文字が印刷するとはみ出して印字されないというケースがあります。環境によるのかもしれませんが、これは困ります。ページ設定で縮小するとダメなようです。ExcelExcelの表示形式(カンマとゼロとシャープ)Excelの書式(表示形式)で「,」「0」「#」を使うケースについてまとめてみます。Excel2007のTEXT関数で確認しました。Excel複数ファイルパスワード操作(Excel)複数のExcelファイルに同じパスワードがセットされている場合に、それを一括して解除して保存するマクロです。逆に一括してパスワードをセットすることもできます。最初にダイアログでパターンを訊かれますので、解除ならば「はい」、セットならば「...AccessAccessやExcelで「?」や「*」を検索する方法Accessで半角の「?」(クエスチョンマーク)を検索するにはどうしたらよいでしょうか。実はAccessで検索する場合に「?」を使うと「任意の1文字」を表す、いわゆるワイルドカードになってしまいます。そのため、普通に検索すると、すべての文...ExcelExcelで数値を全角で表示するための書式設定Excelで数値を全角で表示するにはセルの書式設定で表示形式に「DBNum」を使います。「DB」はダブルバイトで全角という意味だそうです。具体的には次のようにセットすることでいろいろなパターンが使えます。Excel実行中のフォルダを取得するマクロを実行して、フォルダやファイルを指定する場合には、ダイアログを表示して選択するようにします。この場合は「FileDialog」を使います。05:26先日は回答ありがとうございます!マクロ初心者です。このマクロ使わせていただきました!しかし、実行時エラー91がでて、オブジェクト変数または、Withブロック変数が設定されていません。first_addressでエラーがでます。06:32>えるささんちょっと調べましたが原因が分かりませんでした。一個めには、ヒットするんですが二個目が検索できずエラーがでます。09:27マクロ利用させて頂いてます。正常に稼働し、いままで時間がかかっていたことが瞬時に出来て泣きそうです。「N4」と同じ行である「A4」「B4」「C4」「D4」「E4」「L4」「M4」のセル内容を、検索結果シートの「F列」以降に表示させるにはどうしたら良いですか。検索結果の表の中で見たい情報を網羅したいと考えてます。お手数かと思いますが、よろしくお願い致します。13:21>てつやさんご利用ありがとうございます。質問いただいた件ですが、難しいです。発見したセルだけでなく、その周辺のセルの情報を取得することになるので、ちょっと修正するだけでは済まないような気がします。18:03了解しました。頑張ってマクロの学習します!また教えて下さい。21:39>てつやさんこちらこそよろしくおねがいします。12:44>missonさんセルの結合は自分自身はなるべく使わないようにしているので想定していませんでした。ありがとうございました。10:35こちらでもすいません。当方は複数のドライブがある環境で、Bフォルダ(Aドライブ内にあります)を検索したいのですが、Bフォルダを指定しても「ファイルがみつかりません」となります。一方で、Aドライブを指定した場合、Aドライブ直下にあるエクセルは検索できます。何が原因か分からず、苦労しております。ご指導頂きますと有難いです。10:43出来れば、フォルダ指定なく、指定のドライブ→フォルダを特定し、検索をかけたいのです。わがままな相談ですが、ぜひご指導くださいませ。12:53>ぶんさん複数ドライブの件は、少し考えましたが思いつきませんでした。箇所を削除し、代わりにmy_path=指定のフォルダのように書けばいいと思います。お役に立てず申し訳ありません。15:37シート名検索がしたくてたどり着きました。「実行エラー’53′ファイルが見つかりません」と表示されます。Thenこの行のようですが、超初心者なので対応方法がわかりません。19:45あかんとくさん時間のあるときに確認します。08:16あかんとくさんコードを修正しました。お手数をおかけして申し訳ありませんが再度試していただけますでしょうか。16:37コード修正ありがとうございます。やってみましたが、フォルダの下層フォルダを検索しようとすると同じエラーでストップします。1層下げるととりあえず動きました。ブックのリンクの確認が出るのは仕方ないですね。12:35あかんとくさんダメですか。これ以上の調査は難しいです。14:24ありがとうございました。18:25マクロ初心者です。”検索文字列を入力”に何も入れずに実行するとフォルダの中を全部検索するような感じになり、検索が止まらなくなってしまいます。Subとするといいと思います。14:33お忙しい中恐縮です。コードの利用に利用条件などはございますでしょうか?こちらのコードをひながたに機能をいくつか追加するような形でコードを記述したのですがもし何か細かい利用条件等(コード内にURLの記述など)あればお教えいただきたいです。再公開などはしません。社内業務の効率化に使用したいと考えています。コードの利用自体が難しいようでしたら参考にさせて頂いて1から書き直そうと思っています。04:01カルピスさん利用いただきありがとうございます。利用条件はありません。自由に改変いただいて結構です。09:10ありがとうございます!すいません再公開?というか私が一部改変、追記したものを社内で共有して使うかもしれないです。09:17大丈夫というか、そのように利用させていただいてもいいでしょうか?念のため許可をいただければと思いました。業務の効率化への利用だけです。09:32カルピスさん問題ありません。自由に使ってください。下階層(フォルダ内のフォルダ)に対応した版を作りました。[...]コメントを書き込むコメントをどうぞメールアドレスが公開されることはありません。曖昧な記憶と憶測でロックを語る最後は運です。Cool.ホーム検索トップサイドバータイトルとURLをコピーしました。