現金出納帳をワンクリックで会計ソフトのフォーマットに変換する方法

Pocket

ExcelVBAを使うと、今まで解説してきた動作をワンクリックで行うことができます。

真ん中の青いボタンをクリックします。
1306191

右側の会計ソフトにインポートするフォーマットに自動でデータが移ります。
1306192

実は、ボタンをクリックしたときにマクロ(VBA)が実行されるようになっています。

そのコードです。
Sub 変換()
Dim a As Integer
a = 3
Do Until Cells(a, 1).Value = “”
Cells(a, 7).Value = Cells(a, 1).Value
Cells(a, 11).Value = Cells(a, 2).Value
If Cells(a, 4).Value = “” Then
Cells(a, 8).Value = 101
Cells(a, 9).Value = 999
Cells(a, 10).Value = Cells(a, 3).Value
Else
Cells(a, 9).Value = 101
Cells(a, 8).Value = 999
Cells(a, 10).Value = Cells(a, 4).Value
End If
a = a + 1
Loop
End Sub
この解説は追ってしていきたいと思いますが、経理を効率化するには、ExcelVBAが大変役立ちます。
このコードでは科目の判別までしていませんが、それも付け加えていきます。