日付と摘要は、貸借関係がないのでそのままストレートにデータを移せばいいのですが、
科目と金額は貸借によってコードが変わります。
現金支出の取引のデータを仕訳に変換するコードです。
If Cells(a, 6).Value = “” Then
Worksheets(“Sheet1”).Cells(a – 4, 2).Value = Cells(a, 3).Value
Worksheets(“Sheet1”).Cells(a – 4, 3).Value = “現金”
Worksheets(“Sheet1”).Cells(a – 4, 4).Value = Cells(a, 7).Value
End If
続きを読む