Làm cách nào để lọc dữ liệu chỉ bằng cách nhấp vào nội dung ô trong Excel?
Thông thường, trong Excel, bạn có thể áp dụng chức năng Bộ lọc để lọc dữ liệu theo nhu cầu của mình. Tuy nhiên, trong bài viết này, tôi sẽ nói về cách lọc dữ liệu chỉ bằng cách nhấp vào một giá trị ô. Lấy dữ liệu sau đây làm ví dụ, khi tôi nhấp đúp vào ô A2, tất cả các bản ghi tương ứng dựa trên giá trị được nhấp này sẽ được lọc cùng một lúc như hình minh họa bên dưới.
Lọc dữ liệu chỉ bằng cách nhấp vào giá trị ô có mã VBA
Lọc dữ liệu chỉ bằng cách nhấp vào giá trị ô có mã VBA
Ở đây, tôi sẽ cung cấp một mã VBA để bạn lọc dữ liệu bằng cách nhấp vào một ô, hãy làm như sau:
1. Đầu tiên, đặt tên dải ô cho dữ liệu của bạn, vui lòng nhập tên dải ô vào Tên Box, và hãy nhấn đăng ký hạng mục thi chính, xem ảnh chụp màn hình:
2. Bấm chuột phải vào tab trang tính mà bạn muốn lọc bằng cách bấm vào ô, sau đó chọn Mã Chế độ xem từ menu ngữ cảnh và trong Microsoft Visual Basic cho các ứng dụng cửa sổ, sao chép và dán mã sau vào Mô-đun trống:
Mã VBA: Lọc dữ liệu bằng cách nhấp vào giá trị ô:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
Dim rgTable As Range
Dim rgData As Range
Dim xColumn As Integer
On Error Resume Next
Application.ScreenUpdating = False
Set rgTable = Range("mydata")
With rgTable
Set rgData = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
If Not Application.Intersect(ActiveCell, rgData.Cells) Is Nothing Then
xColumn = ActiveCell.Column - .Column + 1
If ActiveSheet.AutoFilterMode = False Then
.AutoFilter
End If
If ActiveSheet.AutoFilter.Filters(xColumn).On = True Then
.AutoFilter Field:=xColumn
Else
.AutoFilter Field:=xColumn, Criteria1:=ActiveCell.Value
End If
End If
End With
Set rgData = Nothing
Set rgTable = Nothing
Application.ScreenUpdating = True
End Sub
Chú thích: Trong đoạn mã trên, dữ liệu của tôi là tên phạm vi bạn đã tạo cho phạm vi dữ liệu của mình, vui lòng thay đổi nó theo nhu cầu của bạn.
3. Sau đó, lưu và đóng cửa sổ mã, bây giờ, khi bạn nhấp đúp vào bất kỳ ô nào của dải dữ liệu mà bạn muốn lọc ra, các bản ghi tương ứng của nó sẽ được lọc như ảnh chụp màn hình sau:
Các bài liên quan khác:
Làm thế nào để thay đổi giá trị ô bằng cách nhấp vào ô?
Làm thế nào để sắp xếp dữ liệu cột bằng cách nhấp vào tiêu đề trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
