✅ Maksumäärad Excel VBA -s - lihtsad Exceli makrod

Lang L: none (table-of-contents)

Allpool vaatame programmi Exceli VBA mis arvestab tulumaksu. Järgnev maksumäärad kohaldatakse üksikisikute suhtes, kes on Austraalia elanikud.

Maksustatav tulu	Maksud sellelt tulult
0 - $6,000	Ei
$6,001 - $35,000	15c iga 1 dollari eest üle 6000 dollari
$35,001 - $80,000	4350 dollarit pluss 30c iga 1 dollari kohta üle 35 000 dollari
$80,001 - $180,000	17 850 dollarit pluss 38c iga 1 dollari kohta üle 80 000 dollari
180 001 dollarit ja rohkem	55 850 dollarit pluss 45 c iga 1 dollari kohta üle 180 000 dollari

Olukord:

1. Esiteks deklareerime kaks topeltmuutujat. Ühe kahekordse muutuja nimetame tuluks ja ühe kahekordse muutuja maksuks.

Vähene sissetulek Nagu kahekordne
Hämar maks nagu kahekordne

2. Initsialiseerime muutuva tulu lahtri A2 väärtusega ja ümardame selle.

sissetulek = ümmargune (vahemik ("A2"). väärtus)

3. Asetame ümardatud väärtuse uuesti lahtrisse A2.

Vahemik ("A2"). Väärtus = tulu

4. Kasutame tulu maksu arvutamiseks avaldust Select Case. Excel VBA kasutab sissetulekuid iga järgneva juhtumilause testimiseks, et näha, kas juhtumilause all olev kood tuleks täita.

Valige juhtumi sissetulek
Juhtum on> = 180001
maks = 55850 + 0,45 * (tulu - 180000)
Juhtum on> = 80001
maks = 17850 + 0,38 * (tulu - 80000)
Juhtum on> = 35001
maks = 4350 + 0,3 * (tulu - 35000)
Juhtum on> = 6001
maks = 0,15 * (tulu - 6000)
Juhtum muidu
maks = 0
Lõpp Vali

Näide: kui sissetulek on 37000, on maks 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 dollarit

5. Kirjutame lahtrisse B2 muutuva maksu väärtuse.