Trong bài viết về Hướng dẫn cách lọc dữ liệu trong Excel có bài tập kèm theo, nguthan.vn đã hướng dẫn các bạn cách sử dụng bộ lọc Filter. Nhưng đó đều là các thao tác lọc hoàn toàn thủ công, bạn phải tác động trực tiếp vào bộ lọc. Việc đó có thể mất nhiều thời gian và kém hiệu quả nếu bạn phải sử dụng bộ lọc liên tục. Trong bài viết này nguthan.vn sẽ hướng dẫn các bạn cách tự động hóa cho bộ lọc Filter bằng cách sử dụng VBA.
Cách tự động hóa cho bộ lọc Filter bằng cách sử dụng VBA
Cách sử dụng VBA để tự động hóa cho các thao tác thường sử dụng trong Excel rất đơn giản. Bạn có thể áp dụng VBA với bộ lọc Filter như sau:
Bước 1: Mở thẻ View hoặc thẻ Developer trên thanh công cụ (nếu bạn chưa biết cách mở thẻ Developer thì xem hướng dẫn ở đây), sau đó bấm chọn mục Record Macro
Khi đó xuất hiện 1 cửa sổ thông tin về Macro được ghi, bạn có thể sửa lại tên macro tại mục Macro Name, hoặc để tên macro mặc định là Macro1 (số 1 có thể thay đổi sau mỗi lần bạn thực hiện record macro)
Bước 2: Thực hiện thao tác lọc dữ liệu trong cột Nhân viên với 1 tên nhân viên bất kỳ
Bước 3: sau khi lọc xong, bạn chọn lại tới vị trí Record Macro đã thực hiện ở bước 1, lúc này sẽ hiển thị là Stop recording. Bạn hãy bấm vào nút Stop recording đó.
Bạn đang xem: Lọc dữ liệu bằng vba trong excel
Bước 4: mở cửa sổ VBA (phím tắt là Alt + F11 hoặc bấm vào mục Visual Basic trong thẻ Developer) để kiểm tra xem đã có đoạn code cho thao tác lọc chưa.
Trong cửa sổ Project, tại Workbook bài tập, kiểm tra xem có Module 1 khôngNháy đúp chuột vào Module 1, kiểm tra xem có đoạn code như trong hình dưới đây không
Trong đoạn code này, chúng ta chú ý ở mục Criteria1:=”Mai”. Đây chính là điều kiện lọc mà chúng ta đã sử dụng ở bước 2.
Bước 5: Thay đổi điều kiện bằng giá trị tại ô E2
Bạn sửa lại chữ “Mai” bằng Range(“E2”).Value
Kết quả sau khi sửa như sau:
Bước 6: Tiếp tục thực hiện ghi Macro cho thao tác bỏ điều kiện lọc (Clear Filter):
Bấm chọn Record Macro > đặt tên Macro2 > thực hiện chọn thẻ Data, bấm chọn Clear Filter > Bấm chọn Stop Recording
Lúc này chúng ta thu được đoạn code cho thao tác bỏ lọc như sau:
Bước 7: Tại thẻ Project của VBA, bạn nháy đúp chuột vào tên Sheet nơi có chứa bảng dữ liệu. Tại phần cửa sổ viết code, bạn dán đoạn code dưới đây:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range(“E2”)) Is Nothing Then If Range(“E2”).Value = “” Then Macro2 Else Macro1 End If End If End Sub
Ý nghĩa của đoạn code là:
Xét sự thay đổi trong WorksheetNếu có sự thay đổi trong ô E2 thìXét trường hợp ô E2 không có dữ liệu thìChạy Macro2 (là macro bỏ điều kiện lọc)Nếu không thì (ô E2 có dữ liệu)Chạy Macro1 (là macro lọc theo điều kiện giá trị tại ô E2)kết thúc cấu trúc IF xét điều kiện ô E2 không có dữ liệuKết thúc cấu trúc IF xét sự thay đổi tại ô E2Kết thúc MacroNhư vậy khi bạn thực hiện chọn 1 giá trị tại ô E2, ngay lập tức VBA sẽ chạy Macro1 – là macro lọc dữ liệu. Nếu bạn xóa nội dung trong ô E2, VBA sẽ chạy Macro2 – là macro bỏ điều kiện lọc. 2 việc này hoàn toàn tự động mỗi khi bạn có sự thay đổi tại ô E2.
Tổng kết
Như vậy chúng ta đã biết cách sử dụng VBA để tự động hóa cho thao tác sử dụng bộ lọc Filter trong Excel rồi. Rất thú vị phải không nào. Bạn hãy tiếp tục theo dõi các bài viết khác của nguthan.vn nhé.
Xem thêm: Hãy Viết Một Đoạn Văn Nói Về Lợi Ích Của Một Loại Cây Mà Em Biết
Ngoài ra nếu bạn muốn học VBA trong Excel một cách bài bản, có hướng dẫn cụ thể qua video, có giảng viên hỗ trợ… thì đừng bỏ lỡ khóa học VBAG01 – Tuyệt đỉnh VBA – Viết code trong tầm tay của nguthan.vn. Chắc chắn bạn sẽ hài lòng khi tham gia khóa học này.