VBA EXCEL LỌC DỮ LIỆU THEO ĐIỀU KIỆN

VBA Excel giúp cho bạn tự động hóa các công việc thường làm trên Excel như lọc dữ liệu, thống kê dữ liệu, tổng hợp dữ liệu, tách dữ liệu theo một hay nhiều điều kiện. Hôm nay Ths Trần Đình Ngọc -Giáo Viên Trung Tâm Tin Học Hoài Ân hướng dẫn cho anh/chị học viên cách lọc dữ liệu trên vba từ cơ bản đến nâng cao, hy vọng với bài chia sẻ này sẽ giúp anh/chị học viên tự động hóa các công việc thường ngày trên Excel.

Các bước thực hiện:

Bước 1: Tại ô B3 tạo hộp danh sách chọn bằng chức năng Data validation như sau:

Kết quả ô B3 có dạng như sau:

Bước 2: Vào thẻ Developer -> Insert -> Command để tạo Nút Lọc -> Nhập tên Lọc dữ liệu.

Bước 3: R_Click vào Nút Lọc dữ liệu -> Assign Macro -> Nhập tên Locdulieu -> New 

Sau đó xuất hiện cửa sổ để cho bạn nhập đoạn code sau:

Giải thích code lọc dữ liệu theo một điều kiện Kho

Dim sh As Worksheet
Dim bt As Range

Khai báo Sh là biến làm việc trên bảng tính Excel(Sheet)

Khai báo biến bt làm việc trên vùng dữ liệu khi chọn

Dim dl As Long

dl là biến để xác định số dòng dữ liệu trong bảng tính

Set sh = ChiTiet

Gán sheet ChiTiet cho biên sh để thuận tiện trong việc truy xuất dữ liệu

dl = sh.Range(“A” & Rows.Count).End(xlUp).Row

Xác định số dòng dữ liệu có trong sheet

Set bt = sh.Range(“A4:G” & dl)

Gán vùng dữ liệu sẽ lọc cho biến bt

If sh.Range(“B3”).Value = “All” Then

ActiveSheet.ShowAllData

Nếu chọn dữ liệu trên Ô B3 là “All” nghĩa là không có điều kiện lọc và hiển thị dữ liệu tất cả
Else

Ngược lại điều kiện lọc dữ liệu là ô B3
bt.AutoFilter field:=1, Criteria1:=sh.Range(“B3”).Value
End If

Chúc mừng bạn đã .hoàn thành VBA Excel lọc dữ liệu theo một điều kiện. Bài tiếp theo tôi sẽ hướng dẫn các bạn lọc dữ liệu 2 điều kiện nhé.

Khóa học lập trình VBA Excel ở Biên Hòa

Bạn có thể down bài thực hành VBA Excel Lọc dữ liệu 1 điều kiện trên excel tại đây

Bạn có thể xem tiếp vba-excel-loc-du-lieu-2-dieu-kien-tren-excel

Biên tập nội dung: Ths Trần Đình Ngọc