Sử dụng cú pháp NẾU THÌ ELSE, để tính phí Thuế

1) Nếu tổng số tiền phải chịu thuế là 30.000,00 2) 2.200,00 đến 3.000,00 đầu tiên bị đánh thuế 25%. 3) 3.000,01 đến 5,900,00 thứ hai bị đánh thuế ở mức 30% 4) Số tiền còn lại bị đánh thuế ở mức 35%

Giúp tôi tính thuế bằng cú pháp IF THEN ELSE trong macro trong excel.

Tôi mất 10 giây để Google: công thức thuế suất excel

Thuế suất theo cấp bậc trong Excel

=IF(AND(A2 >= 0, A2 < 2200), 0%, 
IF(AND(A2 >= 2200, A2 <= 3000), 25%, 
IF(AND(A2 >= 3000.01,  A2 <= 5900 ), 30%, 
IF(AND(A2 >= 5901, A2 < 99999), 35%, 
"double check"))))

Đây là mã macro cho việc này.

Chức năng MyTax (Giá trị là tiền tệ) Là tiền tệ

'Biến thiết lập

THUẾ Dim là tiền tệ

'điều này sẽ giữ thuế tính toán thông qua các bước của chức năng

Số tiền dưới dạng tiền tệ

'cái này giữ được bao nhiêu đang được giải quyết

Số tiền = Giá trị

'thiết lập hằng

Const loRange Là Tiền tệ = 2200 #

Const MidRange là tiền tệ = 3000 #

Const TopRange dưới dạng tiền tệ = 5900 #

Const bottomTier As Double = 0 #

Hằng số LoTier là gấp đôi = 0,25

Const Midtier là gấp đôi = 0,3

Const UpperTier As Double = 0,35

'ví dụ không rõ ràng về cách các giá trị được đặt. những điều trên phản ánh

'2200 đầu tiên không bị đánh thuế, từ 2200 đến 3000 bị đánh thuế ở mức 0,25,

'từ 3000 đến 5900 bị đánh thuế ở mức 30% và bất cứ điều gì cao hơn đều bị đánh thuế ở mức 35%

THUẾ = 0

'tầng thứ nhất là tầng trên

Nếu Số tiền & gt; TopRange Sau đó

' will need to pay the highest tax and also reduce amount

TAX = (Amount - TopRange) * UpperTier

Amount = TopRange

Kết thúc nếu

'cách tiếp cận chung cho các tầng còn lại

Nếu Số tiền & gt; Sau đó

TAX = TAX + ((Amount - MidRange) * Midtier)

Amount = MidRange

Kết thúc nếu

'lặp lại cho phạm vi thấp

Nếu Số tiền & gt; loRange rồi

THUẾ = THUẾ + ((Số tiền - loRange) * LoTier)

'chúng tôi đã hoàn thành nên không cần điều chỉnh số tiền

Kết thúc nếu

'chỉ cần trả lại số tiền thuế

MyTax = THUẾ

Chức năng kết thúc