Bài viết kỹ thuật dưới đây Chúng tôi qua app sẽ giới thiệu cho bạn một số ví dụ về cách sử dụng Autofilter trong VBA link down . công cụ Ngoài ra bạn đọc hỗ trợ có thể tham khảo thêm một số bài viết giảm giá đã có trên Chúng tôi danh sách để tìm hiểu thêm về hàm TRIM thanh toán , hàm DIR trong VBA đăng ký vay nhé.
Mục Lục bài viết:
1 qua app . Ví dụ về Autofilter trong VBA.
1.1 đăng ký vay . Ví dụ 1: Lọc dữ liệu dựa trên điều kiện Text
1.2 ở đâu uy tín . Ví dụ 2: Lọc dữ liệu theo nhiều tiêu chí (AND / OR) trong cùng một cột
1.3 ở đâu nhanh . Ví dụ 3: Lọc dữ liệu theo nhiều tiêu chí tất toán nhưng khác cột
1.4 ứng dụng . Ví dụ 4: Sử dụng Autofilter danh sách để lọc dữ liệu Top 10
1.5 ứng dụng . Ví dụ 5: Lọc 10% dữ liệu bằng phương thức AutoFilter
1.6 tốc độ . Ví dụ 6: Sử dụng ký tự đại diện trong Autofilter
1.7 chia sẻ . Ví dụ 7: Sao chép cập nhật các hàng tải về đã lọc vào bảng tính mới
1.8 tính năng . Ví dụ 8: Sao chép chi tiết các cột qua web được lọc vào bảng tính mới
1.9 tất toán . Ví dụ 9: Lọc dữ liệu dựa trên giá trị ô
1 qua web . Ví dụ về Autofilter trong VBA
Dưới đây là một số ví dụ về cách sử dụng Autofilter trong VBA:
1.1 Ví dụ 1: Lọc dữ liệu dựa trên điều kiện Text
Giả sử bạn có một file dữ liệu như chia sẻ dưới đây lấy liền và muốn lọc dữ liệu dựa trên cột Item:
Đoạn mã tất toán dưới đây trực tuyến sẽ lọc vô hiệu hóa tất cả kích hoạt các hàng dữ liệu , trong đó full crack các mục là Printer:
Sub FilterRows()
Worksheets("Sheet1").Range("A1").AutoFilter Field:=2 khóa chặn , Criteria1:="Printer"
End Sub
Đoạn mã trên tham chiếu đến bảng tính 1 mẹo vặt và trong bảng tính nó tham chiếu đến ô A1 (là ô trong tập dữ liệu).
Lưu ý trong ví dụ này chúng ta sử dụng Field:=2 qua web , vì cột Item là cột thứ 2 trong tập dữ liệu kiểm tra , tính từ trái sang.
1.2 Ví dụ 2: Lọc dữ liệu theo nhiều tiêu chí (AND / OR) trong cùng một cột
Giả sử chúng ta có cùng một tập dữ liệu mật khẩu và muốn lọc full crack tất cả nơi nào các bản ghi trong đó qua app các mục là Printer download hoặc Projector:
Để làm thanh toán được điều này danh sách , chúng ta thanh toán sẽ sử dụng đoạn mã link down dưới đây:
Sub FilterRowsOR()
Worksheets("Sheet1").Range("A1").AutoFilter Field:=2 vô hiệu hóa , Criteria1:="Printer" qua mạng , Operator:=xlOr quảng cáo , Criteria2:="Projector"
End Sub
Lưu ý công cụ , trong đoạn mã trên chúng ta sử dụng toán tử xlOR ở đâu uy tín . Điều này tăng tốc để VBA sử dụng cả 2 tiêu chí danh sách và lọc dữ liệu đăng ký vay nếu bất kỳ một trong hai tiêu chí qua mạng được đáp ứng.
Tương tự tối ưu , chúng ta kỹ thuật cũng giá rẻ có thể sử dụng tiêu chí AND.
Cho ví dụ trực tuyến , cài đặt nếu muốn lọc giảm giá tất cả miễn phí các bản ghi có số lượng lớn hơn 10 nơi nào nhưng dưới 20 qua web , chúng ta địa chỉ có thể sử dụng đoạn mã nguyên nhân dưới đây:
Sub FilterRowsAND()
Worksheets("Sheet1").Range("A1").AutoFilter Field:=4 bản quyền , Criteria1:=">10" tự động , _
Operator:=xlAnd quảng cáo , Criteria2:="<>
End Sub
1.3 Ví dụ 3: Lọc dữ liệu theo nhiều tiêu chí ứng dụng nhưng khác cột
Giả sử chúng ta có file dữ liệu ở đâu uy tín dưới đây:
Với Autofilter an toàn , chúng ta thanh toán có thể lọc nhiều cột cùng một lúc.
Cho ví dụ hỗ trợ , full crack nếu muốn lọc đăng ký vay tất cả tốc độ các bản ghi trong đó mục Printer bản quyền và Sales Rep là Mark mới nhất , chúng ta nạp tiền có thể sử dụng đoạn mã hỗ trợ dưới đây:
Sub FilterRows()
With Worksheets("Sheet1").Range("A1")
.AutoFilter field:=2 giảm giá , Criteria1:="Printer"
.AutoFilter field:=3 kiểm tra , Criteria1:="Mark"
End With
End Sub
1.4 Ví dụ 4: Sử dụng Autofilter tải về để lọc dữ liệu Top 10
Giả sử chúng ta có bảng dữ liệu ở đâu tốt dưới đây:
Sử dụng đoạn mã tốc độ dưới đây mẹo vặt để lọc top 10 bản ghi hàng đầu (dựa trên cột Quantity):
Sub FilterRowsTop10()
ActiveSheet.Range("A1").AutoFilter Field:=4 kỹ thuật , Criteria1:="10" sử dụng , Operator:=xlTop10Items
End Sub
Trong ví dụ trên tối ưu , bảng tính có tên là ActiveSheet nơi nào . Bạn dịch vụ có thể thay thế bằng tên bảng tính kiểm tra của mình.
Lưu ý hỗ trợ , trong ví dụ trên cài đặt nếu muốn top 5 mục hàng đầu tự động , chúng ta chỉ cần thay đổi số trong Criteria1:="10"" từ 10 thành 5.
Mã sử dụng an toàn để lấy top 5 mục hàng đầu có dạng:
Sub FilterRowsTop5()
ActiveSheet.Range("A1").AutoFilter Field:=4 như thế nào , Criteria1:="5" quảng cáo , Operator:=xlTop10Items
End Sub
Bất kể chúng ta muốn lấy bao nhiêu mục top đầu ở đâu tốt , giá trị toán tử (Operator) luôn luôn là xlTop10Items.
Tương tự link down , nguyên nhân để lấy top 10 mục thấp nhất an toàn , chúng ta sử dụng đoạn mã tối ưu dưới đây:
Sub FilterRowsBottom10()
ActiveSheet.Range("A1").AutoFilter Field:=4 nơi nào , Criteria1:="10" tài khoản , Operator:=xlBottom10Items
End Sub
1.5 Ví dụ 5: Lọc 10% dữ liệu bằng phương thức AutoFilter
Chúng ta phải làm sao vẫn tiếp tục sử dụng bảng dữ liệu trong phần ví dụ trên.
Sử dụng đoạn mã trực tuyến dưới đây mới nhất để lấy 10% tối ưu các bản ghi hàng đầu (dựa trên cột Quantity):
Sub FilterRowsTop10()
ActiveSheet.Range("A1").AutoFilter Field:=4 ở đâu tốt , Criteria1:="10" quảng cáo , Operator:=xlTop10Percent
End Sub
Vì trong bảng dữ liệu danh sách của chúng ta có 20 bản ghi quảng cáo , đoạn mã trên bản quyền sẽ trả về 2 bản ghi hàng đầu (chiếm 10% tổng số bản ghi).
1.6 Ví dụ 6: Sử dụng ký tự đại diện trong Autofilter
Cho bảng dữ liệu như danh sách dưới đây:
Để lọc nạp tiền tất cả lừa đảo các hàng có tên ở đâu nhanh các mục chứa từ Board công cụ , chúng ta sử dụng đoạn mã sửa lỗi dưới đây:
Sub FilterRowsWildcard()
Worksheets("Sheet1").Range("A1").AutoFilter Field:=2 thanh toán , Criteria1:="*Board*"
End Sub
Trong đoạn mã trên kiểm tra , chúng ta sử dụng ký tự đại diện * (dấu hoa thị) trước qua mạng và sau từ Board (là tiêu chí).
Một dấu hoa thị lừa đảo có thể đại diện cho số lượng ký tự bất kỳ lấy liền . Vì vậy đoạn mã trên tính năng sẽ lọc bất kỳ mục nào có từ Board trong đó.
1.7 Ví dụ 7: Sao chép tổng hợp các hàng xóa tài khoản đã lọc vào bảng tính mới
tăng tốc Nếu muốn lọc tổng hợp các bản ghi dựa trên nhanh nhất các tiêu chí nạp tiền và sao chép download các hàng dữ liệu đã lọc tốc độ , chúng ta kích hoạt có thể sử dụng macro nạp tiền dưới đây an toàn . Macro quản lý sẽ sao chép xóa tài khoản các hàng an toàn đã trực tuyến được lọc qua web , thêm một bảng tính mới ở đâu tốt , quảng cáo sau đó dán tài khoản các hàng miễn phí được lọc vào bảng tính mới:
Sub CopyFilteredRows()
Dim rng As Range
Dim ws As Worksheet
If Worksheets("Sheet1").AutoFilterMode = False Then
MsgBox "khong co hang nao duoc loc"
Exit Sub
End If
Set rng = Worksheets("Sheet1").AutoFilter.Range
Set ws = Worksheets.Add
rng.Copy Range("A1")
End Sub
Đoạn mã trên dịch vụ sẽ kiểm tra xem có hàng nào tăng tốc được lọc trong Sheet1 hay không hướng dẫn . kích hoạt Nếu không có hàng nào trực tuyến được lọc tất toán , nó miễn phí sẽ hiển thị hộp thoại thông báo.
giảm giá Nếu có bản quyền các hàng ở đâu tốt được lọc tất toán , nó tốt nhất sẽ sao chép tăng tốc các hàng đó nạp tiền , chèn một bảng tính mới chi tiết và dán quảng cáo các hàng giảm giá đã lọc vào bảng tính mới nhanh nhất được chèn.
1.8 Ví dụ 8: Sao chép nạp tiền các cột như thế nào được lọc vào bảng tính mới
sửa lỗi Nếu muốn lọc tốc độ các bản ghi dựa trên tổng hợp các tiêu chí trực tuyến và sao chép trực tuyến các cột mẹo vặt đã lọc dữ liệu , chúng ta qua mạng có thể sử dụng macro mới nhất dưới đây lừa đảo . Macro ở đâu nhanh sẽ sao chép tự động các cột ứng dụng đã lấy liền được lọc mới nhất , thêm một bảng tính mới tổng hợp , bản quyền sau đó dán lấy liền các cột này vào bảng tính mới:
Sub CopyFilteredRows()
Dim rng As Range
Dim ws As Worksheet
If Worksheets("Sheet1").AutoFilterMode = False Then
MsgBox "khong co cot nao duoc loc"
Exit Sub
End If
Set rng = Worksheets("Sheet1").AutoFilter.Range
Set ws = Worksheets.Add
rng.Copy Range("A1")
End Sub
Đoạn mã trên tất toán sẽ kiểm tra xem có cột nào ứng dụng được lọc trong Sheet1 hay không tốt nhất . lừa đảo Nếu không có cột nào tự động được lọc kỹ thuật , nó quản lý sẽ hiển thị hộp thoại thông báo.
tối ưu Nếu có như thế nào các cột tài khoản được lọc dữ liệu , nó an toàn sẽ sao chép tất toán các cột đó miễn phí , chèn một bảng tính mới trực tuyến và dán nạp tiền các cột ở đâu nhanh đã lọc vào bảng tính mới qua web được chèn.
1.9 Ví dụ 9: Lọc dữ liệu dựa trên giá trị ô
Bằng cách sử dụng Autofilter trong VBA cùng menu thả xuống tổng hợp , chúng ta cập nhật có thể tạo một hàm trong đó khi chọn một mục trong menu công cụ , tất toán tất cả ở đâu tốt các bản ghi mới nhất của mục đó nơi nào sẽ giả mạo được lọc.
Kiểu cấu trúc này ở đâu nhanh có thể hữu ích trong trường hợp hay nhất nếu muốn lọc dữ liệu nhanh chóng ở đâu uy tín , link down sau đó sử dụng cho thanh toán các tác vụ khác.
Để làm hỗ trợ được điều này an toàn , chúng ta sử dụng đoạn mã bản quyền dưới đây:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If Range("B2") = "All" Then
Range("A5").AutoFilter
Else
Range("A5").AutoFilter Field:=2 bản quyền , Criteria1:=Range("B2")
End If
End If
End Sub
Nó là mã sự kiện bảng tính ở đâu nhanh , chỉ thanh toán được thực thi khi có thay đổi trong bảng tính ở đâu tốt và ô đích là B2 (nơi chúng ta có menu thả xuống).
chi tiết Ngoài ra dữ liệu nếu điều kiện If Then Else tài khoản được sử dụng nhanh nhất để kiểm tra xem người dùng kích hoạt đã chọn All từ menu hay chưa trực tuyến . ứng dụng Nếu All nạp tiền được chọn ở đâu tốt , toàn bộ dữ liệu kỹ thuật sẽ qua mạng được hiển thị.
Lưu ý mã này không tổng hợp được đặt trong module chia sẻ . Thay vào đó chúng ta đặt trong backend full crack của bảng tính có dữ liệu này.
Thực hiện theo tải về các bước chia sẻ dưới đây qua app để đặt mã trong cửa sổ mã bảng tính:
Bước 1: Mở VB Editor (bằng cách sử dụng phím tắt Alt + F11).
Bước 2: Trong bảng Project Explorer tối ưu , kích đúp chuột vào tên bảng tính tốt nhất mà bạn muốn áp dụng hàm lọc này.
Bước 3: đăng ký vay Trên cửa sổ mã bảng tính sử dụng , sao chép nhanh nhất và dán đoạn mã ở trên vào.
Bước 4: Đóng cửa sổ VB Editor.
Từ giờ khi sử dụng menu thả xuống trực tuyến , nó miễn phí sẽ tự động lọc dữ liệu.
https://thuthuat.taimienphi.vn/su-dung-autofilter-trong-vba-phan-2-45661n.aspx
Bài viết Sử dụng Autofilter trong VBA (Phần 2) trên đây Chúng tôi vừa giới thiệu cho bạn một số ví dụ về cách sử dụng Autofilter trong VBA download . như thế nào Nếu có bất kỳ thắc mắc cập nhật hoặc câu hỏi nào dữ liệu , bạn đọc ứng dụng có thể mẹo vặt để lại ý kiến dữ liệu của mình trong phần bình luận bên dưới bài viết.
4.8/5 (88 votes)
Có thể bạn quan tâm:
