AutoFilter - Dydamically änderung in der Filterkriterien mit VBA

Ich habe die gleiche Art von Frage wie in diesem link -
Erhalten AutoFilter Sortieren von Kriterien und Anwendung auf dem zweiten Blatt

Ich habe mich durch den link aber nicht in der Lage, die erforderliche Leistung.

Habe ich die gefilterten Kriterien in Tabelle1 (die wir nach Bedarf ändern können) auf einem der Werte in der Spalte (zB: col 10) und basiert nun auf was immer sich die Daten in der Spalte 10, die gezeigt werden, basierend auf den Filterkriterien, ich will zu filtern, in Tabelle2 mit den Daten in Blatt 1.

Habe ich gesehen, dass viele von Ihnen bei der Nutzung mit statischen Werten in der Reihe, wie gezeigt, aber wie kann ich autofilter dynamisch ändernden Werte in die Tabelle1 und filtern, in Tabelle2. Bitte informieren Sie


.AutoFilter Field:=10, Criteria1:=Array("value1", "value2"), Operator:=xlFilterValues

InformationsquelleAutor user2300403 | 2013-08-09
  1. 0

    Was ist, wenn Sie nur definieren Sie das array in VBA?

    Dim CritArray(2) as String
 CritArray(0) = Cells(1,1).Value
 CritArray(1) = Cells(2,1).Value

    Dann einfach Bearbeiten Sie Ihre code-Zeile:

    .AutoFilter Field:=10, Criteria1:=Array(CritArray(0),CritArray(1)), Operator:=xlFilterValues

    Ich weiß nicht, wie viele Kriterien müssen Sie (oder Ihre Lage), aber Sie können hinzufügen/Bearbeiten als solche. Ich basiert dies aus der Tatsache, dass Sie nur 2 Kriterien, aber es kann erweitert werden, natürlich.

    InformationsquelleAutor Joe Laviano
  2. 0

    Ich denke, Sie wollen so etwas wie dieses:

    Sub tgr()

    Dim wsData As Worksheet
    Dim wsCriteria As Worksheet
    Dim arrCriteria As Variant

    Set wsData = Sheets("Sheet2")
    Set wsCriteria = Sheets("Sheet1")
    arrCriteria = Application.Transpose(wsCriteria.Range("J4", wsCriteria.Range("J4").End(xlDown)).Value)

    With wsData.UsedRange
        .AutoFilter 10, arrCriteria, xlFilterValues
    End With

    Set wsData = Nothing
    Set wsCriteria = Nothing
    If IsArray(arrCriteria) Then Erase arrCriteria

End Sub
    • Hi TigerAvatar, Danke, Mit den oben genannten Kriterien seiner Auswahl, alle Werte in Tabelle1, aber das Blatt 1 hat die gefilterten Werte. Wenn ich abgeändert : arrCriteria = Anwendung.Transpose(wsCriteria.Range(wsCriteria.Zellen(4, 10), wsCriteria.Zellen(4, 10).End(xlDown)).SpecialCells(xlCellTypeVisible).Zellen.Wert), seine unter nur den ersten Wert und nicht die nächsten Werte
    • Warum sind Sie mit SpecialCells(xlCellTypeVisible)? Haben Sie verborgene Zeilen, in denen die Kriterien? Am besten wäre es, wenn die critiera Liste für den filter ist eine fortlaufende, ununterbrochene Liste.
    • Ja, Es ist die Ungebrochene Liste. In meinem sheet 1, wenn ich wählen Sie den filter auf eine der Spalten (Spalte 10) , basierend auf der Tabelle1-Daten-Werte in Spalte 10, will ich die Filter in Blatt 2. Also, Wenn ich filter für Spalte 10 mit 10 Werten in Tabelle1, basierend auf 10 Werte in Blatt1 , Blatt 2 gefiltert werden sollen. ist es erreichbar?
    • So entfernen Sie die .SpecialCells(xlCellTypeVisible) so dass es liest sich wie arrCriteria = Application.Transpose(wsCriteria.Range("J4", wsCriteria.Range("J4").End(xlDown)).Value)
    • nicht sicher , seine mit der Meldung "Type Mismatch" Fehler: arrCriteria = Anwendung.Transpose(wsCriteria.Range("J4", wsCriteria.Zellen(Zeilen.count, "J").End(xlDown)).Wert)
    • Es funktioniert für mich, wenn ich es zu testen, habe ich aktualisiert, den code in die Antwort geben, die einem versuchen.
    • sein gibt unregelmäßige Ergebnisse in die Tabelle2. Die arrCriteria = Anwendung.Transpose(wsCriteria.Range("J4", wsCriteria.Range("J4").End(xlDown)).Wert) nicht unter die sichtbaren Werte. Wenn ich die gleiche Aussage zu : arrCriteria = Anwendung.Transpose(wsCriteria.Range("L4", wsCriteria.Range("L4").End(xlDown)).SpecialCells(xlCellTypeVisible).Zellen.Wert) mit speziellen Zellen, die seine Einnahme nur Wert1 aus Wert1 und Wert2 in Tabelle1. Seine arbeiten aber das dauert nur Wert1, meine Erwartung ist, nehmen Wert1 und Wert2. Nicht sicher, was ich vermisst

    InformationsquelleAutor tigeravatar
Schreibe einen Kommentar