Tính thuế TNCN bằng Excel

  • Thread starter Thread starter bich
  • Ngày gửi Ngày gửi
B

bich

Trung cấp
Các bạn có thể tạo công thức bằng excel hộ mình với:
Bậc Thu nhập bình quân Số Thuế Phải nộp
1 Đến 5 tr
2 Trên 5tr đến 15 tr 0 tr.đ + 10% số TN vượt trên 5 tr.đ
3 Trên 15 tr.đ đến 25 tr.đ 1 tr.đ + 20% số TN vượt trên 15 tr.đ
4 Trên 25 tr.đ đến 40 tr.đ 3 tr.đ + 30% số TN vượt trên 25 tr.đ
5 Trên 40 tr.đ 7,5 tr.đ + 40% số TN vượt trên 40 tr.đ

Mình ko biết dử dụng VB
Cảm ơn nhé
 
bich nói:
Các bạn có thể tạo công thức bằng excel hộ mình với:
Bậc Thu nhập bình quân Số Thuế Phải nộp
1 Đến 5 tr
2 Trên 5tr đến 15 tr 0 tr.đ + 10% số TN vượt trên 5 tr.đ
3 Trên 15 tr.đ đến 25 tr.đ 1 tr.đ + 20% số TN vượt trên 15 tr.đ
4 Trên 25 tr.đ đến 40 tr.đ 3 tr.đ + 30% số TN vượt trên 25 tr.đ
5 Trên 40 tr.đ 7,5 tr.đ + 40% số TN vượt trên 40 tr.đ

Mình ko biết dử dụng VB
Cảm ơn nhé
Nhấn để mở rộng...
Có bài mình đưa đã có vấn đề này tuy nhiên giờ ko biết ở đâu, bạn chịu khó tìm lại tý nhé
 
TẠO HÀM

1. Mở bảng tính (workbook) mới

2. Nhấn tổ hợp phím Alt+F11 để khởi động microsoft Visual Basic

3. Nhấn vào bảng tính của bạn tại cửa sổ VBA project. Ví dụ: VBA project (book1)

4. Chọn Insert.Module

5. Nhấn đúp vào module mới tạo ra và nhập vào các đoạn mã sau.


1/ Hàm tính thuế thu nhập cá nhân dành cho công dân Việt Nam và các cá nhân khác định cư tại Việt Nam.

Function pitlc(gross_local)

'Personal Income Tax for Local Vietnamese Citizen

If (gross_local > 0) And (gross_local <= 5000000) Then

pitlc = 0

ElseIf (gross_local > 5000000) And (gross_local <= 15000000) Then

pitlc = (gross_local - 5000000) * 0.1

ElseIf (gross_local > 15000000) And (gross_local <= 25000000) Then

pitlc = 1000000 + ((gross_local - 15000000) * 0.2)

ElseIf (gross_local > 25000000) And (gross_local <= 40000000) Then

pitlc = 3000000 + ((gross_local - 25000000) * 0.3)

ElseIf (gross_local > 40000000) Then

pitlc = 7500000 + ((gross_local - 40000000) * 0.4)

End If

End Function
 
Cảm ơn bạn đã reply
Vậy sau khi tạo đoạn mã trên xong thì làm cách nào để chạy ra kết quả?
 
bich nói:
Cảm ơn bạn đã reply
Vậy sau khi tạo đoạn mã trên xong thì làm cách nào để chạy ra kết quả?
Nhấn để mở rộng...

Vào cửa sổ VBE (Alt+F11), chọn Insert\Module sau đó copy đoạn code trên vào vùng soạn thảo
Sau đó vào File\Save as. Mục File name gõ TNCN, mục Save as type chọn mục cuối cùng Microsoft office excel add-ins. Save
Trở lại màn hình excel, vào tools\add-ins tìm mục TNCN check vào, nếu không thấy thì vào browse tìm file TNCN.xla và chọn ok.
Xong, vào một ô nào đó, VD A2 (ô A1 chứa số tiền) và gõ vào =pitlc(A1) xong enter để xem kết quả
 
Nếu thích dùng Công thức thì có code sau :

=CHOOSE(IF(A1>4*10^7,5,IF(A1>25*10^6,4,IF(A1>15*10^6,3,IF(A1>5*10^6,2,1)))),0,A1/10-5*10^5,A1/5-2*10^6,A1*0.3-45*10^5,A1*0.4-85*10^5)
 
Ðề: Tính thuế TNCN bằng Excel

Có ai có công thức tính thuế TNCN áp dụng từ ngày 1/7/2013 bằng Excel không? Cho mình xin với. Cảm ơn cả nhà
 
Bạn phải đăng nhập hoặc đăng ký để bình luận.

Liên kết

Tâm An kế toán quản trị

Chia sẻ trang

Back
Top