/ 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 이상

각 $ 1에 $ 55,850 + 45C $ 180,000 이상


상태:

Excel VBA의 세율

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.이 코드를 명령 단추에 놓고 테스트하십시오.

결과:

세율 결과

또한 읽으십시오 :