Tweet

Pocket

次は差し引いて支払った支払手数料についての処理をします。
現状では、支払手数料についてはまだ補助CDが入っていません。

ここでVBAコードを追加します。

If Worksheets(“Sheet1”).Cells(a, 2).Value = 999 Then
If Worksheets(“Sheet1”).Cells(a – 1, 2).Value = 312 Then
Worksheets(“Sheet1”).Cells(a, 2).Value = 312
Worksheets(“Sheet1”).Cells(a, 5).Value = Worksheets(“Sheet1”).Cells(a – 1, 5).Value & “手数料”
Worksheets(“Sheet1”).Cells(a, 6).Value = Worksheets(“Sheet1”).Cells(a – 1, 6).Value
End If
End If

もし借方CDが999（諸口）で、その一行前が312（買掛金）ならば、借方CDは312、
更にここで一行追加して、
もし借方CDが999で、その一行前が312ならば、補助CDは前行の補助CDを移す。
というコードを追加すれば、手数料についても補助CDが入ります。

実行結果です。