Hoe gegevens filteren door op celinhoud in Excel te klikken?
Normaal gesproken kunt u in Excel de filterfunctie toepassen om gegevens op uw behoefte te filteren. Maar in dit artikel zal ik het hebben over het filteren van gegevens door gewoon op een celwaarde te klikken. Neem de volgende gegevens als voorbeeld: wanneer ik dubbelklik op cel A2, worden alle bijbehorende records op basis van deze aangeklikte waarde in 茅茅n keer gefilterd, zoals onderstaand screenshot.
Filter gegevens door gewoon op een celwaarde met VBA-code te klikken
Filter gegevens door gewoon op een celwaarde met VBA-code te klikken
Hier zal ik u een VBA-code geven om gegevens te filteren door op een cel te klikken, doe dit als volgt:
1. Geef uw gegevens eerst een bereiknaam, voer een bereiknaam in het Naam Boxen druk op Enter key, zie screenshot:
2. Klik met de rechtermuisknop op de bladtab die u wilt filteren door op cel te klikken en kies vervolgens Bekijk code vanuit het contextmenu en in het geopende Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de lege module:
VBA-code: filter gegevens door op de celwaarde te klikken:
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: In de bovenstaande code, mijn data is de bereiknaam die u voor uw gegevensbereik heeft gemaakt, wijzig deze naar uw behoefte.
3. Sla vervolgens het codevenster op en sluit het.Als u dubbelklikt op een cel van het gegevensbereik dat u wilt filteren, worden de bijbehorende records gefilterd zoals in het volgende screenshot:
Meer gerelateerde artikelen:
Hoe verander ik de celwaarde door op de cel te klikken?
Hoe kolomgegevens sorteren door op de koptekst in Excel te klikken?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
