Tập dữ liệu hiển thị số lượng bán hàng của sản phẩm điện tử vào những ngày khác nhau vào tháng 1 , Tháng 2 và Tháng 3 2022 .
Phương pháp 1- Sử dụng tùy chọn Sắp xếp &Lọc để Áp dụng Bộ lọc Nâng cao cho Phạm vi Ngày
BƯỚC:
- Tạo 3 tiêu đề cột như bên dưới:Ngày , Sản phẩm và Số lượng bán hàng.
- Vào Ngày cột, hãy nhập tiêu chí hoặc phạm vi bạn muốn áp dụng. Tại đây, trích xuất doanh số bán hàng sau ngày 31 tháng 1 2022 .
- Trong F6 , nhập >31/1/2022.
- Nhấp vào OK .
>31/1/2022 cho biết ngày sau ngày 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 tới Dữ liệu và chọn Nâng cao trong Sắp xếp &Lọc .
- Trong Bộ lọc nâng cao , chọn Sao chép sang vị trí khác .
- Phạm vi danh sách đang 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 vào .
- Nhấn Nhập để 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 phạm vi ngày , Sản phẩm hoặc Số lượng bán hàng .
Phương pháp 2 – Áp dụng VBA Excel để sử dụng Bộ lọc nâng cao cho phạm vi ngày
BƯỚC:
- Tạo 2 tiêu đề cột: Bắt đầu và Kết thúc Ngày .
Để trích xuất thông tin về doanh số bán hàng của Tháng 1 2022 , hãy nhập Bắt đầu ngày là ngày 1 tháng 1 và Kết thúc ngày là ngày 31 tháng 1.
- Để khai báo tiêu chí trong VBA mã, tiêu đề phải giống nhau.
- Trong F8 , hãy nhập công thức sau:
- Nhấp vào OK .
=”>=”&F5 sao chép giá trị từ F5 và đặt ra tiêu chí. Tiêu chí cho biết lớn hơn hoặc bằng tới giá trị đó. Công thức đặt tiêu chí ở F8 lớn hơn hoặc bằng ngày 1 tháng 1 2022 .
- Trong G8 , hãy nhập công thức sau:
- Nhấp vào OK .
=”<=”&G5 sao chép giá trị trong G5 và đặt ra tiêu chí. Tiêu chí là ít hơn hoặc bằng tới giá trị đó. Công thức đặt tiêu chí trong G8 nhỏ hơn hoặc bằng ngày 31 tháng 1 2022 .
- Đi tới Nhà phát triển và nhấp vào Visual Basic .
- Trong Ứng dụng Microsoft Visual Basic cửa sổ, hãy nhấp vào Chèn >> Mô-đun .
- Nhập mã sau vào mô-đun:
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 thay đổi vị trí bắt đầu nơi tập dữ liệu kết quả sẽ được hiển thị.
- DRg.CurrentRegion.Clear dọn sạch khu vực.
- Rg.AdvancedFilter xlFilterCopy, CRg, DRg cho biết quá trình lọc nâng cao.
- Chạy mã bằng cách nhấp vào biểu tượng sau:
- doanh số thông tin cho Tháng 1 năm 2022 được hiển thị.
Tải xuống sổ tay thực hành
Tải xuống sổ làm việc sau.
<