エクセルVBAでの税率
以下は、私たちが所得に対する税を計算エクセルVBAでプログラムを見ていきます。以下の税率は、オーストラリアの居住者である個人に適用されます。
| Taxable income | Tax on this income |
|---|---|
|
0 – $6,000 |
Nil |
|
$6,001 – $35,000 |
15c for each $1 over $6,000 |
|
$35,001 – $80,000 |
$4,350 plus 30c for each $1 over $35,000 |
|
$80,001 – $180,000 |
$17,850 plus 38c for each $1 over $80,000 |
|
$180,001 and over |
$55,850 plus 45c for each $1 over $180,000 |
状況：
1.まず、我々は2重の変数を宣言します。私たちは収入を呼び出し、そして私たちは税呼び出す一つの二重可変1つのダブル変数。
Dim income As Double Dim tax As Double
2.私たちは、セルA2の値とし、それラウンド変数の収入を初期化します。
income = Round(Range("A2").Value)
3.私たちは、再びセルA2に丸めた値を配置します。
Range("A2").Value = income
4.私たちは、 リンクを使用選択ケースステートメントは、所得税を計算します。エクセルVBAは、Caseステートメントの下でコードが実行されるべきかどうかを確認するために後続の各Caseステートメントをテストするために収入を使用しています。
Select Case income Case Is >= 180001 tax = 55850 + 0.45 (income - 180000) Case Is >= 80001 tax = 17850 + 0.38 (income - 80000) Case Is >= 35001 tax = 4350 + 0.3 (income - 35000) Case Is >= 6001 tax = 0.15 (income - 6000) Case Else tax = 0 End Select
例：収入が37000である場合、税は4350 + 0.3 *（37000から35000）= 4350 + 600 = $ 4950 5.私たちは、セルB2に変数税の値を書き込むに等しいです。
Range("B2").Value = tax
6.このコマンドボタンのコードと、それをテストします。
結果：
