Filter, Pivot-Tabelle für Felder mit einem Wert

Ich versuche zum filtern von pivottable-Feld "name", um nur Datensätze anzuzeigen, die "AA5" im Titel.

Wenn ich das makro aufzuzeichnen, es scheint nur de-wählen Sie die neuesten Produkte, die nicht enthalten AA5 (mit der falschen Eigenschaft). Anstatt mit den AA5=true Eigenschaft.

Jedoch, da der Drehpunkt wird ständig mit neuen Daten aktualisiert, läuft das makro ein zweites mal nicht, entfernen Sie die neu hinzugefügte Elemente, da der code identifiziert hat, die NICHT zu zeigen, anstatt die ZU zeigen.

Sub Macro3()

    Range("A8").Select
    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Name")
            With ActiveSheet.PivotTables("PivotTable1").PivotFields("Name")
        .PivotItems("Test:777:1").Visible = False
        .PivotItems("Test:777:2").Visible = False
        .PivotItems("Test:777:3").Visible = False

    End With

End Sub

InformationsquelleAutor user2197263 | 2013-03-21

1

Hier ist ein einfaches makro, das funktioniert tatsächlich. Ich habe eine pivot-Tabelle enthält in Spalte H Um Fill Rate % verschiedene Fertigerzeugnisse. Um die ausführungsrate von 98,5% oder niedriger ist als nicht gut. Dieses makro wird gehen Sie in die Spalte H ab Zeile 5, und gehen Sie Zeile für Zeile zu überprüfen, die Füllung Preisen. Es blendet die Zeilen, die sind gut dabei sichtbare Zeilen, erfordern weitere Analyse oder Aktion. Es wird halten Sie tun dies, bis Sie die "Letzte Zeile"

Sub zSeries09_FilterPivotTable_ByFillrate98pt5()
'
'zSeries09_FilterPivotTable_ByFillrate98pt5 Makro
'

'
- Anwendung.Calculation = xlManual
```
Dim LR As String

Selection.SpecialCells(xlCellTypeLastCell).Select

LR = ActiveCell.Row

Application.Goto Reference:="R5C8"
```
Routine:
```
 If ActiveCell.Row < LR Then GoTo TestError Else GoTo EndCom
```
TestError:
```
 If IsError(ActiveCell) = True Then GoTo HideRow Else
```
TestBlank:
```
 If IsEmpty(ActiveCell) = True Then GoTo HideRow Else
```
TestFillRate:
```
 If ActiveCell.Value >= 0.985 Then GoTo HideRow Else
```
NoHide:
```
 Application.Goto Reference:="R[1]C"

 GoTo Routine
```
HideRow:
```
 Selection.EntireRow.Hidden = True
Application.Goto Reference:="R[1]C"

GoTo Routine
```
EndCom:
```
Application.Calculation = xlAutomatic
```
End Sub

InformationsquelleAutor Jossy

Er diesen Weg gehen würde:

Sub Quick()
    Dim PTfield As PivotField

    Set PTfield = ActiveSheet.PivotTables(1).PivotFields("Name")
    With PTfield
        .ClearAllFilters
        .PivotFilters.Add xlCaptionEquals, , "AA5" 'for exact matching
    End With

End Sub

Wenn AA5 ist ein Teil filtern von Feldern, ändern Sie dann den parameter in xlCaptionContains.

InformationsquelleAutor Kazimierz Jawor

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.