Questione : Codice di Excel VBA per regolare automaticamente un filtro dalla Tabella del perno sui 2 valori specifici in un campo

Sto provando a scrivere automaticamente il codice di qualche VBA per fare regolare una macro un filtro dalla tabella del perno per uguagliare soltanto i 2 valori specifici per quel campo & per rinfrescarli.  Non potrei calcolare questo fuori osservando @ il codice prodotto dal registratore a macroistruzione.  Per esempio, la Tabella del perno ha un campo chiamato “divisione di affari„.  In questo campo ci sono circa 50 circa i valori che non devo essere incluso nella tabella.  Così, attualmente andiamo manualmente dentro & chiaramente il filtro per il giacimento della divisione di affari & allora manualmente arrotoliamo giù per selezionare i valori che abbiamo bisogno di.  Diremo che gli unici 2 valori che abbiamo bisogno di indicato in questo campo sono il uno o il altro uguale “ad Apple„ o “arancio„ & questi 2 valori non cambieranno mai.  Può qualcuno aiutarlo con la sintassi adeguata per a filtrare la tabella del perno & allora a rinfrescarla?  Lasciarlo prego conoscere se stia essendo troppo vago o se avete bisogno di altre informazioni.  

Thanks come sempre per il vostro aiuto! class= del

Risposta : Codice di Excel VBA per regolare automaticamente un filtro dalla Tabella del perno sui 2 valori specifici in un campo

Provare questo.  Dovrete cambiare il mio nome “ActivityEstimatesPivotTable„ della tabella del perno per essere il nome della vostra tabella del perno e dovrete cambiare i due punti di test di verifica in mio se dichiarazione a che cosa volete.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

ApplyPivotFilter secondario ()
    pItem fioco come PivotItem
    Con ActiveSheet.PivotTables (“ActivityEstimatesPivotTable„) .PivotFields (_
        “Condizione„)
        
        Per ogni pItem in .PivotItems
        
            Se (pItem.Value <> “4 - Resolved„) e _
               (pItem.Value <> “verificati„) allora
                pItem.Visible = falso
            Concluder se
        pItem seguente
        
    Estremità con
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us