In diesem Artikel erfahren Sie, wie Sie die Daten basierend auf der Auswahl der Zelle filtern.

Sie müssen die folgenden Schritte ausführen:

Klicken Sie auf die Registerkarte Entwickler. Wählen Sie in der Gruppe Code die Option Visual Basic

img1

aus Geben Sie den folgenden Code in das aktuelle Arbeitsblatt ein (in unserem Beispiel Blatt1)

Private Sub Worksheet_BeforeDoubleClick (ByVal-Ziel als Bereich, Abbrechen als Boolescher Wert)

Dim xcolumn As Integer

Dim xvalue As String

xcolumn = ActiveCell.Column

xvalue = ActiveCell.Value

Wenn Application.Intersect (ActiveCell, [Header]) nichts ist, dann

Wenn ActiveCell.Value <> „“ Dann

ActiveSheet.Range („A: d“). AutoFilter-Feld: = xcolumn, Criteria1: = xvalue

Abbrechen = Wahr

End If

End If

End Sub

===

===

Private Sub Worksheet_SelectionChange (ByVal-Ziel als Bereich)

Dim rownumber As Integer

rownumber = ActiveCell.Row

Wenn Application.Intersect (ActiveCell, [Header]) nichts ist, dann

Wenn ActiveCell.Value <> „“ Dann

Bereich („A1: D13“). Interior.ColorIndex = xlNone

Bereich („A“ & rownumber & „: D“ & rownumber) .Interior.ColorIndex = 6

End If

End If

End Sub

img2

Hinweis: Überschriften im obigen Code stellen den benannten Bereich für den Bereich A1: D1 dar. Sie können einfach den Bereich A1: D1 auswählen und Überschriften in das Feld Name eingeben oder den definierten Namen auf der Registerkarte Formeln

img3

verwenden Das BeforeDoubleClick * -Ereignis wird jedes Mal ausgelöst, wenn der Benutzer auf eine Zelle doppelklickt und den Filter in der Suche ändert.

  • Wenn wir die Daten nach Produkt C filtern möchten, können Sie einfach auf Zelle D4 doppelklicken, um die Suche zu filtern.

img4

Wenn wir die Suche nach Spalte C & Produkt KFCWW filtern möchten, doppelklicken wir auf Zelle C4, um die Daten einzugrenzen.

img5

Das SelectionChange * -Ereignis wird jedes Mal aktiviert, wenn der Benutzer eine Zelle auswählt und die Farbe von weiß nach gelb ändert. Wenn die aktive Zelle leer ist, wird der Code nicht ausgeführt.

  • Wenn wir dann auf Zelle B3 klicken, wird die Zeile gelb hervorgehoben. Siehe unten Schnappschuss

img6

Hier sehen Sie, dass die Formelleiste die ausgewählte Zelle anzeigt, d. H. Zelle B3. Auf diese Weise können Sie die Zeilen mit einem einzigen Klick hervorheben und die Daten basierend auf der Auswahl der Zelle mithilfe von VBA-Code filtern.