次に入金取引です。
入金取引該当するかどうかは、G列が空白でない場合です。
コードで書くと

If Cells(a, 7).Value = “” Then
Worksheets(“Sheet1”).Cells(a – 4, 2).Value = “現金”
Worksheets(“Sheet1”).Cells(a – 4, 3).Value = Cells(a, 3).Value
Worksheets(“Sheet1”).Cells(a – 4, 4).Value = Cells(a, 6).Value
End If
続きを読む →

日付と摘要は、貸借関係がないのでそのままストレートにデータを移せばいいのですが、
科目と金額は貸借によってコードが変わります。

現金支出の取引のデータを仕訳に変換するコードです。

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
続きを読む →

コピー貼り付けで仕訳に変換する方法もありますが、それでは業務の効率化に限界があります。
やはりExcelVBAで全自動で変換できる方法をご紹介します。
開発タブがない方はこちら。
一番最初にVBEを起動します。

続きを読む →