Ниже мы рассмотрим программу в Excel 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

Ситуация:

Tax Rates in Excel VBA

  1. Во-первых, мы объявляем две двойные переменные. Один двойной доход вызова переменных мы, и одна двойных переменных, которую мы называем налог.

Dim income As Double

Dim tax As Double

  1. Мы инициализируем доход переменной со значением ячейки А2 и вокруг него.

income = Round(Range("A2").Value)

  1. Кладем округленное значение в ячейке A2 снова.

Range("A2").Value = income

  1. Мы используем ссылке: / VBA-примеры-выбора регистра [Select Case] заявление для расчета налога на доход. Excel VBA использует доход для тестирования каждого последующего заявления случая, чтобы увидеть, если код по утверждению случая должен быть выполнен.

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

  1. Поместите этот код в командной кнопке и протестировать его.

Результат:

Tax Rates Result