Hi Frank
Mi dispiace non poterti aiutare in questo.

Ciao Jeri,
Mi dispiace non poterti aiutare con quello. Benvenuto per postare qualsiasi domanda nel nostro forum: https://www.extendoffice.com/forum.html per ottenere più supporto per Excel dal nostro professionista di Excel o da altri fan di Excel.

trovali e modificali in Array(), Intersect(), Worksheets(), PivotFields()

Tabella pivot 1
Tabella pivot 2
Tabella pivot 3
Tabella pivot 4
H1
NomeFoglio
Nome campo

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xPTabled As PivotTable
    Dim xPFiled As PivotField
    Dim xStr As String
    On Error Resume Next
    '리스트 만들기
    Dim listArray() As Variant
    listArray = Array("PivotTable1", "PivotTable2", "PivotTable3", "PivotTable4")
    If Intersect(Target, Range("H1")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For i = 0 To UBound(listArray)
        Set xPTable = Worksheets("SheetName").PivotTables(listArray(i))
        Set xPFile = xPTable.PivotFields("FieldName")
        'MsgBox (listArray(i))
        xStr = Target.Text
        xPFile.ClearAllFilters
        xPFile.CurrentPage = xStr
    Next
        Application.ScreenUpdating = True
End Sub

Ciao Gilmar Alves,
Mi dispiace non poterti aiutare con quello. Benvenuto per postare qualsiasi domanda nel nostro forum: https://www.extendoffice.com/forum.html per ottenere più supporto per Excel dal nostro professionista di Excel o da altri fan di Excel.

Ciao,
Hai ricevuto qualche messaggio di errore? Ho bisogno di sapere più specifico sul tuo problema, come la tua versione di Excel. E se non ti dispiace, prova a creare i tuoi dati in una nuova cartella di lavoro e riprova, oppure fai uno screenshot dei tuoi dati e caricalo qui.

Ciao Justin,
Hai ricevuto qualche messaggio di errore? Ho bisogno di sapere più specifico sul tuo problema.
Prima di applicare il codice, non dimenticare di modificare il "nome del foglio""nome della tabella pivot""nome del filtro della tabella pivot" e il cella vuoi filtrare la tabella pivot in base a (vedi sceenshot).

Ciao Cristallo,

Grazie per l'aiuto. Il problema è che la funzione non sta facendo nulla per qualche motivo. Qualche chiarimento:

Nome pivot: Order_Comp_B2C
Nome foglio: foglio di calcolo
Nome del filtro: numero della settimana (ho cambiato questo nome da quello che era "Settimana di spedizione n." nel file di dati)
Cella da modificare: O26 e O27 (questo dovrebbe rientrare nell'intervallo)

In questo pivot, sto cercando di modificare il filtro per le colonne, non ho nulla nell'area del filtro nel menu Campi tabella pivot.

il mio codice è:

Private Sub Worksheet_Change (ByVal Target As Range)
'Aggiorna entro Extendoffice 20180702
Dim xPTable come tabella pivot
Dim xPFile come campo pivot
Dim xStr come stringa
On Error Resume Next
Se Intersect(Target, Range("O26")) non è nulla, allora esci da sub
Application.ScreenUpdating = False
Imposta xPTable = Fogli di lavoro ("Foglio di calcolo"). Tabelle pivot ("Comp._ordine_B2C")
Imposta xPFile = xPTable.PivotFields ("Numero settimana")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.PaginaCorrente = xStr
Application.ScreenUpdating = True
End Sub

Grazie,

Justin

Ciao Justin Teeuw,
Ho cambiato il Nome pivot, nome del foglio, nome del filtro e cellula da cambiare alle condizioni che hai menzionato sopra e ho provato il codice VBA che hai fornito, nel mio caso funziona bene. Vedere la seguente GIF o la cartella di lavoro allegata.
Ti dispiace creare una nuova cartella di lavoro e riprovare il codice?

Ciao Cristallo,

In allegato uno screenshot del pivot, la casella rossa è il filtro che vorrei modificare in base al valore della cella.

Preferibilmente vorrei utilizzare un intervallo di celle che indicano più numeri di settimane.

Grazie,

Justin

Ciao Justin,
Scusa non ho visto lo screenshot che hai allegato nella pagina. Forse c'è qualche errore nella pagina.
Se hai ancora bisogno di risolvere il problema, inviami un'e-mail all'indirizzo zxm@addin99.com. Ci dispiace per l'inconvenienza.

Ciao Justin Teeuw,
Si prega di provare il seguente codice VBA. Spero di poter aiutare.

Private Sub Worksheet_Change(ByVal Target As Range)
    'Update by Extendoffice 20220706
    Dim I As Integer
    Dim xFilterStr1, xFilterStr2 As String
    On Error Resume Next
    If Intersect(Target, Range("O26:O27")) Is Nothing Then Exit Sub
    'Application.ScreenUpdating = False
    
    xFilterStr1 = Range("O26").Value
    xFilterStr2 = Range("O27").Value
    ActiveSheet.PivotTables("Order_Comp_B2C").PivotFields("Week Number"). _
        ClearAllFilters
    If xFilterStr1 = "" And xFilterStr2 = "" Then Exit Sub
    ActiveSheet.PivotTables("Order_Comp_B2C").PivotFields("Week Number"). _
        EnableMultiplePageItems = True
    xCount = ActiveSheet.PivotTables("Order_Comp_B2C").PivotFields("Week Number").PivotItems.Count

    For I = 1 To xCount
        If I <> xFilterStr1 And I <> xFilterStr2 Then
            ActiveSheet.PivotTables("Order_Comp_B2C").PivotFields("Week Number").PivotItems(I).Visible = False
        Else
            ActiveSheet.PivotTables("Order_Comp_B2C").PivotFields("Week Number").PivotItems(I).Visible = True
        End If
    Next

    'Application.ScreenUpdating = True
End Sub

Ciao maziaritib4 TIB,
Il metodo è disponibile solo per Microsoft Excel. Ci dispiace per l'inconvenienza.

Ciao James,

Sì, è possibile, il codice che ho usato per questo è (4 pivot e 2 riferimenti di cella):

Private Sub Worksheet_Change (ByVal Target As Range)
Dim I come intero
Dim xFilterStr1, xFilterStr2, yFilterstr1, yfilterstr2 come stringa
On Error Resume Next
Se Intersect(Target, Range("O26:P27")) non è nulla, allora esci da Sub

xFilterStr1 = Intervallo ("O26"). Valore
xFilterStr2 = Intervallo ("O27"). Valore
yFilterstr1 = Intervallo ("p26"). Valore
yfilterstr2 = Intervallo ("p27"). Valore
ActiveSheet.PivotTables("Comp.Ordine_B2C_Crea").Campi pivot("Numero settimana"). _
ActiveSheet.PivotTables("Comp.Ordine_B2B_Crea").Campi pivot("Numero settimana"). _
ActiveSheet.PivotTables("Comp.Ordine_B2C_Disp").Campi pivot("Numero settimana"). _
ActiveSheet.PivotTables("Comp.Ordine_B2B_Disp").Campi pivot("Numero settimana"). _
Cancella tutti i filtri

Se xFilterStr1 = "" E xFilterStr2 = "" E yFilterstr1 = "" E yfilterstr2 = "" Quindi esci da Sub
ActiveSheet.PivotTables("Comp.Ordine_B2C_Crea").Campi pivot("Numero settimana"). _
ActiveSheet.PivotTables("Comp.Ordine_B2B_Crea").Campi pivot("Numero settimana"). _
ActiveSheet.PivotTables("Comp.Ordine_B2C_Disp").Campi pivot("Numero settimana"). _
ActiveSheet.PivotTables("Comp.Ordine_B2B_Disp").Campi pivot("Numero settimana"). _
EnableMultiplePageItems = Vero

xCount = ActiveSheet.PivotTables("Comp.Ordine_B2C_Crea").Campi pivot("Numero settimana").PivotItems.Count
xCount = ActiveSheet.PivotTables("Comp.Ordine_B2B_Crea").Campi pivot("Numero settimana").PivotItems.Count
yCount = ActiveSheet.PivotTables("Comp.Ordine_B2C_Disp").Campi pivot("Numero settimana").PivotItems.Count
yCount = ActiveSheet.PivotTables("Comp.Ordine_B2B_Disp").Campi pivot("Numero settimana").PivotItems.Count

Per I = 1 Per xCount
Se io <> xFilterStr1 e io <> xFilterStr2 Allora
ActiveSheet.PivotTables("Comp.Ordine_B2C_Crea").PivotFields("Numero settimana").PivotItems(I).Visible = False
ActiveSheet.PivotTables("Comp.Ordine_B2B_Crea").PivotFields("Numero settimana").PivotItems(I).Visible = False
Altro
ActiveSheet.PivotTables("Comp.Ordine_B2C_Crea").PivotFields("Numero settimana").PivotItems(I).Visible = True
ActiveSheet.PivotTables("Comp.Ordine_B2B_Crea").PivotFields("Numero settimana").PivotItems(I).Visible = True
End If
Successiva

Per I = 1 A yCount
Se io <> yFilterstr1 E io <> yfilterstr2 Allora
ActiveSheet.PivotTables("Comp.Ordine_B2C_Disp").PivotFields("Numero settimana").PivotItems(I).Visible = False
ActiveSheet.PivotTables("Comp.Ordine_B2B_Disp").PivotFields("Numero settimana").PivotItems(I).Visible = False
Altro
ActiveSheet.PivotTables("Comp.Ordine_B2C_Disp").PivotFields("Numero settimana").PivotItems(I).Visible = True
ActiveSheet.PivotTables("Comp.Ordine_B2B_Disp").PivotFields("Numero settimana").PivotItems(I).Visible = True
End If
Successiva

End Sub

Ciao ST,
Supponiamo che il tuo valore target sia in H6 e cambi a seconda del valore in D18. Per filtrare una tabella pivot in base a questo valore target. Il seguente codice VBA può aiutare. Per favore, provalo.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2022/07/22
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
Dim xBoolean As Boolean
Dim xItsRG As Range
Dim xDDs As Range
Dim xDs As Range
On Error Resume Next

xBoolean = False
Set xRg = Range("h6")

Set xItsRG = Intersect(Target, xRg)
Set xDDs = Intersect(Target.DirectDependents, xRg)
Set xDs = Intersect(Target.Dependents, xRg)
If Not (xItsRG Is Nothing) Then
    xBoolean = True
ElseIf Not (xDDs Is Nothing) Then
    xBoolean = True
ElseIf Not (xDs Is Nothing) Then
    xBoolean = True
End If


If Not xBoolean Then Exit Sub

Application.ScreenUpdating = False
Set xPTable = Worksheets("Sheet1").PivotTables("Pivot Table 1")
Set xPFile = xPTable.PivotFields("Category")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True

End Sub

Ciao ST,
Non capisco bene cosa intendi. Nel tuo caso, il valore della cella di destinazione D3 viene utilizzato per filtrare la tabella pivot. La formula nella cella di destinazione D3 fa riferimento ai valori delle celle A15, B15 e C15, che cambieranno in base ai valori nelle celle di riferimento. Quando viene modificato qualsiasi valore su A15, B15 e C15, la tabella pivot verrà automaticamente filtrata se il valore nella cella di destinazione soddisfa le condizioni di filtro della tabella pivot. Se il valore nella cella di destinazione non soddisfa i criteri di filtro della tabella pivot, la tabella pivot verrà automaticamente reimpostata su nessun filtro.

Ciao Sagar T,
Il codice è stato aggiornato. Per favore, provalo. Grazie per il tuo feedback.
Non dimenticare di modificare i nomi del foglio di lavoro, della tabella pivot e del filtro nel codice. Oppure puoi scaricare la seguente cartella di lavoro caricata per il test.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220805
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
Dim xBoolean As Boolean
Dim xItsRG As Range
Dim xDDs As Range
Dim xDs As Range
On Error Resume Next

xBoolean = False
Set xRg = Range("D3")

Set xItsRG = Intersect(Target, xRg)
Set xDDs = Intersect(Target.DirectDependents, xRg)
Set xDs = Intersect(Target.Dependents, xRg)
If Not (xItsRG Is Nothing) Then
    xBoolean = True
ElseIf Not (xDDs Is Nothing) Then
    xBoolean = True
ElseIf Not (xDs Is Nothing) Then
    xBoolean = True
End If


If Not xBoolean Then Exit Sub
xStr = Format(xRg.Text, "m/d/yyyy")
Application.ScreenUpdating = False
Set xPTable = Worksheets("Sheet2").PivotTables("PivotTable1")
Set xPFile = xPTable.PivotFields("Date")
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True

End Sub

Ciao Алексей,

Si prega di verificare se il codice VBA in questo commento #38754 può aiutare.

Ciao Алексей,

Non è necessario modificare il codice, basta aggiungere il codice VBA al foglio di lavoro della cella a cui si desidera fare riferimento.
Ad esempio, se desideri filtrare una tabella pivot denominata "Tabella pivot 1" in Sheet2 in base al valore della cella H6 in Sheet3, fare clic con il pulsante destro del mouse su Sheet3 scheda del foglio di lavoro, fare clic su Visualizza codice dal menu di scelta rapida, quindi aggiungere il codice al file Foglio3 (Codice) finestra.