Thêm một chút về excel

Cuố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ôngnhỏ. 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.
Nội dung trích xuất từ tài liệu:
Thêm một chút về excelvà thêm một chút về excel---------Cuố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ôngnhỏ. Tuy nhiên bạn đừng lo, bạn có thể lập trình bắt Excel xử lý giúpgá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ày13/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ệtNam 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ậptrướ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ậptrước thuế (gross) dành cho người nước ngoài cư trú tại Việt Nam và côngdâ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ÀM1. Mở bảng tính (workbook) mới2. Nhấn tổ hợp phím Alt+F11 để khởi động microsoft Visual Basic3. 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.Module5. 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 CitizenIf (gross_local > 0) And (gross_local 5000000) And (gross_local 15000000) And (gross_local 25000000) And (gross_local 40000000) Thenpitlc = 7500000 + ((gross_local - 40000000) * 0.4)End IfEnd FunctionFunction pitfr(gross_foreign)Personal Income Tax for Resident Foreigner in VietnameseIf (gross_foreign > 0) And (gross_foreign 8000000) And (gross_foreign 20000000) And (gross_foreign pitfr = 1200000 + ((gross_foreign - 20000000) * 0.2)ElseIf (gross_foreign > 50000000) And (gross_foreign 80000000) Thenpitfr = 16200000 + ((gross_foreign - 80000000) * 0.4)End IfEnd FunctionFunction net2grosslc(net_local)Local Net Salary to be gross-up to Gross SalaryIf (net_local > 0) And (net_local 5000000) And (net_local 14000000) And (net_local 22000000) And (net_local 32500000) Thennet2grosslc = Round((net_local - 8500000) / 0.6, 0)End IfEnd FunctionFunction net2grossfr(net_foreign)Foreigner Net Salary to be gross-up to Gross SalaryIf (net_foreign > 0) And (net_foreign 8000000) And (net_foreign 18800000) And (net_foreign 42800000) And (net_foreign 63800000) Thennet2grossfr = Round((net_foreign - 15800000) / 0.6, 0)End IfEnd FunctionTẠ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. Tuynhiê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ặcbạ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ên2. Điền thông số trong tab Generala. 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ậtkhẩ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ỉnhsửa đoạn mã của mình.4. Đóng cửa sổ VBA5. Vào File_Save As, nhấn vào khung Save as type và chọn Microsoft OfficeExcel 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ấtMuố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ồiOK.ÿ