Jak filtrować dane, klikając zawartość komórki w programie Excel?
Zwykle w programie Excel można zastosować funkcję Filtruj, aby filtrować dane według potrzeb. Ale w tym artykule omówię, jak filtrować dane, klikając wartość komórki. Weźmy następujące dane jako przykład, kiedy dwukrotnie kliknę komórkę A2, wszystkie odpowiednie rekordy oparte na tej klikniętej wartości zostaną odfiltrowane od razu, jak pokazano poniżej.
Filtruj dane, klikając wartość komórki z kodem VBA
Filtruj dane, klikając wartość komórki z kodem VBA
Tutaj podam kod VBA, aby filtrować dane, klikając komórkę, wykonaj następujące czynności:
1. Najpierw nadaj swoim danym nazwę zakresu, wprowadź nazwę zakresu do Nazwa Boxi naciśnij Wchodzę klucz, patrz zrzut ekranu:
2. Kliknij prawym przyciskiem myszy kartę arkusza, który chcesz filtrować, klikając komórkę, a następnie wybierz Wyświetl kod z menu kontekstowego oraz w otwartym Microsoft Visual Basic for Applications w oknie, skopiuj i wklej następujący kod do pustego modułu:
Kod VBA: filtruj dane, klikając wartość komórki:
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
Note: W powyższym kodzie, moje dane to nazwa zakresu utworzona przez Ciebie dla zakresu danych, zmień ją według swoich potrzeb.
3. Następnie zapisz i zamknij okno kodu, teraz po dwukrotnym kliknięciu dowolnej komórki zakresu danych, który chcesz odfiltrować, odpowiednie rekordy zostaną przefiltrowane, jak pokazano na poniższym zrzucie ekranu:
Więcej powiązanych artykułów:
Jak zmienić wartość komórki, klikając komórkę?
Jak sortować dane kolumn, klikając nagłówek w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!