ネットバンキングのデータを仕訳に変換する方法18~補助CDの自動入力②

Pocket

補助(枝番)コードをVBAで自動で入力する設定を行います。

先に前回範囲を広げた科目コードの3列目に買掛金(312)の補助CDを登録します。
2508112
会計ソフトのフォームの右端に補助コードを表示させます。
2508111
ここで、a=a+1の前に次のコードを追加します。

If Worksheets(“Sheet1”).Cells(a, 2).Value = 312 Then
On Error Resume Next
Worksheets(“Sheet1”).Cells(a, 6).Value = WorksheetFunction.VLookup(Cells(a, 4).Value, Worksheets(“摘要”).Range(“科目コード”), 3, False)
On Error GoTo 0
End If

もし借方科目CDが、312ならば、
Sheet1の6列目(補助科目CD)は、meisaiシートのD列の摘要で、名前で定義した科目コードのうちその摘要(1列目)と一致する行の3列目の値を参照するというコードです。

実行結果です。
2508113
もし、例えば未払金(313)や未払費用(319)についても補助CDを自動で入れたいときは
1行目の312を変更して下さい。