สอน Function IF อย่างละเอียดตั้งแต่ Worksheet ถึง VBA Part4 การใช้ If ใน Excel VBA
หลักการเขียน Code VBA function If เบื้องต้น ตัวอย่าง การคิดอัตาภาษีเงินได้บุคคลธรรมดา
หลักการเขียน Code VBA function If ที่มีหลายๆชั้น
IF ... Then
...
ElseIf ... Then
...
ElseIf ... Then
...
ElseIf ... Then
...
Else
...
End If
ควรเขียน Flow chart ไว้ก่อนเขียน Code If function
'https://youtube.com/channel/UCN3GVUcnuG95OziQss07V_g
Option Explicit
Sub Tax_Calculation()
Dim dRevenue, dTaxRate, dTaxPay As Double
'dRevenue = 710319.55
dRevenue = 103530
If dRevenue < 150001 Then
dTaxRate = 0
ElseIf dRevenue < 300001 Then
dTaxRate = 0.05
ElseIf dRevenue < 500001 Then
dTaxRate = 0.1
ElseIf dRevenue < 750001 Then
dTaxRate = 0.15
ElseIf dRevenue < 1000001 Then
dTaxRate = 0.2
ElseIf dRevenue < 2000001 Then
dTaxRate = 0.25
ElseIf dRevenue < 5000001 Then
dTaxRate = 0.3
ElseIf dRevenue < 5000001 Then
dTaxRate = 0.3
Else
dTaxRate = 0.35
End If
MsgBox dTaxRate
End Sub
ไม่มีความคิดเห็น:
แสดงความคิดเห็น