Pergunta : Código de Excel VBA para ajustar automaticamente um filtro da tabela do pivô em 2 valores específicos em um campo

Eu estou tentando escrever automaticamente o código de algum VBA para mandar um macro ajustar um filtro da tabela do pivô para igualar somente 2 valores específicos para esse campo & para refrescá-los.  Eu não poderia figurar este para fora olhando @ o código produzido pelo registrador macro.  Por exemplo, a tabela do pivô tem um campo chamado “unidade de negócios”.  Neste campo há aproximadamente 50 ou assim valores que eu não preciso de ser incluído na tabela.  Assim, nós atualmente vamos manualmente dentro & claramente o filtro para o campo da unidade de negócios & então enrolamos manualmente para baixo para selecionar os valores que nós precisamos.  Nós diremos que os únicos 2 valores que nós precisamos mostrado neste campo são um ou outro igual a “Apple” ou “laranja” & estes 2 valores nunca mudarão.  Pode alguém ajudar-me com a sintaxe apropriada para a filtrar a tabela do pivô & a refrescá-la então?  Deixar-me por favor saber se eu estou sendo demasiado vago ou se você precisa any more informação.  

Thanks como sempre para sua ajuda!
class= do

Resposta : Código de Excel VBA para ajustar automaticamente um filtro da tabela do pivô em 2 valores específicos em um campo

Tentar isto.  Você precisará de mudar meu nome “ActivityEstimatesPivotTable” da tabela do pivô para ser o nome de sua tabela do pivô e você precisará de mudar os dois pontos dos critérios no meu se indicação a o que você quer.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
ApplyPivotFilter secundário ()
    pItem não ofuscante como PivotItem
    Com ActiveSheet.PivotTables (“ActivityEstimatesPivotTable”) .PivotFields (_
        “Status”)
        
        Para cada pItem em .PivotItems
        
            Se (pItem.Value <> “4 - Resolved”) e _
               (pItem.Value <> “verific”) então
                pItem.Visible = falso
            Terminar se
        pItem seguinte
        
    Extremidade com
Submarino da extremidade
Outras soluções  
 
programming4us programming4us