【Excel/VBA】受取利息の源泉税計算を完全攻略！逆算で一発算出＆仕訳も楽々！

実務でよく使う税務

【Excel/VBA】
受取利息の源泉税計算を完全攻略！
逆算で一発算出＆仕訳も楽々！

1. はじめに：受取利息の処理で困っていませんか？

「受取利息」という言葉は、ビジネスでよく耳にするものの、実際に経理処理をするとなると、意外と手間がかかるものです。特に、源泉税が差し引かれた後の金額しか入金されない場合、

  • 「源泉税をいくら差し引かれているのか？」
  • 「差し引かれる前の受取利息はいくらだったのか？」

といった疑問が生じ、経理処理で頭を悩ませている方も多いのではないでしょうか。

この記事では、受取利息の源泉税計算でつまずきやすいポイントを徹底解説し、

  • Excelを使った簡単な逆算方法
  • VBAを活用した大量データの一括処理方法
  • 仕訳の基本

まで、初心者の方にもわかりやすくステップバイステップで解説します。

この記事を読めば、あなたも受取利息の処理で迷うことなく、スムーズに経理業務を進めることができるようになるでしょう。

2. 受取利息の源泉税とは？

まずは、受取利息の源泉税について、基本的な知識を整理しておきましょう。

2.1 源泉税とは？

源泉税とは、所得税の一種で、利息や配当などの所得が発生した際に、その支払者が所得税を差し引いて国に納める制度です。受取利息の場合、銀行などの金融機関が利息を支払う際に、あらかじめ源泉税を差し引いて、残りの金額を入金します。

2.2 源泉税の税率

受取利息にかかる源泉税の税率は、2024年現在、所得税15.315%と復興特別所得税0%（2037年12月31日まで復興特別所得税が上乗せされています。）の合計15.315%です。

2.3 源泉徴収の仕組み

利息が発生した場合、金融機関はまず利息の総額を計算し、そこから15.315%の源泉税を差し引きます。差し引かれた後の金額が、実際の入金額として口座に振り込まれるという仕組みです。

3. 受取利息の源泉税計算における課題

源泉税が差し引かれた後の金額しか入金されない場合、経理処理で以下の課題が生じます。

  • 受取利息の総額が分からない：源泉税が差し引かれる前の金額（受取利息の総額）が、入金明細には記載されないため、手計算で求める必要がある。
  • 源泉税額が分からない：源泉税の金額も、入金明細には記載されないため、手計算で求める必要がある。
  • 証拠資料の突き合わせが大変：銀行口座が多い場合、各口座の明細を確認し、手作業で計算するのは非常に手間がかかる。
  • 大量データの処理に時間がかかる：毎月、大量の入金がある場合、手作業での計算は非効率的。

これらの課題を解決するためには、効率的な計算方法と、一括処理が可能なツールを活用する必要があります。

4. Excelで受取利息の源泉税を逆算する方法（初心者向け）

ここからは、Excelを使った簡単な逆算方法をステップバイステップで解説します。

4.1 逆算の基本式

源泉税が差し引かれる前の受取利息を求めるための基本式は以下の通りです。

受取利息（源泉税前） = 入金額 ÷ (1 – 源泉税率)

この式を使えば、入金額と源泉税率さえ分かれば、簡単に受取利息の総額を求めることができます。

4.2 Excelでの計算手順

  1. Excelシートの準備：
    • まず、Excelシートを開き、以下の項目を入力する列を用意します。
      • A列：入金額（源泉税控除後の金額）
      • B列：受取利息（源泉税控除前の金額）
      • C列：源泉税額
    • 1行目に見出し（「入金額」「受取利息」「源泉税」）を入力しましょう。
    • 2行目以降に入金データを入力します。
  2. 受取利息の計算式を入力：
    • B2セルに以下の計算式を入力します。
      excel =TRUNC(A2 / (1 - 0.15315))
    • この式は、「入金額を(1 – 源泉税率)で割り、小数部分を切り捨てる」という意味になります。
    • 0.15315は源泉税率（15.315%）を小数で表したものです。
    • TRUNC関数は、計算結果の小数点以下を切り捨てる関数です。
  3. 源泉税額の計算式を入力：
    • C2セルに以下の計算式を入力します。
      excel =TRUNC(B2 - A2)
    • この式は、「受取利息から入金額を引く」という意味になります。
    • TRUNC関数は、計算結果の小数点以下を切り捨てる関数です。
  4. 計算式をコピー：
    • B2セルとC2セルに入力した計算式を、必要な行数までコピーします。
      • B2セルとC2セルを選択し、右下の小さな四角を下にドラッグすれば、簡単にコピーできます。
  5. 結果の確認：
    • これで、入金額に対応する受取利息と源泉税額が、Excelで自動的に計算されます。

4.3 具体例

例えば、入金額が1,725円だった場合、以下のようになります。

  • 受取利息（源泉税控除前）：
    =TRUNC(1725 / (1 - 0.15315)) → 約2,036円
  • 源泉税額：
    =TRUNC(2036 - 1725) → 約311円

したがって、1,725円の入金は、2,036円の受取利息から311円の源泉税が差し引かれたものと分かります。

4.4 注意点

  • 源泉税率の確認：源泉税率は法改正などにより変更されることがあるため、常に最新の税率を確認するようにしましょう。
  • 端数処理：ExcelのTRUNC関数は小数点以下を切り捨てるため、端数処理による誤差が生じる場合があります。
  • 他の税金との区別：受取利息の源泉税は、他の税金とは区別して処理する必要があります。

5. VBAで受取利息の源泉税を一括計算する方法（大企業向け）

Excelを使った計算方法でも十分に便利ですが、銀行口座が多数あり、大量のデータ処理が必要な場合は、VBA（Visual Basic for Applications）を活用することで、さらに効率的な処理が可能です。

5.1 VBAのメリット

  • 大量データの一括処理：何千件、何万件のデータでも、一瞬で計算処理が可能。
  • 処理の自動化：ボタン一つで自動的に計算処理を実行できる。
  • ミス防止：手作業による計算ミスを減らすことができる。

5.2 VBAコードの解説

以下のVBAコードは、ExcelシートのC列に入金額が入力されている場合、D列に入金額、E列に源泉税額、F列に受取利息を出力するものです。

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

コード解説

  1. Sub CalculateInterestAndTax(): VBAコードの開始を宣言します。
  2. Dim ws As Worksheet: ワークシートを格納する変数を宣言します。
  3. Set ws = ThisWorkbook.Sheets("Sheet1"): 「Sheet1」という名前のワークシートを変数wsに格納します。シート名を適宜変更してください。
  4. Dim taxRate As Double: 源泉税率を格納する変数を宣言します。
  5. taxRate = 15.315 / 100: 源泉税率を小数で設定します。
  6. Dim lastRow As Long: C列のデータの最終行を格納する変数を宣言します。
  7. lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row: C列の最終行番号を取得します。
  8. For i = 2 To lastRow: 2行目から最終行までをループします。
  9. Dim deposit As Double: 入金額を格納する変数を宣言します。
  10. deposit = ws.Cells(i, "C").Value: C列のi行目のセルの値をdeposit変数に格納します。
  11. Dim interest As Double: 受取利息を格納する変数を宣言します。
  12. interest = deposit / (1 - taxRate): 受取利息を計算します。
  13. Dim tax As Double: 源泉税額を格納する変数を宣言します。
  14. tax = Application.WorksheetFunction.Floor(interest - deposit, 1): 源泉税額を計算します。
  15. interest = deposit + tax　入金額に端数整理後源泉税を足して受取利息を再計算
  16. ws.Cells(i, "D").Value = deposit: D列のi行目のセルに入金額を書き込みます。
  17. ws.Cells(i, "E").Value = tax: E列のi行目のセルに源泉税額を書き込みます。
  18. ws.Cells(i, "F").Value = interest: F列のi行目のセルに受取利息を書き込みます。
  19. Next i: 次の行へループを続けます。
  20. End Sub: VBAコードの終了を宣言します。

5.3 VBAコードの実行方法

  1. Excelの開発タブを開く：
    • 「ファイル」→「オプション」→「リボンのユーザー設定」で、右側の「開発」にチェックを入れ、「OK」をクリックします。
  2. VBAエディターを開く：
    • Excelの「開発」タブにある「Visual Basic」をクリックして、VBAエディターを開きます。
  3. モジュールを挿入：
    • VBAエディターで「挿入」→「標準モジュール」を選択します。
  4. VBAコードを貼り付け：
    • 上記で解説したVBAコードを、モジュールに貼り付けます。
  5. マクロを実行：
    • VBAエディターで「実行」→「Sub/ユーザーフォームの実行」を選択し、表示されるダイアログで「CalculateInterestAndTax」を選択して「実行」をクリックします。

これで、Excelシート上のC列にある入金額から、D列に入金額、E列に源泉税額、F列に受取利息が自動的に計算され、出力されます。

5.4 注意点

  • VBAの知識が必要：VBAを使用するためには、ある程度のVBAの知識が必要です。
  • Excelのバージョン：VBAコードは、Excelのバージョンによっては動作が異なる場合があります。
  • データの整合性：VBAを使用する前に、Excelシートに入力されているデータの整合性を確認する必要があります。

6. 受取利息の仕訳方法

受取利息の経理処理では、仕訳を正しく行うことが重要です。

6.1 仕訳の基本

受取利息の仕訳は、以下のようになります。

（借方）普通預金  ×××　（貸方）受取利息   ×××
（借方）法人税等  ×××
  • 普通預金：実際に入金された金額を記入します。
  • 受取利息：源泉徴収前の受取利息の総額を記入します。
  • 法人税等：源泉徴収された税額を記入します。

6.2 仕訳の具体例

上記の例（入金額1,725円、源泉税311円、受取利息2,036円）を仕訳すると、以下のようになります。

（借方）普通預金  1,725　（貸方）受取利息 2,036
（借方）法人税等   311

6.3 注意点

  • 税区分の選択：法人税等は、税務申告時に法人税や法人住民税などと合わせて申告する必要があるため、適切に税区分を選択する必要があります。
  • 勘定科目の確認：会社の会計基準や税務上のルールにより、勘定科目が異なる場合があるため、必要に応じて専門家に確認するようにしましょう。

7. まとめ

この記事では、受取利息の源泉税計算から仕訳まで、一連の処理を解説しました。

  • Excelの基本式を使えば、受取利息の源泉税を簡単に逆算できる
  • VBAを使えば、大量データの一括処理が効率的に行える
  • 仕訳を正しく行うことで、正確な経理処理が可能になる

受取利息の処理は、企業規模に関わらず、正確さと効率性が求められます。この記事を参考に、ExcelやVBAを活用して、経理業務の効率化を目指しましょう。

8. FAQ

Q: 源泉税率は変更されることはありますか？

A: はい、源泉税率は法改正などにより変更されることがあります。常に最新の税率を確認するようにしましょう。

Q: Excelの計算結果が、正確でないように感じるのですが。

A: Excelの計算では、端数処理によって若干の誤差が生じる場合があります。特に、TRUNC関数は小数部分を切り捨てるため、端数処理の方法によっては、誤差が生じることがあります。

Q: VBAコードをコピーしても、うまく動作しないのですが。

A: VBAコードをコピーした際に、誤って空白が入っていたり、文字が欠けていたりする可能性があります。コードを再度確認し、正確に貼り付けるようにしてください。また、Excelのバージョンによっても動作が異なる場合があります。

Q: 経理処理について、もっと詳しいアドバイスが欲しいのですが。

A: 税務に関するアドバイスは、税務専門家にご相談ください。税理士や会計士に相談することで、より専門的なアドバイスを得ることができます。

タイトルとURLをコピーしました