VBAでVlookup関数を使って計算式を作りたい

質問

Vlookup関数は一度しか使ったことがなく今回のSelect caseでの計算方法でどのように使ったらいいかわかりません。

所得税というシートを元に計算していきたいのですが・・・

所得税
課税所得
超 　　　　 以下 　　　　　計算式
0 　　　　　1,950,000 　　5%
1,950,000 　3,300,000 　　10% -97,500
3,300,000 　6,950,000 　　20% -427,500
6,950,000 　9,000,000 　　23% -636,000
9,000,000 　18,000,000　　33% -1,536,000
18,000,000 　　　　 　　　40% -2,796,000
＊以下の空欄はそれ以上の値を表します

入力というシートに
Ｂ　　Ｃ　　　 Ｄ　　　　　Ｅ　　　　Ｆ　　　Ｇ
名前 年齢 　 基本給 　　通勤手当 　調整分 　住民税
あい 　20 　 19,000 　　1,320 　　　230 　　 13,098
かき 　32　　200,000 　 23,000 　　5,000　　 980
さし 　32　　60,000 　　7,800 　　　800 　　 6,090
たち 　50　　980,000　　5,600 　　 1,234 　　320
なに 　66 　18,000,000　9,000 　　　390 　　 9,809
というシートを作り所得税というシートを引用？しSelect caseで今まで計算していました。
ずれていたらすみません・・・
例）基本給190000の時の所得税
例）基本給18000000の時の所得税
を計算したいのですがApplication.WorksheetFunction.Vlookupでできるのでしょうか。
よろしくお願いします。

回答No.2

redfox63 · ベストアンサー

Select Case で判定するなら

Function 住民税( 基本給 as Single ) as Single
　　dim 税率 as Single, 控除 as Single
　　Select Case 基本給
　　case is <1
　　　　MsgBox "基本給の設定を点検してください"
　　　　住民税 = -1
　　　　Exit Function
　　case 1 to 195000
　　　　税率 = 0.05
　　　　控除 = 0
　　case 19500.001 to 3300000
　　　　税率 = 0.10
　　　　控除 = 97500
　　case 3300000.001 to 6950000
　　　　税率 = 0.20
　　　　控除 = 427500
　　case 6950000.001 to 9000000
　　　　税率 = 0.23
　　　　控除 = 636000
　　case 9000000.001 to 18000000
　　　　税率 = 0.33
　　　　控除 = 1536000
　　case else ' 18000000を超える場合
　　　　税率 = 0.40
　　　　控除 = 2796000
　　end select
　　住民税 = 基本給 * 税率 - 控除
End Function
といった具合でしょう ・・・
# お金を扱うならSingleよりCurrency(通貨型)でやったほうがいいかも

回答No.1

howarage

VBAじゃなく、Excelの関数だけでできるかと思います。

まず、所得税シートを以下のように作り直します。

所得　　　税率　　　控除
0　　　　　5%　　　　0
1950001　　10%　　　97500
3300001　　20%　　　427500
6950001　　23%　　　636000
9000001　　33%　　　1536000
18000001　　40%　　　2796000

で、所得を参照したVLOOKUP関数を使います、

=基本給のセル*Vlookup(基本給のセル, 所得税表の範囲, 2, True )
- Vlookup(基本給のセル,所得税表の範囲,3,True )

※所得税の計算方法知らないので、まちがってたらすいません。

ここで、Vlookupの４番目の引数をTrueにするのがミソです。こうすると検索値未満の最大の値がヒットします。なので表の所得は1足した額にしてます。