【Excel関数・VBA】銀行預金の源泉税の算出入金額しか分からない時

受取利息は、源泉税が引かれた後の金額が入金されてきます。必要な情報が欠けているために経理処理において、負担になることがあります。エビデンスから一個ずつ入力するのも大変です。そんな時は、一気に計算式で逆算して求めた方が早かったりします。Excelを使うのも手です。そして、大企業においては、複数の預金口座があるのでまとめて算出してしまった方が早かったりします。

源泉税算出の逆算計算式
実務だとどうする？　零細・中小企業　Excel関数
実務だとどうする？　大企業編　VBAを使う

源泉税算出の逆算計算式

源泉税を計算するためには、まず受取利息（源泉税が引かれる前の金額）を求める必要があります。源泉税が引かれた後の金額（入金額）と源泉税率から受取利息を求めることができます。

Excelでの計算式は次の通りです：

=TRUNC(入金額 / (1 - 源泉税率))

ここで、TRUNC関数は数値の小数部分を切り捨てます。これにより、1円未満の端数がある場合にその端数を切り捨てることができます。

次に、求めた受取利息から入金額を引くことで源泉税を求めることができます。Excelでの計算式は次の通りです：

=TRUNC(受取利息 - 入金額)

仕訳は次の通りです：

法人税 ×××　　受取利息 ×××
普通預金 ×××

以上の計算式と仕訳を元に、具体的な数値を求めてみましょう。ただし、ここでは源泉税率を小数で表現します（例えば、15.315％は0.15315となります）。

実務だとどうする？　零細・中小企業　Excel関数

受取利息が源泉税が引かれた後の金額1725円入金がされていたと仮定

了解しました。具体的な数値を計算してみましょう。

まず、受取利息（源泉税が引かれる前の金額）を求めます。源泉税率は15.315％なので、これを小数で表現すると0.15315になります。したがって、Excelの計算式を使って受取利息を求めると次のようになります。

=TRUNC(1725 / (1 - 0.15315)

この計算式を使うと、受取利息は約2036円(端数切捨て)になります。

次に、求めた受取利息から入金額を引くことで源泉税を求めることができます。Excelの計算式を使って源泉税を求めると次のようになります

=TRUNC(2036 - 1725)

この計算式を使うと、源泉税は約311円（端数切り捨て）になります。

以上の計算により、受取利息は2036円、源泉税は311円、入金額は1725円となります。これらの数値を元に仕訳を作成すると次のようになります：

法人税 311　　受取利息 2036
普通預金 1725

注意事項

この回答は、一般的な情報提供のみを目的としており、税務に関するアドバイスとして解釈されるべきではありません。具体的な税務上の問題は、税務専門家に相談してください。

実務だとどうする？　大企業編　VBAを使う

大企業だと銀行口座もたくさんあり、一個ずつ逆算して算出するのも大変だったりします。

例

複数の口座があります。源泉税控除後の受取利息の入金額が　ExcelのＣ列に大量にあります。D列に入金額、E列に源泉税、F列に受取利息を出力するようにしてください。

VBAコード

Sub CalculateInterestAndTax()
    ' ワークシートと範囲の設定
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を適切なものに変更してください

    ' 源泉税率の設定
    Dim taxRate As Double
    taxRate = 15.315 / 100

    ' C列の最終行を取得
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row

    ' 各セルをループして計算
    Dim i As Long
    For i = 2 To lastRow
        ' 入金額の取得
        Dim deposit As Double
        deposit = ws.Cells(i, "C").Value

        ' 受取利息の計算
        Dim interest As Double
        interest = deposit / (1 - taxRate)

        ' 源泉税の計算（端数切り捨て）
        Dim tax As Double
        tax = Application.WorksheetFunction.Floor(interest - deposit, 1)
        
        ' 入金額に端数整理後源泉税を足す

　　　　interest = deposit + tax

        ' D列に入金額、E列に源泉税、F列に受取利息を出力
        ws.Cells(i, "D").Value = deposit
        ws.Cells(i, "E").Value = tax
        ws.Cells(i, "F").Value = interest
    Next i
End Sub

これで処理をすれば、何千データ、何万データがあっても一気に計算してくれます。