振込手数料を対価の返還として扱った場合の影響額

インボイス制度の緩和措置「少額な返還インボイスの交付義務免除」について。

当初は入金時に差し引かれる振込手数料に係る消費税を、仮払消費税として処理し仕入税額控除を行う為には「返還インボイス」が必要とされていた。

しかし、緩和措置である「少額な返還インボイスの交付義務免除」により、返還インボイス不要で処理できるようになった。

少額な返還インボイスの交付義務免除とは

インボイス発行事業者が国内で行った課税資産の譲渡等につき、返品や値引き、割戻しなどの売上げに係る対価の返還等を行った場合には返還インボイスの交付義務がありますが、その金額が税込１万円未満である場合には、返還インボイスの交付義務が免除されます（新消法57の４③、新消令70の９③二）。
　例えば、売手が負担する振込手数料相当額を売上値引きとして処理している場合には、通常、当該振込手数料相当額は１万円未満となりますので、当該売上値引きに係る返還インボイスの交付義務が免除されます。
引用：国税庁 少額な返還インボイスの交付義務免除の概要

つまり、今まで通り「仮払消費税の発生」として処理する場合はインボイスが必要になるが、振込手数料を売上値引きとして処理すればインボイスは不要になるということ。

先方に手数料分のインボイスの発行を依頼することは手間であるし、おそらくどこの経理もこの対応は避けたいはず。となれば、どこの会社も振込手数料を「対価の返還」として処理するはず。

しかし、仮にインボイスの発行を要求された場合は制度上は発行の義務があり断ることはできない。

もしかしたら、緩和措置を使うと事務工数が減る代わりに納税金額が増加してしまうのではないか。と思い影響額を計算してみる。 

売手が負担する振込手数料とは

そもそも本件で問題となっている振込手数料とは。

以下の取引があった場合の差額880円のこと。

4月　A社（当社）がB社（取引先）へ110,000円請求を行った。
5月　B社からの109,120円の入金を確認した。差額880円が発生している。

仕訳にすると以下の通り

【4月】
A社　売掛金：110,000　/　売上：100,000　仮受消費税：10,000
B社　仕入：100,000　仮払消費税：10,000　/　買掛金：110,000

【5月】
A社　現預金：109,120　手数料：800　仮払消費税：80　/　売掛金：110,000
B社　買掛金：110,000　/　現預金：110,000

前提条件

税の計算方法は個別対応方式を採用している。

以下の取引のみが発生している。

【売上】
・課税売上：100,000　仮受消費税：10,000
・非課税売上：8,000　

【仕入】
・課税仕入：50,000　仮払消費税：5,000
・非のみ仕入：2,000　仮払消費税：200
・共通仕入：5,000　仮払消費税：500
・共通仕入（振込手数料）：800　仮払消費税：80

課税売上割合＝100,000/(100,000+8,000)=0.926925....≒0.92

緩和措置を適用しなかった場合

振込手数料に係る消費税は通常通り「仮払消費税」として処理をする。

仮受消費税：10,000
仮払消費税：5,000+{(500+80)×0.92}≒5,533
差引：10,000-5,533=4,467

緩和措置を適用した場合

振込手数料に係る消費税を「対価の返還」として処理をする。

仮受消費税：10,000-80=9,920
仮払消費税：5,000+(500×0.92)=5,460
差引：9,920-5,460=4,460

まとめ

振込手数料に係る消費税を「対価の返還」として処理した方が、7円納税額減少した。
（4,467-4,460=7)

会社の負担が減少し、事務工数も削減できるならこれを使わない理由はない。

ただ、今まで振込手数料（経費）として処理していた項目が、対価の返還（売上のマイナス）として処理してしまうと、会社の決算書に影響してしまう。

国税庁のホームページを見ると、以下の説明があり消費税計算上のみ対価の返還として扱うことができるようになる為、特に問題はなさそうである。

なお、売手が負担する振込手数料相当額について、経理処理を支払手数料としつつ、消費税法上、売上げに係る対価の返還等とすることもできますが、この場合であっても、売手が買手に対して売上げに係る対価の返還等を行った場合の適用税率は、売上げに係る対価の返還等の基となる課税資産の譲渡等の適用税率に従うことから、適用税率に応じた区分のほか、帳簿に売上げに係る対価の返還等に係る事項を記載する必要があります。
引用：国税庁 少額な返還インボイスの交付義務免除の概要

それでも振込手数料のインボイスを発行して欲しいと要求してくる取引先がでてきた時にすぐ発行できるよう、準備しておいた方がよさそう。

グループごとの順位「SUMPRODUCT関数」

都道府県別に何月の売上金額が多かったのか順位をつける。

（例）北海道　1位：6月　2位：4月　3位：5月

↓

SUMPRODUCT関数

対応する配列の合計を返す関数。
配列を乗算し、最後に1を足すことでグループ内での順位を出している。

Microsoft「SUMPRODUCT関数について」

↓D1セルには2が表示するようにしている。（北海道の中で507が2番目に大きいから）

D2セルに「=SUMPRODUCT*1+1」と入力している。

SUMPRODUCT関数の「引数1」に「+1」をすることで順位2を求めている。

配列について

SUMPRODUCT(($B$2:$B$10=B2)*($C$2:$C$10>C2))の結果は、

{0;0;0;0;0;0;0;1;0}となっている。このままだと1が表示されるだけ。

($B$2:$B$10=B2)について

$B$2:$B$10の範囲とB2が一致しているかどうかを判別している。
一致していればTRUE=1、不一致の場合はFALSE=0となる。
{1;0;0;1;0;0;0;1;0}となる。

($C$2:$C$10>C2)について

$C$2:$C$10の範囲でC2よりも大きい数値があるかどうか判別している。
大きければTRUE=1、小さければFALSE=0となる。
{0;0;1;0;0;1;1;1;1}となる。

↓C2(507)より大きいのは769,677,533,666,537の5つ。

SUMPRODUCT(($B$2:$B$10=B2)*($C$2:$C$10>C2))

→SUMPRODUCT({1;0;0;1;0;0;0;1;0}*{0;0;1;0;0;1;1;1;1})

　→1

グループ北海道の中で507より大きい数字は666の1つのみ。
つまり507は2番目に大きい数字ということになる。

順位をつける為最後に+1をしている。

一覧表作成

それぞれ順位をつけたものを表に反映させる。

それぞれキーを作成し、INDEXMATCHで表示させる。

*1:$B$2:$B$10=B2)*($C$2:$C$10>C2

よく使うコード

連続データ

www.excel725.com

VBA100本ノック14本目：社外秘シート削除

excel-ubara.com

出題内容

客先へ送付するブックを作成します。
シート名に「社外秘」の文字が含まれるシートを削除してください。
他のシートは計算式を消して値だけにしてください。
※シート間参照の数式あり。
※条件付き書式・入力規則は未使用。
※対象はアクティブブックで構いません。

自分の解答

Sub wrk()

    Dim i As Long
    Dim c As Long
    
    Application.DisplayAlerts = False
    
    For i = 1 To Sheets.Count
    
        If InStr(Sheets(i).Name, "社外秘") <> 0 Then
            c = i
        Else
            Sheets(i).Cells.Copy
            Sheets(i).Range("A1").PasteSpecial Paste:=xlPasteValues
        End If
        
    Next i

    On Error Resume Next
    Sheets(c).Delete
    
    Application.DisplayAlerts = True

End Sub

その他

非表示シートがあるかも

保護がかかっていて削除できないかも

VBA100本ノック13本目：文字列の部分フォント

excel-ubara.com

出題内容

選択セル（Selection:複数範囲あり）の文字列に「注意」という文字があった場合は、その「注意」の文字だけを"赤の太字"に設定してください。
セル以外（図形等）が選択されている場合は何もせずに正常終了するようにしてください。

自分の解答

Sub vba13()

    Dim 検索キーワード  As String
    Dim 発見位置        As Long
    Dim 文字数          As Long
    Dim i               As Long
    
    検索キーワード = "注意"
    文字数 = Len(検索キーワード)
    
    For i = 1 To Selection.Count
        
        発見位置 = InStr(Selection.Item(i), 検索キーワード)
        
        If 発見位置 <> 0 Then
        
            With Selection.Item(i).Characters(Start:=発見位置, Length:=文字数)
                .Font.ColorIndex = 3
                .Font.Bold = True
            End With
        
        Else
        End If
    
    Next

End Sub

2つ目の"注意"に対して処理できていない。
図形が選択されている時の対応ができていない。

修正

Instrで文字列検索する際に、開始位置をずらすことで2つ目の"注意”に対応できるように修正。
"注意"という文字列が存在しない場合は0になる。結果が0になった場合はループを抜ける。

Sub vba13()

    Dim 検索キーワード  As String
    Dim 発見位置        As Long
    Dim 文字数          As Long
    Dim i               As Long
    Dim ix              As Long
    
    検索キーワード = "注意"
    文字数 = Len(検索キーワード)
    
    If TypeName(Selection) <> "Range" Then
        Exit Sub
    End If
    
    For i = 1 To Selection.Count
        ix = 1
        Do
            発見位置 = InStr(ix, Selection.Item(i), 検索キーワード)
            If 発見位置 = 0 Then
                Exit Do
            Else
                With Selection.Item(i).Characters(Start:=発見位置, Length:=文字数)
                    .Font.ColorIndex = 3
                    .Font.Bold = True
                End With
                ix = 発見位置 + 文字数
            End If
            
        Loop
        
    Next

End Sub

VBA100本ノック12本目：セル結合を解除

excel-ubara.com

出題内容

#VBA100本ノック 12本目
A1から始まる表範囲のC列に金額が入っています。
しかし、ところどころに結合されたセルがあります。
セル結合を解除し、入っている金額を整数で均等に割り振ってください。（2枚目画像）
端数処理方法は任意とします。
※結合セルには正の整数しか入っていません。

自分の解答

Sub vba12()

　Dim rng As Range
　Dim val As Variant

　For Each rng In Range("C1:C" & Cells(Rows.Count, 3).End(xlUp).Row)

　　If rng.MergeCells Then
　　　val = rng.Value

　　　With rng.MergeArea
　　　　.UnMerge
　　　　.Value = val / .Count
　　　End With

　　End If

　Next rng

End Sub

 .Value = val / .Count　としている為、割り算の結果がそのまま各セルに入力される。

小数点ではなく整数で入力したい。

修正

Sub vba12()

　Dim rng As Range
　Dim val As Variant
　Dim i As Long

　For Each rng In Range("C1:C" & Cells(Rows.Count, 3).End(xlUp).Row)

　　If rng.MergeCells Then
　　　val = rng.Value

　　　With rng.MergeArea
　　　　.UnMerge
　　　　i = Int(val / .Count)
　　　　.Value = i
　　　　rng(1) = rng(1) + val - (i * .Count)
　　　End With

　　End If

　Next rng

End Sub

 Intで切り捨てた後にあまりをrng(1)に足す。

余りが大きい場合はrng(1)のズレも大きくなってしまう。

VBA100本ノック11本目：セル結合の警告

excel-ubara.com

出題内容

画像のようにシートにはところどころにセル結合があります。
これは放置しておく訳にはいきません。
セル結合されているセルには、メモ（旧コメント）で警告文を出しましょう。
※シートは任意、警告文はご随意に

自分の解答

Sub vba11()

　Dim i As Long
　Dim LastRow As Long

　LastRow = Cells(Rows.Count, 1).End(xlUp).Row

　For i = 2 To LastRow
　　If Cells(i, 3).MergeCells Then
　　　Cells(i, 3).AddComment "結合されています"
　　End If
　Next i

End Sub

 3列目に対してのみ処理をかけている。
1、2列目のデータに結合されているセルがあってもコメントをつけることができない。
既にコメントされているセルに対してコメントをつけようとするとエラーになる。

修正

 一度コメントを削除してから、全セルに対して処理をかけるコードに修正。

Sub VBA11()

　Dim rng As Range

　'コメント削除
　Range("A1").CurrentRegion.ClearComments

　'全セルを対象
　For Each rng In Range("A1").CurrentRegion
　　If rng.MergeCells Then
　　　rng.AddComment "セル結合されています"
　　End If
　Next

End Sub