表を仕訳に変換するのは、横の動きと縦の動きの組合せです。
今回は縦の動きです。

Sub 縦の動き()
Dim a As Integer
Worksheets(“データ”).Activate
a = 3
Do Until Cells(a, 1).Value = “”
Cells(a, 10).Value = a
a = a + 1
Loop
End Sub
続きを読む →

表も仕訳に変換することができます。

例えば下記のようは図があったとします。

これをVBAで組んだマクロを実行することで、
続きを読む →

次に入金取引です。
入金取引該当するかどうかは、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
続きを読む →

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

続きを読む →