Hướng Dẫn Cách Sử Dụng Vba Để Lọc Dữ Liệu Vào Báo Cáo Chi Tiết

Đang xem: Hướng dẫn cách sử dụng vba để lọc dữ liệu vào báo cáo chi tiết

Xem thêm: Cách Nhẩm Nghiệm Phương Trình Bậc 3 Chứa Tham Số, Cách Giải Phương Trình Bậc 3 Chứa Tham Số

Xem thêm: Các Chức Năng Của Excel Mà Bạn Cần Phải Biết, Excel Là Gì

Trong Excel, vào menu ToolsMacroVisual Basic Editor:Trong cửa sổ bên trái, nhấn đúp vào VBAProject để bung các nhánh con trong đó ra. Bạn sẽ thấy có ba sheet mà mình tạo ở trên, nhấn đúp vào một sheet bất kỳ để mở cửa sổ soạn thảo code của sheet đó, sau đó thực hiện soạn mã như ở dưới: Sub CopyRecord()Dim i, j, k, n, n1 As IntegerDim temp”n số mẫu tin của sheet 3″n1 số mẫu tin của sheet 1n = 100n1 = 1500″vòng lặp duyệt từ mẫu tin thứ 2 đến mẫu tin cuối cùng của sheet chứa mã nhân viên(trong ví dụ là 100)For i = 2 To n”lưu giái trị của hàng thứ i, cột thứ 2 của sheet3 vào biến temp (trong ví dụ là mã NV).”như vậy biến temp sẽ lần lượt chứa mã số nhân viên của từng người có trong danh sáchtemp = Sheet3.Cells(i, 2)”vòng lặp duyệt từ mẫu tin thứ 2 đến mẫu tin cuối cùng của sheet chưa danh sách nhân viênFor j = 2 To n1″kiểm tra nếu mã nhân viên trong Sheet1 (danh sách nhân viên) trùng với biến temp thì tạo tiếp vòng lặp duyệt qua các cột của mẫu tin tìm thấy.If temp = Sheet1.Cells(j, 2) Thenk = 2Do While Not IsEmpty(Sheet1.Cells(j, k))”Cập nhật các ô vào sheet2Sheet2.Cells(i, k) = Sheet1.Cells(j, k)k = k + 1LoopExit ForEnd IfNextNextEnd SubSau khi đã viết xong code, ta nhấn F5 để chạy macro này, chờ vài giây để macro lọc dữ liệu, sau khi maco thực hiện xong nhiệm vụ, bạn hãy mở Sheet2 ra coi. Cha cha! nó đã copy đầy đủ theo danh sách mã số của bạn.Nếu bạn muốn marco tự động chạy thì thực hiện như sau:Macro chạy mỗi khi bạn thay đổi dữ liệu trong sheet lý lịch: Chép đoạn mã trên (không chép hàng đầu tiên và cuôi cùng: Sub CopyRecord và End Sub). Nhấn đúp vào Sheet1 để mở cửa sổ code, trong listbox bên trái phía trên của cửa số code, chọn Worksheet, bên phải chọn Change, bạn sẽ thấy như sau:Private Sub Worksheet_Change(ByVal Target As Range)End SubDán đoạn mã đã copy vào trong thủ tục này. Bây giờ thì mỗi lần bạn thay đổi dữ liệu trong Sheet1 thì macro sẽ tự động cập nhật lại dữ liệu. Nếu dữ liệu quá nhiều và bạn phải làm việc thường xuyên trên Sheet1 thì không nên dùng cách này vì nó sẽ làm chậm quá trình xử lý của bạn (nhớ xóa đoạn mã cũ sau khi bạn đã copy nó sang sheet khác). Bạn có thể áp dụng cách này để có thể làm được nhiều việc khác nữa.