玄米、1日1食でも効果あり。検索した結果をデータとして出力できないかな?と思われたことありませんか。赤枠で囲った部分です。検索する文字が「ある影響範囲を調べるもの」で、リストアップされた1つひとつのドキュメントなどを確認する場合、チェック一覧表として使用したい場合です。上記部分をコピーしようとしましたが、できませんでした。所定のフォルダに格納された複数のExcelファイルすべてのシートから文字列を抽出し、リストアップするプログラムを作成しました。・検索するフォルダはフォルダ内のファイルのみ、サブフォルダを含む全てを設定できます。設定シート&リストアップシート&プログラム処理内容説明ボタンで処理を開始したい最後に設定シート&リストアップシート&プログラム1.シート1に設定シート、シート2とシート3に空白のシートを作成1).シート1に以下を貼り付けます。ドラッグ&コピー後にExcelに貼り付けるとき、[形式を選択して貼り付ける]-[テキスト]で貼り付けます。・検索レベル指定したフォルダ内直下のファイルのみか[S]、フォルダ内のサブフォルダ全て[M]を対象にするかを指定します。(S:シングルレベル、M:マルチレベル)検索ファイルは、拡張子3文字に[.xls]を持つ[.xls][.xlsx][.xlsm]などのファイルが対象になります。1つのファイルを対象にしたい場合は、検索フォルダに対象ファイルだけを置いて、[S]シングルレベルを指定します。・検索タイプ全体一致を指定する場合には"0"でも"A"でも空白以外になるよう何らかの文字を入力します。・検索文字1つは必須です。2つ目以降は任意で入力できる分だけ指定できますが、検査結果の上限を想定し指定頂ければと思います。2).シート2とシート3を追加します。※追加を忘れたときのために、シート2とシート3が存在しない場合は、自動で追加するよう対応しました。2.上記ExcelファイルのVBAエディタでプログラムを貼り付け、実行1).上記ExcelファイルからAltを押した状態でF8を押下後、マクロ名を入力して[作成(C)]をクリックします。マクロ名はtestでもchar_findなど適当に。selectなどマクロ名に指定できないものもあります。以下の内容が記述された画面に遷移しますが、すべてを削除します。※今回の手順に従い登録すると、マクロ名はプログラム内に記述されているマクロ名[MAIN00]になります。2).以下のプログラムをコピーし、貼り付けます。マクロ有効ブック(*.xlsm)]で、一旦保存しておきます。保存先には、検索対象のファイルを格納するフォルダ以外を指定します。4).再びAltを押した状態でF8を押下し、[実行(R)]をクリックします。プログラムは以下の記事のプログラムを流用しており、詳細を記載しています。Excelファイルで保管されている文書の文字列を一括で修正したいということありませんか。プログラムで指定したフォルダ内のExcelファイルの文字列を修正する処理を作成してみました。この記事は、Exce...jibun-kaizen.com-0001.11.30その他を補足します。"\*.xls*"]にしています。◆CreateObject("Scripting.FileSystemObjectの使用についてサブフォルダまでを対象にする場合は、[CreateObject("Scripting.FileSystemObject")]を使用します。With句で記述する場合は以下です。セットして検索しますが、そのとき検索順[列方向、行方向]を指定します。SearchOrder:=xlByRows指定しなければ「行方向」になります。検索対象文字が1シート内に1つのみ存在し、かつ、該当文字が行結合したセル内にある場合にエラーになります。回避策として、検索順を列方向にする必要があります。ちなみに、検索順が列方向であっても「検索対象文字が1シート内に1つのみ存在し、かつ、該当文字が列結合したセル内にある」場合はエラーになりませんでした。ボタンで処理を開始したい以下のようにボタンを付けます。1.ボタンを設置したいシートから、[開発(L)]-[挿入(I)]-[ボタン(フォームコントロール)(B)]からマウスを使ってボタンを配置します。[開発]タブを表示させる方法:Excel上で、ファイル(F)-オプション(T)から[リボンのユーザ設定]から、画面の右[リボンのユーザ設定(B)]で「開発」にチェックを入れる2.上記[1.]の後に開く画面において、下段に入っているマクロ名をクリックして上段の[マクロ名(M):]にセットし、[OK]ボタンをクリックします。※上記画像ではマクロが[test1]になっていますが、当プログラムでは[MAIN00]になっていますので[MAIN00]を選択します。ボタンからの実行がうまくいかない場合は、以下の記事を参照頂ければと思います。マクロ''を実行できません。このブックのマクロを使用できないか、またはすべてのマクロが無効になっている可能性がありますExcelマクロを作成しボタンから実行しようとボタンを作成したけれど動かない!ネットでエラーの内容を調べてみるけど問題なし。作成方法を間違っているのかもしれません。間違いを間違いと気づかずに。一度ダメ元でやってみて頂ければと思います。objFile~]」部分を除き、基本的なコマンドのみを使うようにして、読みやすく理解しやすいようにしています。く部分」は今でも「このように書けば良い!」と思っており、「覚えられない=そのように書けばよし」としています)尚、検索結果は別ファイルとして新しいファイルに出力することもできます。プログラムを作成しました。上記の説明では分かりにくいと思いますので、以...jibun-kaizen.com-0001.11.30数多くのファイルから特定文字列を探して転記・記録する作業は時間が掛かりますし面倒です。プログラムであれば、検索している間にExcel以外の他の作業ができます。リストアップしたシートは用途によっては不要な部分がありますから、加工してご利用頂ければと思います。いずれにしても、早く終わりにして早く帰れますように。コメントをキャンセルメールアドレスが公開されることはありません。※コメントは日本語で入力してください。コメントデータの処理方法の詳細はこちらをご覧ください。VBAスポンサーリンクプロフィールはじめまして、健史(たけふみ)と申します。このブログにお越し頂き、ありがとうございます。私は若いころから不摂生な生活を送ってきたために、いろいろな病気や慢性痛になりました。(3)人気記事マクロ''を実行できません。自分で改善.メニューホーム記事一覧プロフィールお問い合わせホーム検索トップサイドバ。