Propriedade PivotField.CubeField (Excel)

Devolve o objeto CampoDo Cubo a partir do qual o campo de tabela dinâmica especificado é descendente. Somente leitura.

Sintaxe

expressão. Campo de Cubo

expressão Uma variável que representa um objeto de Campo Dinâmico .

Exemplo

Este exemplo cria uma lista de nomes de campos de cubo para todos os campos de hierarquia no primeiro relatório de tabela dinâmica baseado em OLAP (Online Analytical Processing) na primeira folha de cálculo. Este exemplo pressupõe que existe um relatório de tabela dinâmica na primeira folha de cálculo.

Sub UseCubeField() 
 
 Dim objNewSheet As Worksheet 
 Set objNewSheet = Worksheets.Add 
 objNewSheet.Activate 
 intRow = 1 
 
 For Each objPF in _ 
 Worksheets(1).PivotTables(1).PivotFields 
 If objPF.CubeField.CubeFieldType = xlHierarchy Then 
 objNewSheet.Cells(intRow, 1).Value = objPF.Name 
 intRow = intRow + 1 
 End If 
 Next objPF 
 
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.