Hur filtrerar jag data bara genom att klicka på cellinnehåll i Excel?
Normalt i Excel kan du använda filterfunktionen för att filtrera data efter ditt behov. Men i den här artikeln kommer jag att prata om hur man filtrerar data bara genom att klicka på ett cellvärde. Ta följande data som exempel, när jag dubbelklickar på cellen A2, kommer alla motsvarande poster baserade på detta klickade värde att filtreras på en gång enligt skärmbilden nedan.
Filtrera data bara genom att klicka på ett cellvärde med VBA-kod
Filtrera data bara genom att klicka på ett cellvärde med VBA-kod
Här kommer jag att tillhandahålla en VBA-kod så att du kan filtrera data genom att klicka på en cell, gör så här:
1. Ge först din data ett intervallnamn, vänligen ange ett intervallnamn i Namn Boxoch tryck på ange nyckel, se skärmdump:
2. Högerklicka på arkfliken som du vill filtrera genom att klicka på cellen och välj sedan Visa kod från snabbmenyn och i den öppnade Microsoft Visual Basic för applikationer fönster, kopiera och klistra in följande kod i den tomma modulen:
VBA-kod: Filtrera data genom att klicka på cellvärde:
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
Anmärkningar: I ovanstående kod, min data är intervallnamnet du har skapat för ditt dataintervall, ändra det till ditt behov.
3. Spara och stäng sedan kodfönstret, nu när du dubbelklickar på valfri cell i dataintervallet som du vill filtrera bort, kommer dess motsvarande poster att filtreras enligt följande skärmdump:
Fler relaterade artiklar:
Hur ändrar man cellvärdet genom att klicka på cellen?
Hur sorterar jag kolumndata genom att klicka på rubriken i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
