Classe CalculatedMember (Excel VBA)

A classe CalculatedMember representa os campos calculados, os itens calculados e os conjuntos nomeados para Tabelas Dinâmicas com fontes de dados OLAP (Processamento Analítico Online).

Os principais procedimentos da classe CalculatedMember são Delete, CalculatedMembers.Add e CalculatedMembers.AddCalculatedMember

Set

Para usar uma variável de classe CalculatedMember, ela primeiro precisa ser instanciada por exemplo

Dim clcm as CalculatedMember
Set clcm = ActiveCell.PivotTable.CalculatedMembers(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo CalculatedMember: CalculatedMembers.Item, CalculatedMembers.Add, CalculatedMembers.AddCalculatedMember, ModelConnection.CalculatedMembers, OLEDBConnection.CalculatedMembers e PivotTable.CalculatedMembers

For Each

Aqui está um exemplo de processamento dos itens CalculatedMember em uma coleção.

Dim clcm As CalculatedMember
For Each clcm In ActiveCell.PivotTable.CalculatedMembers
	
Next clcm

Temas

Os procedimentos a seguir nesta aula foram agrupados e são descritos em uma página de tema separada

Add with its procedures CalculatedMembers.Add e CalculatedMembers.AddCalculatedMember

Métodos

Estes são os principais métodos da classe CalculatedMember

Delete - Exclui o objeto.

ActiveCell.PivotTable.CalculatedMembers(1).Delete

Propriedades

DisplayFolder Retorna o nome da pasta de exibição para um conjunto nomeado. Somente leitura.

Dim strDisplayFolder As String
strDisplayFolder = ActiveCell.PivotTable.CalculatedMembers(1).DisplayFolder

Dynamic Retorna se o conjunto nomeado especificado é recalculado a cada atualização. Boolean somente leitura.

Dim booDynamic As Boolean
booDynamic = ActiveCell.PivotTable.CalculatedMembers(1).Dynamic

FlattenHierarchies Retorna ou define se os itens de todos os níveis da hierarquia do conjunto nomeado especificado são exibidos no mesmo campo de um relatório de tabela dinâmica com base em um cubo OLAP. Boolean de leitura/gravação.

ActiveCell.PivotTable.CalculatedMembers(1).FlattenHierarchies = True

Formula Retorna um valor String que representa a fórmula do membro na sintaxe MDX Multidimensional Expressions.

Dim strFormula As String
strFormula = ActiveCell.PivotTable.CalculatedMembers(1).Formula

HierarchizeDistinct Retorna ou define se deve ordenar e remover duplicatas ao exibir a hierarquia do conjunto nomeado especificado em um relatório de tabela dinâmica com base em um cubo OLAP. Boolean de leitura/gravação.

ActiveCell.PivotTable.CalculatedMembers(1).HierarchizeDistinct = True

IsValid Retorna um Boolean que indica se o membro calculado especificado foi instanciado com êxito com o provedor OLAP durante a sessão atual.

Dim booIsValid As Boolean
booIsValid = ActiveCell.PivotTable.CalculatedMembers(1).IsValid

MeasureGroup Retorna o grupo de medidas associado. String somente leitura.

Dim strMeasureGroup As String
strMeasureGroup = ActiveCell.PivotTable.CalculatedMembers(1).MeasureGroup

Name Retorna um valor String que representa o nome do objeto.

Dim strName As String
strName = ActiveCell.PivotTable.CalculatedMembers(1).Name

NumberFormat Retorna um valor XlCalcMemNumberFormatType que representa o formato de número do membro calculado. O valor padrão é xlNumberFormatTypeDefault. Somente leitura.

Dim xcmNumberFormat As XlCalcMemNumberFormatType
xcmNumberFormat = ActiveCell.PivotTable.CalculatedMembers(1).NumberFormat

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveCell.PivotTable.CalculatedMembers(1).Parent

ParentHierarchy Retorna o nome da hierarquia pai atual das hierarquias disponíveis no cubo. String somente leitura.

Dim strParentHierarchy As String
strParentHierarchy = ActiveCell.PivotTable.CalculatedMembers(1).ParentHierarchy

ParentMember Retorna o nome do membro pai da hierarquia pai. String somente leitura.

Dim strParentMember As String
strParentMember = ActiveCell.PivotTable.CalculatedMembers(1).ParentMember

SolveOrder Retorna um Long especificando o valor do argumento da ordem de resolução MDX expressão Mulitdimensional do membro calculado. O valor padrão é zero. Somente leitura.

Dim lngSolveOrder As Long
lngSolveOrder = ActiveCell.PivotTable.CalculatedMembers(1).SolveOrder

SourceName Retorna um valor String que representa o nome do objeto especificado como ele aparece nos dados de origem originais para o relatório de tabela dinâmica especificado.

Dim strSourceName As String
strSourceName = ActiveCell.PivotTable.CalculatedMembers(1).SourceName

Type Retorna um valor XlCalculatedMemberType que representa o tipo de membro calculado.

Dim xcmType As XlCalculatedMemberType
xcmType = ActiveCell.PivotTable.CalculatedMembers(1).Type

CalculatedMembers.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveCell.PivotTable.CalculatedMembers.Count

CalculatedMembers.Item Retorna um único objeto de uma coleção.

Dim clcmItem As CalculatedMember
Set clcmItem = ActiveCell.PivotTable.CalculatedMembers(Index:=1)

CalculatedMembers.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveCell.PivotTable.CalculatedMembers.Parent