Sub Siwake() Dim Mihon As Worksheet Dim Siwake As Worksheet Dim RB As Worksheet
Dim i As Long Dim d As Long '伝票番号
Worksheets.Add ActiveSheet.Name = "仕訳形式" Set Siwake = ActiveSheet Set RB = Worksheets(2) Workbooks.Open Filename:="F:\CSV仕分け読み込み見本\RB-torihikimeisai 仕分け形式見本.csv" '原本と同じフォルダ(USBの仕訳読み込み見本)に入れておく Set Mihon = ActiveSheet Siwake.Rows(1).Value = Mihon.Rows(1).Value '見出し行の転記
i = 2
Do While RB.Cells(i, 1) <> "" Siwake.Cells(i, 2).Value = RB.Cells(i, 1) i = i + 1 Loop '取引日入力 この後iは常に入力した行+1の数になっている
d = 1
Do Until d = i - 1 Siwake.Cells(d + 1, 1).Value = d d = d + 1 Loop '伝票連番入力
d = 1 Do Until d = i - 1 Siwake.Cells(d + 1, 4).Value = "通常取引" Siwake.Cells(d + 1, 5).Value = "振替" Siwake.Cells(d + 1, 11).Value = 1 d = d + 1 Loop '共通項目入力
d = 1 Do Until d = i - 1 Siwake.Cells(d + 1, 18).Value = RB.Cells(d + 1, 2).Value Siwake.Cells(d + 1, 30).Value = RB.Cells(d + 1, 2).Value d = d + 1 Loop '金額を転記
Dim Mihon As Worksheet→「わくわく青色申告」に取り込めたワークシートを見本として用意します。そのシートを代入する変数です。 Dim Siwake As Worksheet→いまから楽天銀行の明細を会計ソフト形式に変換しながら転記する予定のシートです。 Dim RB As Worksheet→楽天銀行の明細のシートです。
Dim i As Long→カウンタとして使います Dim d As Long '伝票番号→カウンタとして使います
Worksheets.Add→Siwakeとなるシートを挿入します。 ActiveSheet.Name = "仕訳形式"→挿入したシートに名前を付けます。 Set Siwake = ActiveSheet→挿入したシートを変数Siwakeに代入 Set RB = Worksheets(2)→Worksheet(2)はもともとマクロを記入している楽天銀行の明細です(Worksheet(1)はSiwake)。これをワークシート変数RBに代入。 Workbooks.Open Filename:="F:\CSV仕分け読み込み見本\RB-torihikimeisai 仕分け形式見本.csv" '原本と同じフォルダ(USBの仕訳読み込み見本)に入れておく
d = 1 Do Until d = i - 1 Siwake.Cells(d + 1, 4).Value = "通常取引" Siwake.Cells(d + 1, 5).Value = "振替" Siwake.Cells(d + 1, 11).Value = 1 d = d + 1 Loop '共通項目入力
d = 1 Do Until d = i - 1 Siwake.Cells(d + 1, 18).Value = RB.Cells(d + 1, 2).Value Siwake.Cells(d + 1, 30).Value = RB.Cells(d + 1, 2).Value d = d + 1 Loop '金額を転記