| Microsoft Excel是Microsoft為使用Windows和Apple Macintosh操作系統的電腦編寫的一款電子表格軟件。直觀的界面、出色的計算功能和圖表工具，再加上成功的市場營銷，使Excel成為最流行的個人計算機數據處理軟件。 excel個人所得稅計算公式一 如下圖所示是excel個人所得稅計算公式的一個截圖。 
C2單元格個人所得稅計算公式為： =ROUND(MAX((B2-3500)*5%*{0.6,2,4,5,6,7,9}-5*{0,21,111,201,551,1101,2701},0),2) 然后下拉公式復制，可以計算出其余人員的個人所得稅。 excel個人所得稅計算公式為：（應發工資-個稅起征點金額）*稅率-速算扣除數 上面的excel個人所得稅計算公式，思路講解：
(B2-3500)是個人所得稅的應納稅所得額，{0.6,2,4,5,6,7,9}是一個數組。
0.05*{0.6,2,4,5,6,7,9}＝{0.03,0.1,0.2,0.25,0.3,0.35,0.45} 是個人所得稅的稅率公式。
5*{0,21,111,201,551,1101,2701}＝{0,105,555 ,1005,2755,5505,13505}是各級別的個人所得稅扣除額。
(B2-3500)*5%*{0.6,2,4,5,6,7,9}-5*{0,21,111,201,551,1101,2701} 是納稅額*各級個稅稅率-應扣額后的數字，如果稅率對應的級別<=納稅額時，稅率越大稅額越大，符合所繳稅款和所得相匹配的原理。如果稅率對應的級別>納稅額時，稅率越大稅額越小，因為扣減了超額的扣除數，這樣保證了，繳稅數組里最大的那個一定是最符合相應稅率的。
因為存在了納稅額<0的情況，即工資不滿3500元，為避免出現稅額為０，就在(b2-3500)*5%*{0.6,2,4,5,6,7,9}-5*{0,21,111,201,551,1101,2701}后添了一個“，0”的值>
簡而言之，MAX 函數取最大值，并設置下限值為0，即得出對應員工的個人所得稅。
最外面嵌套ROUND函數，就是4舍5入到2位小數。 excel個人所得稅計算公式二 使用下面的自定義函數完成excel個人所得稅計算，使用方法參考文章最后的鏈接。
Function tax(Optional A As Double = 0, Optional y = 0, Optional z = 1)
'tax(月收入),tax(年收入,月收入)
Dim 分界, 稅率, 扣除數
分界 = Array(0, 1500, 4500, 9000, 35000, 55000, 80000) '收入分界
稅率 = Array(0.03, 0.1, 0.2, 0.25, 0.3, 0.35, 0.45) '各檔稅率
扣除數 = Array(0, 105, 555, 1005, 2755, 5505, 13505) '各檔扣除數
b = 3500
If z = 1 Then
?? If y = 0 Then x = A - b Else b = Application.Max(b - y, 0): x = (A - b) / 12
?? For i = 6 To 0 Step -1
?????? If x > 分界(i) Then
?????????? tax = (A - b) * 稅率(i) - 扣除數(i)
?????????? Exit For
?????? End If
?? Next
??
ElseIf z = 2 Then
?? If y = 0 Then x = A - b Else b = Application.Max(b - y, 0): x = (A - b) / 12
?? If y = 0 And x < 0="" then="" tax="">
?? For i = 6 To 0 Step -1
?????? If x > 分界(i) Then
??????????? tax = (A - b) * (1 - 稅率(i)) + 扣除數(i) + b
?????????? Exit For
?????? End If
?? Next ElseIf z = 3 Then
??? If y = 0 Then x = A - b Else b = Application.Max(b - y, 0): x = (A - b)
??? If y = 0 And x < 0="" then="" tax="">
??? For i = 6 To 0 Step -1
??? If y = 0 Then
??????? If x > 分界(i) - tax(分界(i) + b, 0, 1) Then
??????????? tax = (A - b - 扣除數(i)) / (1 - 稅率(i)) + b
??????????? Exit For
??????? End If
??? Else
??????? If x > 12 * 分界(i) - tax(12 * 分界(i), 3500, 1) Then
??????????? tax = (A - 扣除數(i)) / (1 - 稅率(i))
??????????? Exit For
??????? End If
??? End If
??? Next
???
ElseIf z = 4 Then
??? If y = 0 Then x = A - b Else b = Application.Max(b - y, 0): x = (A - b)
??? For i = 6 To 0 Step -1
????? If y = 0 Then
??????? If x > 分界(i) - tax(分界(i) + b, 0, 1) Then
??????????? tax = tax(A, 0, 1) / (1 - 稅率(i))
??????????? Exit For
??????? End If
???? Else
??????? If x > 12 * 分界(i) - tax(12 * 分界(i), 3500, 1) Then
??????????? tax = tax(A, 3500, 1) / (1 - 稅率(i))
??????????? Exit For
??????? End If
???? End If
??? Next ??? ElseIf z = 5 Then
??? For i = 6 To 0 Step -1
????? If y = 0 Then
??????? If A > tax(分界(i) + b, 0, 1) Then
??????????? tax = (A + 扣除數(i)) / 稅率(i) + b
??????????? Exit For
??????? End If
????? Else
??????? If A > tax(12 * 分界(i), b, 1) Then
??????????? tax = (A + 扣除數(i)) / 稅率(i)
??????????? Exit For
??????? End If
??? End If
??? Next
???
ElseIf z = 6 Then
??? For i = 6 To 0 Step -1
??????? If y = 0 Then
?????????? If A > tax(分界(i) + b, 0, 1) Then
????????????? tax = (A * (1 - 稅率(i)) + 扣除數(i)) / 稅率(i) + b
????????????? Exit For
?????????? End If
??????? Else
?????????? If A > tax(12 * 分界(i), b, 1) Then
????????????? tax = (A * (1 - 稅率(i)) + 扣除數(i)) / 稅率(i)
????????????? Exit For
?????????? End If
???????? End If
??? Next
???
End If
tax = Round(tax + 0.0001, 2)
End Function
Excel整體界面趨于平面化，顯得清新簡潔。流暢的動畫和平滑的過渡，帶來不同以往的使用體驗。
|
