Cách tự viết chương trình tổng hợp, thống kê bằng VBA trên Excel

4.2/5 - (5 bình chọn)

Đối với những bạn thuộc dân làm việc văn phòng thì hầu như hàng tháng hay hàng quý đều phải làm để báo cáo cho công ty, doanh nghiệp. Tuy nhiên việc thao tác thủ công phải lặp đi lặp lại này gây mất khá nhiều thời gian và công sức khi thực hiện.

Nếu như bạn đang tìm một giải pháp tối ưu hơn thì trong bài hướng dẫn sau đây sẽ giúp các bạn làm một chương trình tổng hợp, thống kê bằng VBA trên Excel có thể tạo được bảng báo cáo tương tư ví dụ như hình bên dưới.

vba trong excel

Hướng dẫn cách viết VBA làm tổng hợp Excel

Bước 1: Bật chức năng chạy được chương trình có VBA

vba trong excel

Bật tính năng VBA trên Excel để có thể chạy được chương trình vì tính năng này kích hoạt có khả năng liên quan đến vấn đề bảo mật nên mặc định Excel sẽ chặn tính năng này.

Bước 2: Thêm tính năng đọc VBA cho Office (nếu bị thiếu trong quá trình cài đặt Offices)

Nếu đã thực hiện Bước 1 nhưng vẫn chưa chạy được chương trình thì có thể kiểm tra máy tính của bạn đã cài đặt VBA hay chưa bằng cách vào Control Panel >> All Control Panel Items >> Programs and Features chọn vào chương trình Office đã cài đặt >> chuột phải và chọn Change.

vba trong excel

Tiếp theo chọn vào Add or Remove Features >> Continue.

vba trong excel

Chọn Tab Office Shared Features >> xem mục Visual Basic for Applications nếu trạng thái là Not Available thì bạn chọn cài đặt bổ sung.

vba trong excel

Bước 3: Mở thêm Tab để xây dựng chương trình. Vào File >> Options >> Customize Ribbon >> thêm Tab Developer.

vba trong excel

Bước 4: Tạo nút lấy dữ liệu cho chương trình. Vào Insert >> Shape để thêm một nút như hình bên dưới.

vba trong excel

Tiếp theo Tab Developer >> Visual Basic >> Mục Modules >> Chọn chuột phải và Insert module.

vba trong excel

Sau đó code một đoạn code như hình bên dưới để chọn dữ liệu cần tổng hợp cho chương trình.

vba trong excel

Đoạn code VBA

Sub ThanhToanNGOAI()
     With Application.FileDialog(1)
     On Error Resume Next
         .InitialFileName = ThisWorkbook.Path
         .Title = "Chon file NGOAI TRU - Xuat tu HMS"
         .FilterIndex = 3
         .AllowMultiSelect = False
         Do
             .Show
             If .SelectedItems.Count = 0 Then Exit Sub
             If .SelectedItems(1) = ThisWorkbook.FullName Then MsgBox "Khong chon file nay!"
         Loop Until .SelectedItems(1) <> ThisWorkbook.FullName
         With Workbooks.Open(.SelectedItems(1))
             .Sheets(1).Cells.Copy ThisWorkbook.Sheets(3).[A1]
             .Close False
         End With
     End With
     '---Ket qua Ngoai tru---
     Sheet7.Visible = xlSheetVisible
     Sheet7.Select
     Cells.EntireColumn.AutoFit
     ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
     Range("a3").Select
     MsgBox "TONG HOP BHXH THANH TOAN NGOAI TRU HOAN THANH ......", , "HOAN THANH"
 End Sub

Vì trong chương trình ví dụ mình có nhiều Sheet nên cần ghi vị trí lưu dữ liệu đầu vào.

vba trong excel

Đoạn code tiếp theo Sheet7.Visible = XlSheetVisible nghĩa là sau khi lưu dữ liệu vào chương trình các hàm thống kê được thiết lập trong Sheet7 (Dòng 5 trong bước 5) sẽ tổng hợp số liệu sau đó từ trạng thái đang ẩn sẽ hiển thị lên số liệu tổng hợp.

vba trong excel

Sau đó gán Button vừa tạo ở trên vào hàm mẫu tên ThanhToanNgoai() để tiến hàng lấy dữ liệu và lưu trữ cho chương trình bằng cách bấm chuột phải vào Button >> Assign Marco >> chọn ThanhToanNgoai().

vba trong excel

Bước 5: Thiết kế mẫu báo cáo, thống kê

Tạo thêm 1 Sheet mới để thiết kế mấu báo cáo, thống kê theo ý muốn trong ví dụ thì Sheet mẫu báo cáo của mình tên là KetQuaNgoaiTru.

vba trong excel

Sau đó tạo biến tham chiếu để tổng hợp vào Formulas >> Name Manager >> New >> Đặt tên biến và tham chiếu đến cột dữ liệu cần tổng hợp. Trong chương trình ví dụ của mình cần đếm tất cả đối tượng cột ở vị trí cột G.

vba trong excel

Dữ liệu tham chiếu ví dụ mình cần tổng hợp như hình bên dưới.

vba trong excel

Nếu muốn tổng hợp các cột tiếp theo chỉ cần thêm biến tham chiếu và dẫn đến vị trí cột đó. Ví dụ mình cần tổng hợp cột tổng tiền tại vị trí cột T.

vba trong excel

Tiếp tục cài đặt hàm để báo cáo, thống kê theo một số điều kiện theo ý muốn của bạn. Ví dụ tổng hợp của chương trình của mình.

vba trong excel

Các hàm khác còn lại tùy thuộc và mục đích cần tổng hợp, thống kê của bạn mà có thể viết hàm tương ứng. Ngoài ra nên tạo thêm Button Copy để lưu trữ lại dữ liệu sau khi tổng hợp thì nếu Save trực tiếp trên chương trình sẽ làm mất đi các hàm đã viết của bạn.

vba trong excel

Vào chương trình viết thêm đoạn code Copy và gán cho Button Copy để tạo bản lưu trữ.

vba trong excel

Sau khi hoàn tất các bước các bạn Save chương trình lại với định dạng là Excel Marco-Enable Wokbook để thể hiện là chương trình Excel có Marco.

vba trong excel

Chương trình sau khi hoàn chỉnh tất cả các bước với dữ liệu đầu vào và bảng tổng hợp.

vba trong excel

vba trong excel

Lời kết

Chức năng dùng VBA làm chương trình tổng hợp nếu so với các chương trình khác thì nó có lợi thế hơn vì có thể tổng hợp rất nhanh chóng đối với cả dữ liệu cần tổng hợp khá lớn. Sau khi xem xong bài hướng dẫn hy vọng các bạn có thể làm chương trình tổng hợp phù hợp với nhu cầu công việc hiện tại.

Và đừng quên chia sẻ với chúng tôi nếu như bạn có bất kỳ vấn đề hoặc thắc mắc nào trong khi thực hiện hướng dẫn trong phần dưới đây nhé!

Chúc bạn thành công!

Dieu Tran
Dieu Tran

Mình là Điều Trần, một thành viên cũng đã viết nhiều bài cho Topthuthuat.com. Mình thích vọc vạch máy tính và các tin tức về Công Nghệ. Mong những nội dung mà viết sẽ mang lại nhiều thứ “hay ho” với bạn, mọi góp ý hoặc thắc mắc vui lòng để lại bình luận bài viết. Trân trọng!

Theo dõi
Thông báo
guest

3 Comments
Mới nhất
Cũ nhất Đánh giá
Inline Feedbacks
View all comments
Thủ thuật máy tính - Tin học dành cho bạn
Logo