Aşağıda bir programa bakacağız Excel VBA'sı bir gelir üzerinden vergi hesaplar. Aşağıdaki vergi oranları Avustralya'da ikamet eden bireyler için geçerlidir.
Vergiye tabi gelir |
Bu gelir üzerinden vergi |
---|---|
0 - $6,000 |
sıfır |
$6,001 - $35,000 |
6.000 doların üzerindeki her 1$ için 15c |
$35,001 - $80,000 |
35.000 ABD Doları üzerindeki her 1 ABD Doları için 4.350 ABD Doları artı 30 kuruş |
$80,001 - $180,000 |
80.000$'ın üzerindeki her 1$ için 17.850$ artı 38c |
180.001$ ve üzeri |
55.850 $ artı her 1 $ için 180.000 $ üzerinde 45c |
Durum:
1. İlk olarak, iki adet double değişken tanımlıyoruz. Bir çift değişkene gelir diyoruz ve bir çift değişkene vergi diyoruz.
Dim gelir Çift Olarak
Dim vergi Çift olarak
2. Değişken geliri A2 hücresinin değeri ile başlatır ve yuvarlarız.
gelir = Yuvarlak(Aralık("A2").Değer)
3. Yuvarlanan değeri tekrar A2 hücresine yerleştiriyoruz.
Aralık("A2").Değer = gelir
4. Bir gelir üzerindeki vergiyi hesaplamak için Select Case ifadesini kullanırız. Excel VBA, Case ifadesinin altındaki kodun yürütülüp yürütülmeyeceğini görmek için sonraki her bir Case ifadesini test etmek için geliri kullanır.
Vaka gelirini seçin
Vaka >= 180001
vergi = 55850 + 0,45 * (gelir - 180000)
Vaka >= 80001
vergi = 17850 + 0.38 * (gelir - 80000)
Vaka >= 35001
vergi = 4350 + 0,3 * (gelir - 35000)
Vaka >= 6001
vergi = 0.15 * (gelir - 6000)
Durum Başka
vergi = 0
Seçimi Bitir
Örnek: gelir 37000 ise, vergi eşittir 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 $
5. Değişken verginin değerini B2 hücresine yazıyoruz.
Aralık ("B2"). Değer = vergi
6. Bu kodu bir komut düğmesine yerleştirin ve test edin.
Sonuç: