エクセルファイルからデータ収集。VBA取り出し条件の楽々設定方法

datasyusyueyecatch002

こんにちは、じゅんぱ店長(@junpa33)です。

 

今回から、データ収集のためのエクセルVBAの解説をしていきます。

 

データ資料となるそれぞれのエクセルファイルから、必要な情報を取り出してくるエクセルVBAソフトの組み立ての中で、

まずは、「取り出し条件の設定」の方法について組み立てを行っていきます。

 

データを取り出したいエクセルブックの中の代表的なエクセルブックを選びます。

そのエクセルブックにあるシート名をリストアップします。

そのシートリストの中で、どのシートを対象にするか、

そのシートの中のデータを最大5つ抽出できるようにします。

 

先回の記事を読み返すにはこちら↓です。

複数ファイルからデータ収集を行うエクセルVBAソフトの作り方

datasyusyueyecatch 複数ファイルからデータ収集を行うエクセルVBAソフトの作り方

 

 

取り出し条件のVBA設定方法

 

手作業で大量のエクセルファイルを一つづつ開いて、必要データをコピーして別の集計ファイルにペーストする作業のことを考えると

どこからどういうデータを収集してくるかを、設定する事ぐらいなら手作業でするのは大丈夫です。

と、思ってしまいますが、どうせ自動化なら、この部分も出来るだけ自動化してしまいましょう。

 

収集するデータの「項目名」とそのデータが入っている「セル番号」は手打ちするしかありません。

問題は、こういった場合によく起こるのが、どの「シート」を参照するかとというときにその「シート」名を

間違って条件指定しまう事があります。

大文字・小文字・半角スペースの違いでも条件を認識できなくなってしまいます。そして案外ここで手間取ってしまう事が多々あります。

 

ここでのテーマでは、この条件入力ミスを防ぐ工夫も紹介したいと思います。

 

今回は、ボタンクリックでこのようになるシートを作ります。

 

detasyuu004aa

 

条件設定のVBAコード

 

今回はこのボタン「抽出条件作成」で操作するプロシージャーを作成します。

detasyuu002a

 

最初にエクセルBOOKのセットアップします

 

新しくエクセルBOOKを開きます。

Sheet1を「設定」

Sheet2を「抽出リスト」とします。

一旦、BOOK名を「データ収集.xlsm」として保存してください。

 

条件設定のVBAコード

 

取り出すデータのあるシート名を指定します

シート名はそれぞれ入力して指定していくことになります。

複数のシート名からデータをピックアップする時、少数のシート数であればまだいいですが、

多量のシート数がある場合は、手打ち入力指定は大変です。

 

そこで、

指定方法として、でーたの取り出し対象のエクセルファイルの何れかの「代表的なファイル」を選択し、

その「代表的なファイルに含まれる全シート名」をリスト化します。

そのリストの中で、条件指定として必要なシートをチェックすることにします。

 

VBAコードとしては、次のようになります。

 

このコードは、標準モジュールを新規挿入後、そちらに記入してください。(Module1などに)

MEMO

モジュールの挿入方法が不明な方は、こちら↓でご確認ください。

「VBE(ビジュアルベーシックエディター)を起動する」

こちらの記事でも参考になります。

vbavbekidoeyecatchエクセルVBA 始めての起動。VBEの立ち上げ、保存と終了

 

プロシージャー名を「シート名取出し()」としています。

Sub シート名取出し()

 

Dim St As Worksheet
Dim R As Long

Dim flg As Boolean       ‘修正追加コード 20年11月23日

 

  On Error Resume Next            ‘修正追加コード 20年11月23日
  flg = Application.FindFile        ‘修正追加コード 20年11月23日
  On Error GoTo 0                       ‘修正追加コード 20年11月23日
  If flg = False Then Exit Sub     ‘修正追加コード 20年11月23日

  An = ActiveWorkbook.Name

 

  R = 4
  For Each St In Worksheets
    Workbooks(“データ収集.xlsm”).Activate
    Worksheets(“設定”).Cells(R, 1).Value = St.Name
      With Range(Cells(R, 1), Cells(R, 2))
        .Interior.ColorIndex = 6
        .Borders.LineStyle = xlContinuous
      End With
    R = R + 1
    Workbooks(An).Activate
  Next

 

  Workbooks(An).Close False

 

End Sub

コード修正

ファイル選択のダイアグラム表示時に「キャンセルボタン」を押したときのプログラム動作修正コードを追加しました。(20年11月23日)

 

MEMO

「Activeworkbook」名の変数化については、こちらの記事を参考にしてください。

vbanameeyecatchVBA 新規作成ブックとシート。アクティブ状態でやっておくこと

「For Each ~ Next」の使い方については、こちらの記事が参考になります。

vbadoloopeyecatchVBA 回数不定のループ処理はDo LoopとFor Each

「With~ End With」の使い方については、こちらの記事が参考になります。

vbawithstateeyecatchWith~End Withの使い方。VBAコードを簡潔に記述する

 

この「シート名取出し()」でリスト化したシート名と、取り出すデータのセル番号を指定する入力表を作成します。

プロシージャー名を「変数設定()」としています。その中で「シート名取出し()」プロシージャーを呼び出します。

VBAコードとしては、次のようになります。

Sub 変数設定()

 

シート名取出し

 

Workbooks(“データ収集.xlsm”).Activate
Worksheets(“設定”).Select
  Range(“A3”) = “シート名”
  Range(“B2”) = “シートチェック”
  Range(“B3”) = “抽出に〇”
  Range(“C2”) = “項目名”
  Range(“C3”) = “セル番号”
  Range(“D1”) = “抽出データ1”
  Range(“E1”) = “抽出データ2”
  Range(“F1”) = “抽出データ3”
  Range(“G1”) = “抽出データ4”
  Range(“H1”) = “抽出データ5”
  Range(“D2”, “H3”).Interior.ColorIndex = 6

 

  With Range(“A1”, “H1”)
    .Font.Size = 15
    .Font.ColorIndex = 5
    .Font.Bold = True
  End With

 

  With Range(“A2”, “C3”)
    .Font.Size = 15
    .Font.ColorIndex = 5
    .Font.Bold = True
  End With

 

  Range(“D1”, “H3”).Borders.LineStyle = xlContinuous
  Range(“A2”, “C3”).Borders.LineStyle = xlContinuous

  Columns.AutoFit

 

End Sub

 

「変数設定()」プロシージャー名を実行すると、

ファイル選択画面が表示されます。代表的なファイルを選択します。

detasyuu003aa

 

ファイルを選択して「開く」ボタンをクリックすると、「設定」シートは、このように表示されます。

detasyuu004aa

 

入力表は少し見やすくするために、入力指示項目のタイトルの文字スタイルを変更しています。

入力部分は、セルに色を付けています。

この部分は、お好みでカスタマイズしていただければよろしいかと思います。

 

プロシージャー実行のボタンを設置する

あとは、「設定」シートに実行ボタンを設置します。

 

設置位置はJ・K列に設置しています。(ボタン位置は適宜でOKです。)

 

設置方法は、「開発タブ」→「挿入ボタン(プルダウン)」→「フォームコントロール」→「ボタン」

位置決め後、「ボタン」右クリック→「マクロの登録」→「変数設定プロシージャー」を指定です。

ボタン名称の変更は「テキストの編集」から行います。

 

MEMO

設置方法はこちら↓も参考になります。

「データ抽出ボタンを設置する」

こちらの記事も参考になります。

vbabuttoneyecatchエクセルVBA コマンドボタンをシートに簡単設置する方法

これでボタン設置完了です。

 

ここまでのまとめ

 

サンプルの画像を参考にすると、

抽出するデータ数はこの場合、5個/シート ✖ 72シート で合計360個のデータを取り出すことが出来ます。

もちろん、ファイルにあるシート数が多ければもっと取り出せるデータ量は多くなります。

が、その分パソコンに負担が多くかかりますので、一度の作業でなく多ければ何回かに分けて行うことをお勧めします。

 

次回は、入力した条件に従ってデータを取り出すためのVBAコードを解説していきたいと思います。

 

次の記事をご覧になるには、こちら↓になります。

指定条件で複数のファイルからデータを取得するエクセルVBAコード

datasyusyueyecatch003 指定条件で複数のファイルからデータを取得するエクセルVBAコード

 

エクセルVBAの独習を始めるためのポイントについて vbastudyeyecatchエクセルVBAを独学で習得するためのポイントは?良書との出会いは重要 基礎知識習得のためのオンライン学習講座の参考記事 Udemy1eyecatchエクセルVBA初級者がUdemyで動画学習する講座おすすめ5選と無料講座の上手な使い方。
  今回の記事はここまでです。
最後までご覧いただき有難うございました。

 

複数ファイルデータ収集一覧
datasyusyueyecatch
こんにちは、じゅんぱ店長(@junpa33)です。 今回から、すでにエクセルで作成した資料を利用する時のための「ちょっと便利なVBA」について紹介します。 エクセルで作成された複数のファイルから、それぞれ必要な特定のデータを収集することので ...
続きを読む
datasyusyueyecatch002
こんにちは、じゅんぱ店長(@junpa33)です。 今回から、データ収集のためのエクセルVBAの解説をしていきます。 データ資料となるそれぞれのエクセルファイルから、必要な情報を取り出してくるエクセルVBAソフトの組み立ての中で、 まずは、 ...
続きを読む
datasyusyueyecatch003
こんにちは、じゅんぱ店長(@junpa33)です。 今回は、 先回作成した「抽出条件の入力表」に入力された内容で、資料となるエクセルファイルからデータを取得するVBAコードを組み立てます。 設定シートに表示された「抽出条件の入力表」で 「シ ...
続きを読む
こんにちは、じゅんぱ店長(@junpa33)です。 今回の内容は、次の利用のための「シートをクリア、リセットする」VBAコードについてです。 今回で、この「データを収集するエクセルVBAソフト」は完成です。 一つの作業終了で、ALLクリア・ ...
続きを読む
datasyusyueyecatch005
こんにちは、じゅんぱ店長(@junpa33)です。 前回までで作成しました「複数エクセルファイルのデータ収集VBA」について、 今回はこの「複数エクセルファイルのデータ収集VBA」ソフトの使い方を、 最初から説明していきたいと思います。 そ ...
続きを読む

エクセルVBAを使い始めて、始めのうちに知っておきたいおすすめの内容を纏めてみました。

vbaintfixeyecatch
エクセルVBA関数で、数値の整数部分だけを分離します。 整数値取得のFix関数でなくInt関数の使用の場合でも、 他の関数との組み合わせで解決することが出来ます。 こんにちは、じゅんぱ店長(@junpa33)です。 今回のテーマは、数値の整 ...
続きを読む
vbarndeyecatch
エクセルVBAのRnd関数で乱数を取得します。 実用のためにはコードに簡単な加工をする必要があります。特に乱数値の整数化とRandomizeは必須です。 6.5兆通りのパスコードの生成方法も解説しています。 こんにちは、じゅんぱ店長(@ju ...
続きを読む
vbaroundupdowneyecatch
エクセルVBA 数値の切り上げ、切り捨てをするときには注意しなければいけません。 RoundUp関数とRoundDown関数を使う時に負の数が混在していると、そのままだと誤った計算結果になることがあります。 こんにちは、じゅんぱ店長(@ju ...
続きを読む
vbaroundeyecatch
エクセルVBAでも数値を四捨五入したい時は、Round関数を利用することが多いです。 Round関数の使い方はワークシートと同様ですが、ただ大きな注意点があります。 ここではその注意点も含めて使い方の説明を行います。 こんにちは、じゅんぱ店 ...
続きを読む
vbamaxminaveeyecatch
エクセルVBAで、ワークシート関数 Max・Min・Averageを利用して最大値・最小値・平均を求めます。 「簡単で短いエクセルVBAコード組み立て」を目指す上では、ワークシート関数は強い味方です。 こんにちは、じゅんぱ店長(@junpa ...
続きを読む
vbainsteeyecatch
InStr関数・InStrRev関数は、文字列操作系の関数の中でも最重要です。 この関数により指定の文字(列)の存在位置が取得できます。 そしてそれを目盛基準として、文字列操作をすることもできます。 こんにちは、じゅんぱ店長(@junpa3 ...
続きを読む
vbareplaceeyecatch
エクセルVBAで使える関数にReplace関数があります。 Replace関数は検索の文字列を指定の文字列に置換したり、削除したり出来ます。 利用価値の高い関数です。使い慣れておきましょう。 こんにちは、じゅんぱ店長(@junpa33)です ...
続きを読む
vbaselectcaseeyecatch
エクセルVBAで、必須の条件文。 その中の一つで、Select Case 条件分岐 ステートメントの使い方を説明します。 簡単なコード、可読性の向上が特徴のステートメントです。是非、知っておきましょう。 こんにちは、じゅんぱ店長(@junp ...
続きを読む
VBAValeyecatch
エクセルVBAのVal関数の使い方についてです。 「値を文字列型から数値型へ変換する」という機能があります。 データ型が不一致の場合、プログラムエラーでコード停止が発生することが良くあります。 こんにちは、じゅんぱ店長(@junpa33)で ...
続きを読む
VBAStringeyecatch
エクセルVBA String関数の使い方についてです。 「文字を指定した数だけ並べることが出来る」という機能の関数です。 この関数を使えば簡潔なコード記述で実行することが出来ます。 こんにちは、じゅんぱ店長(@junpa33)です。 今回は ...
続きを読む
vbajoineyecatch
エクセルVBAでJoin関数の使い方について説明します。 文字列を接続する関数ですが、 配列変数で文字列を要素化した時にはこれを使います。 また「区切り文字」も自由に設定できます。 こんにちは、じゅんぱ店長(@junpa33)です。 今回は ...
続きを読む
vbamideyecstch
エクセルVBAで文字列操作は、コード作成の中でも重要な部分です。 Mid・Right・Left関数は、その操作の中で重要な働きをする関数です。 文字列を切り出すこの関数の基本部分を説明します。 こんにちは、じゅんぱ店長(@junpa33)で ...
続きを読む
vbatrimeyecatch
Trim・RTrim・LTrimは文字列の端にあるスペースを取り除きます。 ちょっとのことですが、取り込みデータにスペースが付いていることでのエラーは発見修正が結構厄介です。 注意が必要です。 こんにちは、じゅんぱ店長(@junpa33)で ...
続きを読む
vbastrcstreyecatch
エクセルVBAで、Str関数とCStr関数に使い方とその違いについて説明します。 戻り値にちょっとした違いがあります。 使い方の違いでその後のコードの進行に影響が出ることがあり、なおざりにはできません。 こんにちは、じゅんぱ店長(@junp ...
続きを読む
vbaleneyecatch
Len関数の使い方ついて説明します。 エクセルVBAでプログラミングを行う時に、テキストデータを加工処理するには必須の関数です。 非常に有用な関数ですので、是非使えるようになっておきましょう。 こんにちは、じゅんぱ店長(@junpa33)で ...
続きを読む
VBACheckBoxeyecatch
エクセルシートで使う場合の、2種類あるチェックボックスの設置と使い方の違いを解説します。 一見簡単そうですが、 単純でない使い方をしたい時は、設置方法と設定方法を工夫する必要があります。 こんにちは、じゅんぱ店長(@junpa33)です。 ...
続きを読む
VBAOptionbuttoneyecatch
エクセルで書類を作成する時、項目を選択できるようにするのがオプションボタンです。 これには2種類あり、使い方にかかわる違いもあります。 詳しいオプションボタン設置方法と使い方のコツを解説します。 こんにちは、じゅんぱ店長(@junpa33) ...
続きを読む
vbamojisousaeyecatch
エクセルVBAコードで、ファイルの保存時に名前を付けて保存について、その時の年月日を付けたい時の設定方法についてです。 保存されたファイルがたくさん増えて行く中で、ファイルの判別で年月日を付けている(付けたいと思っている)人も多いでしょう。 ...
続きを読む
vbajyufukueyecatch
今回は、同じ項目を一つにまとめるためのエクセルVBAコードを紹介します。 多数銘柄の商品を複数の店で扱っている場合、商品銘柄集計表を作るには、商品銘柄の種類だけをリストにしないといけません。 こんにちは、じゅんぱ店長(@junpa33)です ...
続きを読む
vbafolderdeleteeyecatch
今回は、不要なフォルダをサクッと削除するエクセルVBAコードを紹介します。 削除の仕方は2つあります。VBA自身の機能を使うことと、FSOの機能を使うことの2つです。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAで、不 ...
続きを読む
vbadirkilleyecatch
今回は、フォルダに保存されている要らないファイルを削除するエクセルVBAコードを紹介します。 フォルダを開いて一つずつファイル名を確認して、ではなくて、コード実行一発でササッと完了します。 こんにちは、じゅんぱ店長(@junpa33)です。 ...
続きを読む
vbachdireyecatch
エクセルVBAのステートメントで「ChDir(チェインジディレクトリ)」というのがあります。 少々地味感のあるステートメントですが、この使い方のポイントを説明いたします。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAの ...
続きを読む
vbafindeyecatch001
今回は、データの検索方法で、エクセルVBAでできるメソッドについてです。 「FindとFindNextメソッド」の使い方と最速理解のコードの組み立て方を説明したいと思います。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルの検 ...
続きを読む
今回も、エクセルVBAで利用できるワークシート関数についてがテーマです。 この記事では、データナンバーなどから、その必要な値や数値を抽出する「Vloolup関数」について使い方を説明します。 こんにちは、じゅんぱ店長(@junpa33)です ...
続きを読む
vbaindexeyecatch001
今回も、エクセルVBAで利用できるワークシート関数についてがテーマです。 この記事では、データリストから必要な値や数値を取り出してくる「Index関数」について使い方を説明します。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセ ...
続きを読む
vbamatcheyecatch001
エクセルVBAで利用できる関数についてがテーマです。 今回は、データリストから必要な値や数値を取り出してくる「Match関数」について、使い方を説明します。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAでよく使うワーク ...
続きを読む
vbahairetu3eyecatch
エクセルVBAで変数を利用するとき、二次元配列変数を知っていれば何かと便利なことがあります。 今回はそんな配列変数をより実際に近い例題で説明していきます。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAのプログラムでは、 ...
続きを読む
vbahairetu2eyecatch
エクセルVBAで配列を利用する時、それに関わる関数やステートメントを利用すれば、 より簡潔にコードを作成することが出来ます。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBA 配列を扱うときに利用できる関数とステートメント ...
続きを読む
vbahairetueyecatch
エクセルVBAで変数を利用するとき、複数の同じ型で変数を設定したいときがあります。 そんな時、出番となるのが配列変数ということです。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAの1次元配列変数の使い方を説明します。 ...
続きを読む
vbabuttoneyecatch
エクセルVBAのプログラムを実行するのに、ワークシート上に設置したボタンのクリックでワンポチっとで行いたい。 そんなボタンの簡単設置方法を紹介します。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAで、シートにマクロ(プ ...
続きを読む
vbasumeyecatch
エクセルVBAで、羅列された数値の集計作業をパパッと熟していきたいときがありますよね。 それを簡単に行える方法としてSUM関数があります。今回はこのSUM関数の使い方についてです。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセ ...
続きを読む
vbainputboxeyecatch
エクセルVBAのプログラムで、利用者からの入力データを取り込んでコードを実行していくことがあります。 その簡潔な方法としてInputBoxがあります。今回はこのInputBoxの使い方についてです。 こんにちは、じゅんぱ店長(@junpa3 ...
続きを読む
vbalastcelleyecatch
エクセルVBAのプログラム作成で、入力データをその都度蓄積していく場合など、 既にデータの入っている最終セルの位置を調べたいという時が多くあります。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAのコード組み立てで、デー ...
続きを読む
vbawithstateeyecatch
エクセルVBAのコードの組み立てでは、視認性や可読性を上げるためにできるだけ記述を簡潔にしたいところです。 Withステートメントは、そういったコード記述を簡潔にする役割があります。 こんにちは、じゅんぱ店長(@junpa33)です。 エク ...
続きを読む
vbacleareyecatch
エクセルVBAでシートを再利用するために、一度内容すべてをクリアしたい時があります。 普通は、Clearメソッドを使ってクリア操作を行いますが・・・ こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAを組み上げる中で、シート ...
続きを読む
vbaoffseteyecatch
エクセルVBAで、セルやセルの選択範囲を移動させるのにOffsetプロパティがあります。 今回の「VBA最速で理解」は、この便利な「Offsetプロパティ」の使い方について説明します。 こんにちは、じゅんぱ店長(@junpa33)です。 エ ...
続きを読む
vbanameeyecatch
エクセルVBAで、アクティブセル、アクティブシート、アクティブブックという「現在参照中の・・・」というオブジェクトがあります。 今回の「VBA最速で理解」は、この「ActiveWorkbook」「ActiveSheet」「ActiveCel ...
続きを読む
vbaselacteyecatch
エクセルVBAで、そのコードを実行する先のオブジェクトに、フォーカスするためのメソッドに、「Select」と「Activate」があります。 今回は、このよく似た「Select」と「Activate」について説明します。 こんにちは、じゅん ...
続きを読む
vbavbekidoeyecatch
エクセルVBAを始めようとしたときに一番最初に戸惑うのが、「どうしたらVBAコードを書く表示画面になるのか?」だと思います。 今回は、この「どうしたら、その画面になるんだろう?」についての方法を説明します。 こんにちは、じゅんぱ店長(@ju ...
続きを読む
vbamsgboxeyecatch
エクセルVBAでユーザーフォームを使わなくても、簡単なユーザーとのやり取りならメッセージボックスでも可能です。 今回は、この「ユーザーへのメッセージや選択肢を提示する」ユーザーフォームについての説明をします。 こんにちは、じゅんぱ店長(@j ...
続きを読む
vbadoloopeyecatch
以前の記事でも書いたように、エクセルを使った業務で、「ループの処理」コードは重要な実行処理部分です。 今回は、このもう一つの「ループの処理」である「実行回数が限定されないループ処理」を行うコードについて説明します。 こんにちは、じゅんぱ店長 ...
続きを読む
vbafoldereyecatch
エクセルを使った業務で、「作成したファイルの保存」は作業の最後に必ず必要な部分です。 今回は、この「作成したファイルの保存」を行うための重要部分。保存先フォルダをVBAで指定する方法を説明します。 こんにちは、じゅんぱ店長(@junpa33 ...
続きを読む
vbasengeneyecatch
エクセルVBAのコード組み立てで使う変数。「この変数を使いますよ!」というのが「変数の宣言」です。 今回は、この変数の宣言についてです。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBA のコード組立ての中で、変数の宣言は ...
続きを読む
vbaifjyokeneyecatch
エクセルVBAのコード組み立てで最も必要な、最もよく使うメソッドの1つで「If~Then~Else」があります。 今回はこの「If~Then~Else」メソッドについて設定条件の絞り方のポイントを説明します。 こんにちは、じゅんぱ店長(@j ...
続きを読む
VBACopyeyecatch
エクセルVBAのコード組み立てで、よく使うメソッドの1つで「Copy」メソッドがあります。 今回はこの「Copy」メソッドの使い方を説明します。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルVBAで、ワークシートのコピーをを ...
続きを読む
VBAGotoeyecatch001
エクセルVBAのコードで、Gotoステートメントは嫌われ系のグループにはいっています。 それでも、GotoがあるのでVBAコード組み立てがスムーズに、楽に、なる事も多いと言うのも事実です。 こんにちは、じゅんぱ店長(@junpa33)です。 ...
続きを読む
fornextirekoeyecatch
エクセルVBAのコード組み立てで、非常によく使うステートメントの一つにFor~Nextでのループ処理があります。 今回はこのFor~Nextステートメントの使い方を説明します。 こんにちは、じゅんぱ店長(@junpa33)です。 エクセルV ...
続きを読む

 

<記事内容についての告知>VBAコードの記述記事においては、その記述には細心の注意をしたつもりですが、掲載のVBAコードは動作を保証するものではりません。 あくまでVBAの情報の一例として掲載しています。 掲載のVBAコードのご使用は、自己責任でご判断ください。 万一データ破損等の損害が発生しても当方では責任は負いません。