Método CalculatedMembers.Add (Excel)

Adiciona um campo ou item calculado a uma tabela dinâmica. Devolve um objeto CalculatedMember .

Sintaxe

expressão. Adicionar (Nome, Fórmula, SolveOrder, Tipo, Dinâmico, DisplayFolder, HierarchizeDistinct)

expressão Uma variável que representa um objeto CalculatedMembers .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Name	Obrigatório	String	O nome do membro calculado.
Fórmula	Obrigatório	String	A fórmula do membro calculado.
SolveOrder	Opcional	Variant	A ordem de resolução do membro calculado.
Type	Opcional	Variant	O tipo do membro calculado.
Dynamic	Opcional	Boolean	Especifica se o membro calculado é recalculado com cada atualização.
DisplayFolder	Opcional	String	O nome da pasta de apresentação do membro calculado.
HierarchizeDistinct	Opcional	Boolean	Especifica se pretende ordenar e remover duplicados ao apresentar a hierarquia do membro calculado num relatório de tabela dinâmica com base num cubo OLAP.

Valor de retorno

Um objeto CalculatedMember que representa o novo campo ou item calculado.

Comentários

O argumento Formula deve conter uma instrução de sintaxe MDX (Multidimensional Expression) válida. O argumento Nome tem de ser aceitável para o fornecedor de Processamento Analítico Online (OLAP) e o argumento Tipo tem de ser definido.

Se definir o argumento Tipo deste método como xlCalculatedSet, tem de chamar o método AddSet do objeto CamposCubos para tornar o novo conjunto de campos visível na Tabela Dinâmica.

Exemplo

O exemplo a seguir adiciona um conjunto a uma tabela dinâmica.

Observação

A ligação ao cubo e à tabela dinâmica existente é necessária para que o exemplo seja executado.

Sub UseAddSet() 
 
 Dim pvtOne As PivotTable 
 Dim strAdd As String 
 Dim strFormula As String 
 Dim cbfOne As CubeField 
 
 Set pvtOne = ActiveSheet.PivotTables(1) 
 
 strAdd = "[MySet]" 
 strFormula = "'{[Product].[All Products].[Food].children}'" 
 
 ' Establish connection with data source if necessary. 
 If Not pvtOne.PivotCache.IsConnected Then pvtOne.PivotCache.MakeConnection 
 
 ' Add a calculated member titled "[MySet]" 
 pvtOne.CalculatedMembers.Add Name:=strAdd, _ 
 Formula:=strFormula, Type:=xlCalculatedSet 
 
 ' Add a set to the CubeField object. 
 Set cbfOne = pvtOne.CubeFields.AddSet(Name:="[MySet]", _ 
 Caption:="My Set") 
 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.