エクセルVBAでテーブルを走査して取引先ごとのブックを作るマクロ

photo credit: Spiros Vathis just a kiss via photopin (license)

みなさん、こんにちは！
タカハシ(@ntakahashi0505)です。

請求書の作成マクロを題材にエクセルVBAでテーブルを操作する方法をお伝えしています。

前回の記事はコチラ。

エクセルVBAでテーブルのデータ行を追加して値を入力をする方法

請求書作成マクロを題材としてエクセルVBAでテーブルを操作する方法についてお伝えするシリーズです。今回は、テーブルのデータ行を追加して値を入力をする、Addメソッドの使い方をお伝えしていきますね。

テーブルに行を追加してデータを入力する方法をお伝えしました。

さて、テーブルの操作方法はだいぶ出揃ったので、今回からそれらをいかして、実際に請求書マクロを作成していきます。

まずは、エクセルVBAでテーブルを走査して取引先ごとのブックを作るところまでを作っていきます。

では、行ってみましょう！

請求書マクロの仕組み
1. 請求書マクロの流れ
テーブルを走査して取引先ごとにブックを作る
まとめ
連載目次：エクセルVBAでテーブルを活用した請求書マクロを作る

請求書マクロの仕組み

まず、目指す請求書作成マクロの仕組みについて解説をしていきます。

「請求データ.xlsm」というエクセルブックに２つのシートが含まれています。

一つは以下の「データ」シートで、そのオブジェクト名は「wsData」としています。

このシートには以下２つのテーブルが作られています。

「請求データ」テーブル：請求すべきデータを一覧しているテーブル
「取引先マスタ」テーブル：取引のある取引先リスト

なお、2つのテーブルは上記のテーブル名に変更済みです。

もう一つのシートが以下「ひな形」シートで、オブジェクト名は「wsTemplate」です。

こちらのシートは、取引先ごとに作成する請求書のひな形になるシートです。

テーブルは「ひな形データ」というテーブル名で、データ行は含まれていないものです。

請求書マクロの流れ

請求書マクロの流れは、以下のような流れになります。

「取引先マスタ」テーブルの取引先の数だけ繰り返す
1. 「ひな形」シートをコピーしてブックを作成
2. 「請求データ」テーブルの行を走査する
  - その行の取引先が、該当の取引先であれば
    - 作成したブックの「ひな形データ」に行を追加
    - 追加した行に「請求データ」の該当データを転記する
3. 請求金額、請求先の社名や住所などの情報を入力する
4. ファイル名を決めて保存する

この流れでマクロを作成していきます。

テーブルを走査して取引先ごとにブックを作る

まずは大枠の分のマクロを作成してみました。

コチラです。

Sub 請求書作成()

Dim tbData As ListObject: Set tbData = wsData.ListObjects("請求データ")
Dim tbClient As ListObject: Set tbClient = wsData.ListObjects("取引先マスタ")
Dim rowClient As ListRow

For Each rowClient In tbClient.ListRows
    Dim client As String: client = rowClient.Range(1).Value
    wsTemplate.Copy
    With ActiveSheet
        .Name = client
        Dim tbTemplate As ListObject: Set tbTemplate = .ListObjects("ひな形データ")
        '2. 「請求データ」テーブルの行を走査して転記処理などをする
        '3. 請求金額、請求先の社名や住所などの情報を入力する
    End With
    '4. ファイル名を決めて保存する
Next rowClient

End Sub

解説をしていきます。