Hướng dẫn cách tự động lọc dữ liệu trong Excel dùng VBA

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, Gitiho đã 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 Gitiho 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ướ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ông
• Nhá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 Worksheet
• Nế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ệu
• Kết thúc cấu trúc IF xét sự thay đổi tại ô E2
• Kết thúc Macro

Như 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ải file kết quả theo địa chỉ: https://bit.ly/3e6Ahjx

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 Gitiho nhé.

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 Gitiho. Chắc chắn bạn sẽ hài lòng khi tham gia khóa học này.