엑셀 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 |
상황 :
-
먼저, 우리는 두 개의 더블 변수를 선언합니다. 더블 변수 우리 통화 수입, 우리는 세금 전화 더블 변수입니다.
Dim income As Double Dim tax As Double
-
우리는 A2 셀의 값과 라운드 변수의 소득을 초기화합니다.
income = Round(Range("A2").Value)
-
우리는 다시 A2 셀에 둥근 가치를.
Range("A2").Value = income
-
우리는`의 링크를 이용해 : / VBA – 예 – 선택의 경우 [선택 케이스]`문은 소득에 세금을 계산합니다. 엑셀 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 동일 + 우리 셀 B2의 가변 세금 값 물품 = $ 4950 5 600.
Range("B2").Value = tax
6.이 명령 단추의 코드를 테스트합니다.
결과 :
