振込手数料を対価の返還として扱った場合の影響額
インボイス制度の緩和措置「少額な返還インボイスの交付義務免除」について。
当初は入金時に差し引かれる振込手数料に係る消費税を、仮払消費税として処理し仕入税額控除を行う為には「返還インボイス」が必要とされていた。
しかし、緩和措置である「少額な返還インボイスの交付義務免除」により、返還インボイス不要で処理できるようになった。
少額な返還インボイスの交付義務免除とは
インボイス発行事業者が国内で行った課税資産の譲渡等につき、返品や値引き、割戻しなどの売上げに係る対価の返還等を行った場合には返還インボイスの交付義務がありますが、その金額が税込１万円未満である場合には、返還インボイスの交付義務が免除されます（新消法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を足すことでグループ内での順位を出している。
↓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
VBA100本ノック14本目：社外秘シート削除
出題内容
客先へ送付するブックを作成します。
シート名に「社外秘」の文字が含まれるシートを削除してください。
他のシートは計算式を消して値だけにしてください。
※シート間参照の数式あり。
※条件付き書式・入力規則は未使用。
※対象はアクティブブックで構いません。
自分の解答
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 iOn Error Resume Next
Sheets(c).Delete
Application.DisplayAlerts = TrueEnd Sub
その他
非表示シートがあるかも
保護がかかっていて削除できないかも
VBA100本ノック13本目：文字列の部分フォント
出題内容
選択セル（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
NextEnd 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
NextEnd Sub
VBA100本ノック12本目：セル結合を解除
出題内容
#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本目：セル結合の警告
出題内容
画像のようにシートにはところどころにセル結合があります。
これは放置しておく訳にはいきません。
セル結合されているセルには、メモ（旧コメント）で警告文を出しましょう。
※シートは任意、警告文はご随意に
自分の解答
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