TRANG CHỦ GIỚI THIỆU TIN TỨC CHƯƠNG TRÌNH HỌC HỎI ĐÁP DOWLOAD MẪU VĂN BẢN LIÊN HỆ
13:17:03 - 25/10/2014 PM
CHƯƠNG TRÌNH HỌC
Đồ họa - Thiết kế
Corel Draw cơ bản & nâng cao
Photoshop cơ bản & nâng cao
Ilusstrator cơ bản & nâng cao
Quarkxpress
Mỹ thuật ứng dụng
Vẽ kỹ thuật - Thiết kế
AutoCad 2D
AutoCad 3D
3D Max, Vray, Solidworks....
Lập trình cơ bản
Pascal
Ngôn ngữ lập trình C
Visual Basic
Thiết kế - Lập trình website
Microsoft FrontPage và HTML
Thiết kế ảnh động Flash
Thiết kế giao diện web (Dreamweaver)
Phần cứng - QT mạng
Bảo trì hệ thống máy tính
Quản trị mạng
Cơ bản hệ thống - Phần cứng
Các phím tắt cần biết
Các phím tắt trong Excel
Các phím tắt trong MS Word
Phím tắt trong Photoshop
Các phím tắt trong Power Point
Mẹo vặt khi sử dụng máy tính
Mẹo vặt sử dụng Windows XP
Mẹo vặt sử dụng Window 7
Mẹo vặt sử dụng Office 2007
Mẹo vặt sử dụng Office 2010
Các thủ thuật máy tính
Thủ thuật trong tin học Văn Phòng
Thủ thuật trong Đồ Họa
Thủ thuật trong sử dụng Phần Cứng MT
Tin học dành cho người cao tuổi
Tin học dành cho người cao tuổi
Hướng dẫn sử dụng
Hình ảnh Trung Tâm
Kế toán chuyên nghiệp
Nguyên lý kế toán (dành cho người mới bắt đầu)
Kế toán ghi sổ ( vào sổ sách các chứng từ)
Kế toán máy (sử dụng phần mềm kế toán máy)
Kế toán thuế (kế toán thuế, sử dụng phần mềm kê khai thuế HTKK)
Đọc, phân tích báo cáo tài chính (dành cho giám đốc các công ty)
Hình ảnh các lớp học tại Trung Tâm Phúc Thọ
Hình ảnh lớp học Tin học hè dành cho học sinh
Hình ảnh lớp học: Tin học văn phòng
Hình ảnh lớp học: Đồ họa thiết kế
THỐNG KÊ
Đang online: 18
Lượt truy cập: 133742
QUẢNG CÁO
Chương trình học > Thủ thuật trong tin học Văn Phòng
Tính thuế thu nhập trên Excel
Tính thuế thu nhập bằng ExcelCuối năm là thời điểm cần quyết toán thuế thu nhập cá nhân. Đây là vấn đề không "nhẹ nhàng" chút nào, nhất là khi qui mô công ty của bạn không nhỏ. Tuy nhiên bạn đừng lo, bạn có thể lập trình "bắt" Excel xử lý giúp "gánh nặng" này.
 

Công việc chuẩn bị

- PC cài HĐH Windows 2000 hoặc XP, Microsoft Excel XP hoặc 2003

- 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ên kế hoạch tạo các hàm sau:

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.

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.

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.

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ể thay đổi cho phù hợp với yêu cầu của bạn.

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.

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

TẠO ADD-IN

Ở các bước trên bạn đã tạo được các hàm dùng để tính thuế thu nhập. Tuy nhiên các hàm này chỉ sử dụng cho chính 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 như sau:

1. Nhấn chuột phải vào Module đã tạo ở trên

2. Điền thông số trong tab General

a. Project Name: Điền tên hàm (ví dụ: PIT)

b. Project Description: Điền vào mô tả của dự án (ví dụ: PIT formular)

3. Trong tab Protection, nhấn vào Lock project for viewing sau đó điền mật khẩu và xác nhận 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 mình.

4. Đóng cửa sổ VBA

5. Vào File_Save As, nhấn vào khung Save as type và chọn Microsoft Office Excel Add-in (*.xla)

6. Đặt tên file và chọn đường dẫn để lưu file (ví dụ: c:PITformular .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 Tools ->Add-Ins sau đó nhấn Browse... và tìm đến nơi chứa file .xla nêu trên rồi OK.

Chúc các bạn thành công.

TIN LIÊN QUAN:
Cách trộn thư trong Word 2003, 2007, 2010
Những tuyệt chiêu trong PowerPoint 2010
Thủ thuật bổ ích cho Office 2010
Các 'bí kíp' nên thử trong Gmail
Chuyển đổi PowerPoint sang Video
Định dạng tài liệu để in sách
Thủ thuật trong Excel
Những điểm mới trong Microsoft Office Excel 2007
 
THÔNG BÁO
Khóa tin học hè dành cho Học sinh, Sinh viên.
Giảm giá đặc biệt CHÀO XUÂN QUÝ TỴ 2013
Khai giảng các lớp Kế toán
Tuyển dụng nhân sự
Khai giảng lớp vẽ kĩ thuật 2D, 3D, VRAY
Khai giảng lớp thiết kế bài giảng điện tử
Khai giảng lớp phần cứng, quản trị mạng máy tính
Khai giảng lớp thiết kế quảng cáo
Khai giảng lớp thiết kế Web
Thông báo tuyển sinh
THỦ THUẬT TIN HỌC
Lỡ xóa file quan trọng? Đừng lo, có cách cứu!
Những điều nên biết khi format ổ đĩa cứng
Cách trộn thư trong Word 2003, 2007, 2010
Những tuyệt chiêu trong PowerPoint 2010
Thủ thuật bổ ích cho Office 2010
Giảm dung lượng ảnh JPEG 5 lần mà chất lượng không đổi với JPEGMini
Hiệu ứng lạ nhờ kỹ thuật zoom khi chụp ảnh
Các \'bí kíp\' nên thử trong Gmail
Chuyển đổi PowerPoint sang Video
Định dạng tài liệu để in sách
DOWNLOAD PHẦN MỀM
Xem tất cả
MẪU VĂN BẢN
Xem tất cả
TRANG CHỦ GIỚI THIỆU TIN TỨC CHƯƠNG TRÌNH HỌC HỎI ĐÁP LIÊN HỆ
SỞ GIÁO DỤC ĐÀO TẠO HÀ NỘI - TRUNG TÂM ĐÀO TẠO TIN HỌC PHÚC THỌ
Văn phòng tuyển sinh: 89 Thợ Nhuộm, Hoàn Kiếm, Hà Nội - Tel: 04.8.258.178, 04.9.367.537, 0979696168
Website: http://daotaotinhoc.vn - Email: sales@maytinhpt.vn