ここまでのVBAコードです。
Sub 仕訳に変換()
Dim a As Integer
a = 2
Worksheets(“meisai”).Activate
Do Until Cells(a, 1).Value = “”
Worksheets(“Sheet1”).Cells(a, 1).Value = Left(Cells(a, 1).Value, 3) + 1988 & “/” & Mid(Cells(a, 1).Value, 5, 2) & “/” & Mid(Cells(a, 1).Value, 8, 2)
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
On Error Resume Next
Worksheets(“Sheet1”).Cells(a, 2).Value = WorksheetFunction.VLookup(Cells(a, 4).Value, Worksheets(“摘要”).Range(“科目コード”), 2, False)
On Error GoTo 0
On Error Resume Next
Worksheets(“Sheet1”).Cells(a, 3).Value = WorksheetFunction.VLookup(Cells(a, 3).Value, Worksheets(“摘要”).Range(“科目コード”), 2, False)
On Error GoTo 0
On Error Resume Next
If Worksheets(“Sheet1”).Cells(a, 2).Value = 999 Then
Worksheets(“Sheet1”).Cells(a, 2).Value = WorksheetFunction.VLookup(Cells(a, 2).Value, Worksheets(“摘要”).Range(“科目コード”), 2, False)
End If
On Error GoTo 0
a = a + 1
Loop
End Sub
