/ / מס שיעורי ב - VBA של Excel

שיעורי מס ב - VBA של Excel

להלן נבחן תוכנית ב Excel VBA המחשבת את המס על הכנסה. הבאים שיעורי המס חל על יחידים תושבי אוסטרליה.

הכנסה החייבת במס

מס על הכנסה זו

0 - $ 6,000

אפס

$ 6,001 - $ 35,000

15c עבור כל $ 1 מעל $ 6,000

$ 35,001 - $ 80,000

$ 4,350 פלוס 30c עבור כל 1 $ מעל $ 35,000

$ 80,001 - $ 180,000

$ 17,850 פלוס 38c עבור כל 1 $ מעל 80,000 $

$ 180,001 ומעלה

$ 55,850 בתוספת 45c עבור כל $ 1 מעל $ 180,000


מצב:

שיעורי מס ב - VBA של Excel

1. ראשית, אנו מכריזים על שני משתנים כפולים. משתנה כפול אחד שאנו מכנים הכנסה, ומשתנה כפול אנו מכנים מס.

Dim income As Double
Dim tax As Double

2. אנחנו לאתחל את ההכנסה המשתנה עם הערך של תא A2 וסבב אותו.

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

3. אנו מניחים את הערך המעוגל בתא A2 שוב.

Range("A2").Value = income

4. אנו משתמשים במשפט בחר מקרה כדי לחשב את המס על הכנסה. Excel VBA משתמש בהכנסה כדי לבדוק כל משפט 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. אנו כותבים את הערך של מס המשתנה לתא B2.

Range("B2").Value = tax

6. מקם קוד זה בלחצן פקודה ובדוק אותו.

תוצאה:

תוצאות שיעורי מס

קרא גם: