Die Daten basieren auf der Auswahl der Zelle VBA in Microsoft Excel zum Filtern
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
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
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
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.
Wenn wir die Suche nach Spalte C & Produkt KFCWW filtern möchten, doppelklicken wir auf Zelle C4, um die Daten einzugrenzen.
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
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.