源泉徴収税額表（月額）をエクセルで簡単に検索

教えてください

上記件なのですが表を見てるとイライラしてきます（バカなので）
そこでエクセルのなかで

「290,000以上293,000未満」とかありますが
291,000の人を検索する方法はないでしょうか？
出来れば　291,000×2（人）＝4,800円みたいな式？は作成できるのでしょうか？

対象税額が3,000飛びなのはわかりますが
扶養人数の控除額の比率がバラバラなので質問させていただきました

良い案ありましたらよろしく願いします
（税額表と源泉徴収簿は一つのブックに入れる予定です）

No.2 ベストアンサー 回答者： moon-and-star 回答日時： 2016/11/17 09:57

出来合いのこんなファイルを使ってはいかがですか？

http://www.vector.co.jp/soft/win95/business/se44 …

この回答へのお礼

こんな感じです
ありがとうございます
毎年更新されるのでしょうかね？

お礼日時：2016/11/17 11:26

No.5 回答者： ママチャリ 回答日時： 2016/11/17 15:47

こんなユーザ定義関数を作ってみてはいかがでしょう。

まず、下記のVBAを標準モジュールに張り付けます。
次に、国税庁から月額表（Excel版）をダウンロードして、源泉徴収簿と同じブックにコピーします。
そのうえで、源泉徴収簿の控除額のセルに次の数式を設定します。

=源泉徴収税額(A1,B1)

上記A1は「その月の社会保険料等控除後の給与等の金額」のセルを、B1は「扶養親族等の数」のセルを指します。

ちなみに、このサンプルは88000円未満や1010000円以上の考慮はありません。また、扶養家族7人超の考慮もありませんので、必要であれば、SHINxYOUさんの方で組み込んでください。


Function 源泉徴収税額(金額 As Variant, 扶養人数 As Variant) As Variant
Dim r As Range
For Each r In Worksheets("月額表").Columns("A:A").SpecialCells(xlCellTypeConstants, 23)
If r.Value <> "" And 金額 >= r.Offset(0, 1).Value And 金額 < r.Offset(0, 2).Value Then
源泉徴収税額 = r.Offset(0, 3 + 扶養人数).Value
Exit Function
End If
Next r
End Function

この回答へのお礼

ありがとうございます
なかなか手が込んでいて良いと思いますがおばさんもいじるのでVBAびっくりしちゃうかもしれません
でも試してみたいと思います

お礼日時：2016/11/17 17:23

No.4 回答者： funoe 回答日時： 2016/11/17 11:15

A１列に控除後給与金額 (ex291,523)

B１列に扶養親族数(ex,0)
を入力することにしましょう。


C１セルに、
=IF(A1<88000,0,IF(A1<99000,INT(A1/1000)*1000,IF(A1<221000,INT((A1-1000)/2000)*2000+1000,IF(A1<1010000,INT((A1-2000)/3000)*3000+2000,0))))
と記入する。

D１セルに
=VLOOKUP(C1,E:L,B1+2,FALSE)
と記入する。

Ｅ列からＬ列に、源泉徴収税額表を転記する。
Ｅ列：税額表の給与額の左（＊＊以上の方）を記入
Ｆ列～Ｌ列：扶養親族０人から６人の源泉徴収額を転記


月収１０１万円までこれでＯＫ。

この回答へのお礼

試してみたいと思います
ありがとうございます

お礼日時：2016/11/17 16:56

No.3 回答者： 銀鱗 回答日時： 2016/11/17 10:23

＞291,523とかで検索したいのです

値が分かっているなら、その「291523」で検索をする。

この回答へのお礼

税額表とはそのようなものではないのです

お礼日時：2016/11/17 16:56

No.1 回答者： そらたに 回答日時： 2016/11/17 09:52

＞291,000の人を検索する方法はないでしょうか？

検索欄に２９１０００を入力する

この回答へのお礼

検索件数に一致する条件がありません
と出ます
291,523とかで検索したいのです

お礼日時：2016/11/17 09:57