Hvordan filtreres data bare ved at klikke på celleindhold i Excel?
Normalt kan du i Excel anvende filterfunktionen til at filtrere data efter dit behov. Men i denne artikel vil jeg tale om, hvordan man filtrerer data bare ved at klikke på en celleværdi. Tag følgende data som eksempel, når jeg dobbeltklikker på cellen A2, filtreres alle tilsvarende poster baseret på denne klikede værdi på én gang som vist nedenstående skærmbillede.
Filtrer data bare ved at klikke på en celleværdi med VBA-kode
Filtrer data bare ved at klikke på en celleværdi med VBA-kode
Her vil jeg give en VBA-kode, som du kan filtrere data ved at klikke på en celle, gør som følger:
1. Først skal du give dine data et rækkeviddenavn. Indtast et navn for området i Navn Box, og tryk på Indtast nøgle, se skærmbillede:
2. Højreklik på arkfanen, som du vil filtrere ved at klikke på celle, og vælg derefter Vis kode fra genvejsmenuen og i det åbnede Microsoft Visual Basic til applikationer vindue, kopier og indsæt følgende kode i det tomme modul:
VBA-kode: Filtrer data ved at klikke på celleværdi:
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
Bemærk: I ovenstående kode, mine data er det rækkevidde, du har oprettet til dit dataområde, skal du ændre det til dit behov.
3. Gem og luk derefter kodevinduet, når du dobbeltklikker på en hvilken som helst celle i det dataområde, du vil filtrere, filtreres dens tilsvarende poster som følgende vist skærmbillede:
Flere relaterede artikler:
Hvordan ændres celleværdien ved at klikke på cellen?
Hvordan sorteres søjledata ved at klikke på overskrift i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
