D
Cuối năm chắc nhiều bạn cần quyết toán thuế thu nhập cá nhân của công ty , nên Dat_vuong xin góp ít kiến thức mẫu giáo về excel để tạo các hàm tính thuế thu nhập cá nhân bằng excel sau đây, nếu bạn nào thấy sai hoặc cần chỉnh sửa xin vui lòng góp ý kiến:
A. Kế hoạch và Công tác Chuẩn bị
- Computer có hệ điều hành windows 2000 hoặc windows xp
- Đã installed Microsoft excel XP hoặc Excel 2003
- Tham khảo thêm (để đối chiếu) Phụ lục số 1 và số 2 Kèm theo Thông tư số 81/2004/ TT-BTC ngày 13/8/2004 của Bộ Tài chính
- Lập Kế hoạch để tạo các hàm sau đây
o PITLC : 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
o PITFR : Hàm tính Thuế thu nhập cá nhân người nước ngoài cư trú tại Việt Nam và công dân Việt Nam lao động, công tác ở nước ngoài
o NET2GROSSLC : Hàm qui đổi thu nhập sau thuế (net) sang thu nhập trước thuế (gross) 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
o NET2GROSSFR : Hàm qui đổi thu nhập sau thuế (net) sang thu nhập trước thuế (gross) dành cho người nước ngoài cư trú tại Việt Nam và công dân Việt Nam lao động, công tác ở nước ngoài
Lưu ý : Tên hàm có thể tùy biến cho phù hợp với yêu cầu của bạn.
B. Tiến hành tạo hàm
1. Mở một 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 (Vi dụ : VBA project (book1)
4. Chọn Insert --> Module và tạo một module
5. Nhấn đôi vào module mới tao ra và đánh vào đoạn mã sau hoặc copy đoạn mã này dán vào cửa sổ tạo mã (code window)
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
Function pitfr(gross_foreign)
'Personal Income Tax for Resident Foreigner in Vietnamese
If (gross_foreign > 0) And (gross_foreign <= 8000000) Then
pitfr = 0
ElseIf (gross_foreign > 8000000) And (gross_foreign <= 20000000) Then
pitfr = (gross_foreign - 8000000) * 0.1
ElseIf (gross_foreign > 20000000) And (gross_foreign <= 50000000) Then
pitfr = 1200000 + ((gross_foreign - 20000000) * 0.2)
ElseIf (gross_foreign > 50000000) And (gross_foreign <= 80000000) Then
pitfr = 7200000 + ((gross_foreign - 50000000) * 0.3)
ElseIf (gross_foreign > 80000000) Then
pitfr = 16200000 + ((gross_foreign - 80000000) * 0.4)
End If
End Function
Function net2grosslc(net_local)
'Local Net Salary to be gross-up to Gross Salary
If (net_local > 0) And (net_local <= 5000000) Then
net2grosslc = net_local
ElseIf (net_local > 5000000) And (net_local <= 14000000) Then
net2grosslc = Round((net_local - 500000) / 0.9, 0)
ElseIf (net_local > 14000000) And (net_local <= 22000000) Then
net2grosslc = Round((net_local - 2000000) / 0.8, 0)
ElseIf (net_local > 22000000) And (net_local <= 32500000) Then
net2grosslc = Round((net_local - 4500000) / 0.7, 0)
ElseIf (net_local > 32500000) Then
net2grosslc = Round((net_local - 8500000) / 0.6, 0)
End If
End Function
Function net2grossfr(net_foreign)
'Foreigner Net Salary to be gross-up to Gross Salary
If (net_foreign > 0) And (net_foreign <= 8000000) Then
net2grossfr = net_foreign
ElseIf (net_foreign > 8000000) And (net_foreign <= 18800000) Then
net2grossfr = Round((net_foreign - 800000) / 0.9, 0)
ElseIf (net_foreign > 18800000) And (net_foreign <= 42800000) Then
net2grossfr = Round((net_foreign - 2800000) / 0.8, 0)
ElseIf (net_foreign > 42800000) And (net_foreign <= 63800000) Then
net2grossfr = Round((net_foreign - 7800000) / 0.7, 0)
ElseIf (net_foreign > 63800000) Then
net2grossfr = Round((net_foreign - 15800000) / 0.6, 0)
End If
End Function
C. Tạo Add-in
Tại các bước trên bạn đã tạo được các hàm để sử dụng tính thuế thu nhập . Tuy nhiên các hàm này chỉ sử dụng cho chính cái bảng tính có gắn hàm đã tạo mà thôi. Để tất cả các bảng tính đều có thể sử dụng hàm đã tạo ở trên hoặc bạn muốn gủi những hàm này cho bạn bè thì bạn cần phải tạo Add-in
Cách tạo Add-in
1. Nhấn chuột phải vào Module đã tạo ở trên
2. Trong thẻ (tab) General điền vào các thông số
a. Project Name : Điền vào tên của Hàm (ví dụ : PIT)
b. Prọect Description : Điền vào mô tả của dự án (ví du: PIT formular)
3. Trong thẻ (tab) Protection nhấn vào Lock project for viewing sau đó điền mật khẩu và confirm mật khẩu nếu bạn không muốn người khác xem và chỉnh sửa đoạn mã của bạn.
4. Đóng cửa sổ VBA
5. Vào File ---> Save As , nhấn vào khung Save as type chọn Microsoft Office Excel Add-in (*.xla)
6. Đặt tên file và chọn đường dẫn để lưu file (vi dụ : c:\PIT formula .xla)
7. Hoàn tất
Muốn gắn add-in vào bất cứ máy nào có excel bạn chỉ việc vào tool – Add-ins sau đó nhấn vào Brownse… và tìm đến nơi chứa file .xla nêu trên rồi OK
Các bạn nào cần góp ý kiến vui lòng liên hệ YM : vu_smzhn
A. Kế hoạch và Công tác Chuẩn bị
- Computer có hệ điều hành windows 2000 hoặc windows xp
- Đã installed Microsoft excel XP hoặc Excel 2003
- Tham khảo thêm (để đối chiếu) Phụ lục số 1 và số 2 Kèm theo Thông tư số 81/2004/ TT-BTC ngày 13/8/2004 của Bộ Tài chính
- Lập Kế hoạch để tạo các hàm sau đây
o PITLC : 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
o PITFR : Hàm tính Thuế thu nhập cá nhân người nước ngoài cư trú tại Việt Nam và công dân Việt Nam lao động, công tác ở nước ngoài
o NET2GROSSLC : Hàm qui đổi thu nhập sau thuế (net) sang thu nhập trước thuế (gross) 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
o NET2GROSSFR : Hàm qui đổi thu nhập sau thuế (net) sang thu nhập trước thuế (gross) dành cho người nước ngoài cư trú tại Việt Nam và công dân Việt Nam lao động, công tác ở nước ngoài
Lưu ý : Tên hàm có thể tùy biến cho phù hợp với yêu cầu của bạn.
B. Tiến hành tạo hàm
1. Mở một 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 (Vi dụ : VBA project (book1)
4. Chọn Insert --> Module và tạo một module
5. Nhấn đôi vào module mới tao ra và đánh vào đoạn mã sau hoặc copy đoạn mã này dán vào cửa sổ tạo mã (code window)
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
Function pitfr(gross_foreign)
'Personal Income Tax for Resident Foreigner in Vietnamese
If (gross_foreign > 0) And (gross_foreign <= 8000000) Then
pitfr = 0
ElseIf (gross_foreign > 8000000) And (gross_foreign <= 20000000) Then
pitfr = (gross_foreign - 8000000) * 0.1
ElseIf (gross_foreign > 20000000) And (gross_foreign <= 50000000) Then
pitfr = 1200000 + ((gross_foreign - 20000000) * 0.2)
ElseIf (gross_foreign > 50000000) And (gross_foreign <= 80000000) Then
pitfr = 7200000 + ((gross_foreign - 50000000) * 0.3)
ElseIf (gross_foreign > 80000000) Then
pitfr = 16200000 + ((gross_foreign - 80000000) * 0.4)
End If
End Function
Function net2grosslc(net_local)
'Local Net Salary to be gross-up to Gross Salary
If (net_local > 0) And (net_local <= 5000000) Then
net2grosslc = net_local
ElseIf (net_local > 5000000) And (net_local <= 14000000) Then
net2grosslc = Round((net_local - 500000) / 0.9, 0)
ElseIf (net_local > 14000000) And (net_local <= 22000000) Then
net2grosslc = Round((net_local - 2000000) / 0.8, 0)
ElseIf (net_local > 22000000) And (net_local <= 32500000) Then
net2grosslc = Round((net_local - 4500000) / 0.7, 0)
ElseIf (net_local > 32500000) Then
net2grosslc = Round((net_local - 8500000) / 0.6, 0)
End If
End Function
Function net2grossfr(net_foreign)
'Foreigner Net Salary to be gross-up to Gross Salary
If (net_foreign > 0) And (net_foreign <= 8000000) Then
net2grossfr = net_foreign
ElseIf (net_foreign > 8000000) And (net_foreign <= 18800000) Then
net2grossfr = Round((net_foreign - 800000) / 0.9, 0)
ElseIf (net_foreign > 18800000) And (net_foreign <= 42800000) Then
net2grossfr = Round((net_foreign - 2800000) / 0.8, 0)
ElseIf (net_foreign > 42800000) And (net_foreign <= 63800000) Then
net2grossfr = Round((net_foreign - 7800000) / 0.7, 0)
ElseIf (net_foreign > 63800000) Then
net2grossfr = Round((net_foreign - 15800000) / 0.6, 0)
End If
End Function
C. Tạo Add-in
Tại các bước trên bạn đã tạo được các hàm để sử dụng tính thuế thu nhập . Tuy nhiên các hàm này chỉ sử dụng cho chính cái bảng tính có gắn hàm đã tạo mà thôi. Để tất cả các bảng tính đều có thể sử dụng hàm đã tạo ở trên hoặc bạn muốn gủi những hàm này cho bạn bè thì bạn cần phải tạo Add-in
Cách tạo Add-in
1. Nhấn chuột phải vào Module đã tạo ở trên
2. Trong thẻ (tab) General điền vào các thông số
a. Project Name : Điền vào tên của Hàm (ví dụ : PIT)
b. Prọect Description : Điền vào mô tả của dự án (ví du: PIT formular)
3. Trong thẻ (tab) Protection nhấn vào Lock project for viewing sau đó điền mật khẩu và confirm mật khẩu nếu bạn không muốn người khác xem và chỉnh sửa đoạn mã của bạn.
4. Đóng cửa sổ VBA
5. Vào File ---> Save As , nhấn vào khung Save as type chọn Microsoft Office Excel Add-in (*.xla)
6. Đặt tên file và chọn đường dẫn để lưu file (vi dụ : c:\PIT formula .xla)
7. Hoàn tất
Muốn gắn add-in vào bất cứ máy nào có excel bạn chỉ việc vào tool – Add-ins sau đó nhấn vào Brownse… và tìm đến nơi chứa file .xla nêu trên rồi OK
Các bạn nào cần góp ý kiến vui lòng liên hệ YM : vu_smzhn