Tập dữ liệu trình bày số lượng bán của sản phẩm điện tử vào các ngày khác nhau trong tháng 1, tháng 2 và tháng 3 2022.
Phương pháp 1- Dùng tùy chọn Sắp xếp & Bộ lọc để áp dụng Advanced Filter cho khoảng Ngày
CÁC BƯỚC:
- Tạo 3 tiêu đề cột như dưới: Ngày, Sản phẩm và Số lượng bán.
- Trong cột Ngày , nhập tiêu chí hoặc khoảng bạn muốn áp dụng. Ở đây, trích xuất bán hàng sau 31 tháng 1 2022.
- Trong F6, nhập >1/31/2022.
- Nhấn OK.
>1/31/2022 chỉ ngày sau 31 tháng 1 năm 2022.
Để lọc dữ liệu dựa trên tiêu chí:
- Chọn toàn bộ tập dữ liệu B4:D14.
- Đi đến thẻ Dữ liệu và chọn Nâng cao trong Sắp xếp & Bộ lọc.
- Trong Advanced Filter, chọn Sao chép sang vị trí khác.
- Phạm vi danh sách hiển thị phạm vi đã chọn, vì toàn bộ tập dữ liệu đã được chọn.
- Nhập $F$4:$H$5 trong Phạm vi tiêu chí.
- Nhập $F$7 trong Sao chép đến.
- Nhấn Enter để xem kết quả.
- Bạn có thể thay đổi tiêu chí và áp dụng lọc nâng cao dựa trên khoảng ngày, Sản phẩm hoặc Số lượng bán.
Phương pháp 2 – Áp dụng Excel VBA để dùng Advanced Filter cho khoảng Ngày
CÁC BƯỚC:
- Tạo 2 tiêu đề cột: Ngày bắt đầu và Ngày kết thúc.
Để trích xuất thông tin bán hàng tháng 1 2022, nhập Ngày bắt đầu là 1 tháng 1 và Ngày kết thúc là 31 tháng 1.
- Để khai báo tiêu chí trong mã VBA , tiêu đề phải giống nhau.
- Trong F8, nhập công thức sau:
- Nhấn OK.
=”>=”&F5 sao chép giá trị từ F5 và đặt tiêu chí. Tiêu chí chỉ lớn hơn hoặc bằng giá trị đó. Công thức đặt tiêu chí trong F8 là lớn hơn hoặc bằng 1 tháng 1 2022.
- Trong G8, nhập công thức sau:
- Nhấn OK.
=”<=”&G5 sao chép giá trị trong G5 và đặt tiêu chí. Tiêu chí là nhỏ hơn hoặc bằng giá trị đó. Công thức đặt tiêu chí trong G8 là nhỏ hơn hoặc bằng 31 tháng 1 2022.
- Đi đến thẻ Nhà phát triển và nhấn Visual Basic.
- Trong cửa sổ Microsoft Visual Basic Application, nhấn Chèn >> Module.
- Nhập mã sau vào module:
Sub myAdvancedFilterForDateRange() Dim eb As Workbook Dim es As Worksheet Dim Rg As Range Dim CRg As Range Dim DRg As Range Set eb = ThisWorkbook Set es = eb.Worksheets("VBA Code") Set Rg = es.Range("B4").CurrentRegion Set CRg = es.Range("F7").CurrentRegion Set DRg = es.Range("F10") DRg.CurrentRegion.Clear Rg.AdvancedFilter xlFilterCopy, CRg, DRg End Sub 
- Rg biến là phạm vi bắt đầu của tập dữ liệu. CRg biến là điểm bắt đầu của tiêu chí và DRg biến là nơi tập dữ liệu kết quả sẽ hiển thị.
- DRg.CurrentRegion.Clear xóa vùng đó.
- Rg.AdvancedFilter xlFilterCopy, CRg, DRg chỉ quy trình lọc nâng cao.
- Chạy mã bằng cách nhấn biểu tượng sau:
- Thông tin bán hàng cho tháng 1 2022 được hiển thị.
Tải Sổ làm việc thực hành
Tải sổ làm việc sau.
<< Quay lại Advanced Filter | Bộ lọc trong Excel | Học Excel
Nhận BÀI TẬP EXCEL NÂNG CAO MIỄN PHÍ kèm Giải pháp!