Báo cáo Sáng kiến Ứng dụng Visual Basic Application (VBA) trong Excel trong công tác lập bảng kê thanh toán, theo dõi chi phí phục vụ giải phóng mặt bằng (2%)

 2
CỘNG HÒA XÃ HỘI CHỦ NGHIÃ VIỆT NAM
 Độc lập – Tự do – Hạnh phúc
 Bình Định, ngày .... tháng . năm 2021
 BÁO CÁO
 Kết quả thực hiện sáng kiến năm 2021
 Tên sáng kiến: Ứng dụng Visual Basic Applications (VBA) trong Excel 
trong công tác lập bảng kê thanh toán, theo dõi chi phí phục vụ GPMB (2%)
 1. Đặt vấn đề
 Thời gian gần đây lĩnh vực Tin học đã có nhiều tiến bộ vượt bậc, tác động 
sâu xa đến mọi lĩnh vực hoạt động của con người. Trong đó có cả lĩnh vực Kế 
toán, việc ứng dụng công nghệ thông tin (CNTT) đã trở nên phổ biến trong hầu hết 
các cơ quan, đơn vị, đặc biệt là việc áp dụng phần mềm Microsoft Excel là thông 
dụng nhất trong công tác thanh toán chi phí phục vụ công tác GPMB (2%). 
 Công tác theo dõi lập dự toán và thanh toán chi phí 2% của các dự án không 
khó tuy nhiên số lượng chứng từ nhiều; mục chi trùng lắp. Một dự án có rất nhiều 
phương án bồi thường, vì vậy việc theo dõi trên 30 dự án, việc thanh toán chi phí 
theo từng quyết định phê duyệt khoảng hơn 100 dự toán, nhằm thanh toán kịp thời, 
nhanh chóng và chính xác số liệu đồng thời theo dõi lũy kế từng dự toán của các 
quyết định của dự án không bị vượt dự toán hoặc sai sót số liệu của các mục chi 
trong dự toán. Do đó, để việc lập bảng kê thanh toán 2% “tự động hóa” hơn, 
“chuyên nghiệp” hơn tôi đã kết hợp với công cụ nhúng trong Excel là VBA.
 VBA là viết tắt của Visual Basic for Application, là ứng dụng lập trình cơ 
bản trong Microsoft Office. Trong Microsoft Excel , VBA giúp tự động hóa các 
công việc và cung cấp cho người dùng những hàm tùy biến. Chức năng ghi lại 
những đoạn Macro có thể tạo ra những đoạn mã VBA cho những tính chất lặp lại 
của người sử dụng, cho phép những thao tác thông dụng được tự động hóa, cho 
phép tạo ra bảng biểu và điều kiện bên trong bảng tính để trực tiếp giao tiếp với 
người sử dụng.
 Trong quá trình làm việc trên Microsoft Excel, đặc biệt là trong công tác lập 
bảng kê thanh toán, theo dõi chi phí 2% các quyết định của từng dự án thường lặp 
đi lặp lại các thao tác bằng thủ công nhiều và tốn nhiều thời gian.
 Từ thực tế trên, với những kiến thức được học và tìm hiểu thêm trên mạng 
internet, tôi đã viết đề tài “Ứng dụng Visual Basic Applications trong Excel trong 
công tác lập bảng kê thanh toán, theo dõi chi phí phục vụ GPMB (2%)”.
 2. Mục tiêu
 - Tiết kiệm thời gian trong việc lập bảng thanh toán chi phí 2%. 4
 Nhấn lệnh OK, sau đó sẽ thấy tab Developer trên thanh công cụ, nhấn vào 
đó sẽ thấy các tùy chọn thích hợp để viết Macro hay các yêu cầu khác trong VBA.
 3.2 Sử dụng mã Macro trong Excel
 Di chuyển đến developer tab và nhấp chọn “Visual Basic”.
 Phía bên trái trên “Project Window”, nhấp chuột phải vào tên và chèn vào 
một module mới.
 Dán mã code vào trong module đó và đóng lại. 6
 Mẫu bảng kê thanh toán Quyết định 2294/QĐ- UBND:
 Mẫu số: 07
 Mã hiệu:
 Số
 BẢNG KÊ NỘI DUNG THANH TOÁN/TẠM ỨNG
 Chi phí phục vụ công tác bồi thường giải phóng mặt bằng, phê duyệt tại Quyết định số 2294/QĐ-UBND
 ngày 09/06/2021 và Quyết định số 4050/QĐ-UBND ngày 02/10/2021 của UBND tỉnh Bình Định
 Dự án: Khu tái định cư - dân cư Hiệp Vinh 1A tại Khu Công nghiệp - Đô thị Becamex A (Phân khu 7) 
 tại xã Canh Vinh, huyện Vân Canh, Khu kinh tế Nhơn Hội
Đơn vị : Ban Giải phóng mặt bằng tỉnh Bình Định Thanh toán trực tiếp
Mã đơn vị: 3024655 Tạm ứng
Mã nguồn: Thu hồi tạm ứng
Mã CTMTQG, Dự án ODA:
 Hóa đơn Chứng từ Số tiền
S Mã 
 Đơn 
T Ngày/ Ngày/ ND Nội dung chi
 Số Định giá 
T Số tháng/ Số PC tháng/ KT Thành tiền
 lượng mức thực 
 năm năm
 tế
 1 Chi phí kiểm kê, đánh giá giá trị tài sản bị thiệt hại -
 1.1 Chi bồi dưỡng ngày công đi hiện trường
 1.2 Chi xác nhận nguồn gốc đất nông, lâm nghiệp
 Chi phí lập, phê duyệt liên quan đến công tác bồi thường,
 2 -
 giải phóng mặt bằng và công khai phương án bồi thường
 2.1 Họp Hội đồng, tổ công tác 
 Hỗ trợ làm việc ngoài giờ lập phương án bồi thường,
 2.2
 và các công tác phục vụ GPMB
 Chi phí thẩm định phương án bồi thường và thẩm định
 3 dự toán chi phí phục vụ công tác bồi thường, GPMB cho 0
 dự án
 Chi phí thẩm định PA bồi thường, GPMB tổng thể và
 3.1
 chi tiết (Ban Giải phóng mặt bằng tỉnh)
 Chi phí thẩm định dự toán, quyết toán chi phí phục vụ
 3.2
 công tác bồi thường, GPMB (Sở tài chính)
 Chi phục vụ kiểm tra, hướng dẫn thực hiện chính sách
 4 bồi thường, giải quyết những vướng mắc trong công tác -
 bồi thường và tổ chức thực hiện chi trả bồi thường
 4.1 Chi phí tổ chức công tác chi trả tiền bồi thường
 Chi công tác giải quyết vướng mắc, bàn giao mốc giới,
 4.2
 bố trí TĐC 
 Chi mua VPP, vật tư dụng cụ phục vụ công tác đo đạc,
 5 photo, in ấn tài liệu, chụp phim ảnh làm tư liệu, đóng tập
 hồ sơ
 Chi thuê nhân công lao động, nhân công xác nhận nguồn
 6
 gốc đất, nhân công trực bảo vệ phục vụ công tác GPMB
 7 Chi phí khác -
 Chi phụ cấp kiêm nhiệm
 Chi khác(xăng xe đi giao dịch phục vụ công tác
 GPMB, trà, nước, sữa chữa nhỏ, cước phí bưu chính
 8
 viễn thông, công cụ, dụng cụ, ngoài giờ quyết toán dự
 án, các cuộc họp khác)
 Tổng số tiền bằng số -
 Tổng số tiền bằng chữ: Không đồng.
 Trong đó: Số thu hồi tạm ứng: Số thanh toán: -
 Bình Định, ngày tháng năm 2021
 KẾ TOÁN TRƯỞNG THỦ TRƯỞNG ĐƠN VỊ
 Nguyễn Thị Mẫn Đào Văn Khôi 8
 .TintAndShade = 0
 .Weight = xlThin
 End With
 With Selection.Borders(xlInsideHorizontal)
 .LineStyle = xlContinuous
 .ColorIndex = 0
 .TintAndShade = 0
 .Weight = xlHairline
 End With
 End Sub
 Diễn giải:
 Nhập nội dung cần thanh toán vào bảng kê, sau đó chọn vùng dữ liệu cần 
chỉnh bấm chạy đoạn code trên. Kết quả tự động:
 - Chuyển về Font chữ: Times New Roman (khi bị lỗi định dạng).
 - Kẻ khung vùng dữ liệu đã chọn.
 Bước 2: Tự động ẩn hàng không chứa số liệu, thiết lập vùng in và in
 Viết đoạn lệnh sau:
 Sub Vung_in2()
 Dim LR As Integer
 Dim i As Integer
 LR = Range("K" & Rows.Count).End(xlUp).Row
 For i = 15 To LR - 4
 'font mau trang: RGB(255, 255, 255)
 If Range("K" & i).Font.Color = RGB(255, 255, 255) Or _
 Range("K" & i).Value = 0 Then
 Rows(i).EntireRow.Hidden = True
 End If
 Next i
 Sheets(2).PageSetup.PrintArea = _
 Sheets(2).Range("Print_Area").Address
 ActiveWindow.SelectedSheets.PrintOut copies:=2
 ActiveWorkbook.Save
 End Sub
 Diễn giải: