テーブルから別テーブルへの転記 ③ 配列と連想配列の組合せ ～その１０．使用例：其の二～

先日、テーブル間データ転記のためにまとめたクラスモジュールについて、
その使用例を一つご紹介した。
infoment.hatenablog.com

今回も、別の使用例を一つ。

今日は、三つのテーブルを使ってみよう。

1. テーブルＤ：転記元
2. テーブルＡ：転記先
3. テーブルＢ：退避先

以下全てに於いて、キーとなるのは「コード」列の情報とする。

まずテーブルＡ：転記先にあって、テーブルＤ：転記元にないレコードは、
テーブルＡで管理すべき対象から除外されたとして、テーブルＢ：退避先へ
転記する。

次いで、テーブルＤ：転記元から、テーブルＡ：転記先へ転記を行う。
テーブルＤ：転記元にあって、テーブルＡ：転記先にないコードがあれば、
レコード単位でテーブルＡ：転記先に追加する。

また、テーブルＤ：転記元に無くて、テーブルＡ：転記先にあるコードに
ついては、コードを削除する。

最後に、テーブルＡ：転記先のコード列について、空白があれば行単位で
除去する。

これら一連の処理を記したマクロがこちら。

Sub test()
    
    Dim MS As VBAProject.MathSet
    Set MS = New VBAProject.MathSet
    
    ' 各テーブルを変数にセット。
    Dim Tb_A As ListObject: Set Tb_A = ActiveSheet.ListObjects("テーブルA")
    Dim Tb_B As ListObject: Set Tb_B = ActiveSheet.ListObjects("テーブルB")
    Dim Tb_D As ListObject: Set Tb_D = ActiveSheet.ListObjects("テーブルD")
    
    ' テーブルＡ ⇒ テーブルＢへ退避。
    ' テーブルＡにあって、テーブルＤにないコードを求める。
    Dim SrcArr As Variant
        SrcArr = Tb_D.ListColumns("コード").DataBodyRange
    Dim DstArr As Variant
        DstArr = Tb_A.ListColumns("コード").DataBodyRange
    Dim Result As Variant
        Result = MS.GetDifferenceSet(SrcArr, DstArr, False)
    
        With Tb_B.ListRows.Add
            .Range(1).Resize(UBound(Result) + 1) _
                = WorksheetFunction.Transpose(Result)
        End With
        MS.Transcription_Tb2Tb_All src_tb:=Tb_A, _
                                   dst_tb:=Tb_B, _
                                   src_key:="コード"
    
    ' テーブルＤ ⇒ テーブルＡへ転記。
        MS.Transcription_Tb2Tb_All src_tb:=Tb_D, _
                                   dst_tb:=Tb_A, _
                                   src_key:="コード", _
                                   add_new_record:=True, _
                                   del_key:=True
    
    ' テーブルＡのコード列について、空白セルを行ごと削除。
    Dim i As Long
        For i = Tb_A.ListRows.Count To 1 Step -1
            If Tb_A.ListRows(i).Range(1) = vbNullString Then
                Tb_A.ListRows(i).Delete
            End If
        Next

End Sub

結果がこちら。

意図したとおり、退避と転記および削除を行うことができた。
例えばテーブルＡが出荷管理台帳で、「みかん」と「ぶどう」が出荷済みのため、
最新情報として生産管理システム等から出力されたテーブルＤに無い場合、今回
まとめたクラスモジュールが有効かもしれない。

長々と続けてきたが、今回のシリーズはこれでおしまい。

参考まで。