マネーフォワード債務支払で作成した発生時の仕訳をベースにして総合振込などの支払時の仕訳をExcelマクロを使って作成する個人的方法

2023年8月12日

前回、マネーフォワードの債務支払サービスを利用している場合に、銀行などから支払いをした際の仕訳（支払時の仕訳）を作成する方法を記事にしましたが、今回はExcelマクロを使って同じ作業をする場合にはどうするか考えてみたので記事にしておきます。

前回の記事はこちらからどうぞ↓

マネーフォワード債務支払で作成した発生時の仕訳をベースにして総合振込などの支払時の仕訳を作成するExcelマクロ

マネーフォワード債務支払というサービスを使うと、マネーフォワード会計（MF）に「発生時」の仕訳を連動することができます。

この発生時の仕訳をMFからExcelにエクスポートして、日付や勘定科目を変更して支払時の仕訳を作成し、再度MFにインポートすることで「支払時」の仕訳を作成していきます。

おおまかな流れはこんな感じです。

前回の記事ではその作業を「手作業」でやる場合の方法を紹介したのですが、毎回毎回手作業でポチポチやるのは面倒くさいのでマクロを作ってみました。

今回のマクロは２つのシートを使っています。

一つはMFからエクスポートしたデータをそのまま貼り付けるシート（元データシート）↓

このシートで支払をした時の仕訳（支払時仕訳）を作る元になる発生時の仕訳を絞り込みます。
絞り込みの方法についてはV列でおこないます。詳しくは前回の記事を参考にしてもらえればと思います。

このシートで加工したい仕訳の絞り込みを行ったらその仕訳をコピーして２つめのシート（データ加工シート）に貼り付けます↓

このシートで支払時の日付や勘定科目や補助科目の設定をしてマクロを実行して支払時の仕訳を作成します。

作成した仕訳についてはCSV保存してMFへ取り込みます。

マクロのコードはこんな感じです↓

Sub data_create()

Dim ws_data As Worksheet
Dim lastrow As Long
Dim i As Long

Set ws_data = Worksheets("データ加工")

lastrow = ws_data.Cells(Rows.Count, 2).End(xlUp).Row


With ws_data

'貸方勘定科目を借方勘定科目へ転記

.Range(.Range("k6"), .Range("o" & lastrow)).Copy .Range("c6")

    For i = 6 To lastrow
        
        '取引日の変更（振込日付にする）
        
        .Range("b" & i).Value = .Range("b3").Value
        
        '取引NOの変更（1から付番）
        
        .Range("a" & i).Value = .Range("a" & i).Row - 5
    
        '貸方勘定科目の変更
        
        .Range("k" & i).Value = .Range("d3").Value
    
        '貸方補助科目の変更
        
        .Range("l" & i).Value = .Range("e3").Value
             
        '借方税金額の変更
        
        .Range("j" & i).Value = 0

    Next i

End With

MsgBox "仕訳の加工が完了しました" & vbCrLf & "CSV保存ボタンを押してデータを保存してください", vbInformation

End Sub

実際にマクロを実行するとこんな感じになります。