前回、入金取引か出金取引かの判別をしました。
今までの処理で会計ソフトにインポートするのに必要な情報のうち、
日付、預金科目の貸借どちらか、金額、摘要です。（金額と摘要は移すだけです。）
ここまでのVBAの処理をまとめてみます。
Sub 仕訳に変換()
Dim a As Integer
a = 2
Do Until Cells(a, 1).Value = “”
If Right(Cells(a, 1).Value, 1) = “ﾒ” Then
Cells(a, 6).Value = Left(Cells(a, 1).Value, 4) & “/” & Mid(Cells(a, 1).Value, 6, 2) & “/” & Mid(Cells(a, 1).Value, 9, 2)
Else
Cells(a, 6).Value = Cells(a, 1)
End If
Worksheets(“Sheet1”).Cells(a, 1).Value = Cells(a, 6).Value
If IsNumeric(Cells(a, 3).Value) = True Then
Worksheets(“Sheet1”).Cells(a, 2).Value = 999
Worksheets(“Sheet1”).Cells(a, 3).Value = 121
Worksheets(“Sheet1”).Cells(a, 4).Value = Cells(a, 3).Value
Worksheets(“Sheet1”).Cells(a, 5).Value = Cells(a, 4).Value
Else
Worksheets(“Sheet1”).Cells(a, 2).Value = 121
Worksheets(“Sheet1”).Cells(a, 3).Value = 999
Worksheets(“Sheet1”).Cells(a, 4).Value = Cells(a, 4).Value
Worksheets(“Sheet1”).Cells(a, 5).Value = Cells(a, 3).Value
End If
a = a + 1
Loop
End Sub
このコードを実行すると、
Sheet1に仕訳データとして変換できました。
あとは相手勘定の設定です。
