/ / VBAの税率

Excel VBAの税率

以下では、 Excel VBA 収入に対する税金を計算します。以下 税率 オーストラリアの居住者である人に適用されます。

課税所得

この収入に対する税金

0〜6,000ドル

なし

$ 6,001〜$ 35,000

$ 6,000以上の$ 1ごとに15c

$ 35,001〜$ 80,000

$ 4,350プラス$ 35,000以上の各$ 1の30C

$ 80,001〜$ 180,000

$ 17,850プラス$ 80,000以上の各$ 1の38c

$ 180,001以上

$ 55,850プラス45c $ 180,000以上の各$ 1


状況:

Excel VBAの税率

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. Select Caseステートメントを使用して所得に対する税金を計算します。 Excel 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.変数taxの値をセルB2に書き込みます。

Range("B2").Value = tax

6.このコードをコマンドボタンに置​​き、テストします。

結果:

税率の結果

また読む: