Объект PivotCell (Excel)

Представляет ячейку в отчете сводной таблицы.

Примечания

Используйте свойство PivotCell коллекции Range , чтобы вернуть объект PivotCell .

После возврата объекта PivotCell можно использовать свойство ColumnItems или RowItems , чтобы определить коллекцию PivotItems , соответствующую элементам на оси столбца или строки, представляющей выбранное число.

Пример

После возврата объекта PivotCell можно использовать свойство PivotCellType , чтобы определить, к какому типу ячеек относится конкретный диапазон.

В следующем примере определяется, является ли ячейка A5 в сводной таблице элементом данных, и уведомляется пользователь. В этом примере предполагается, что на активном листе существует сводная таблица, а ячейка A5 находится в сводной таблице. Если ячейки A5 нет в сводной таблице, в примере обрабатывается ошибка во время выполнения.

Sub CheckPivotCellType() 
 
 On Error GoTo Not_In_PivotTable 
 
 ' Determine if cell A5 is a data item in the PivotTable. 
 If Application.Range("A5").PivotCell.PivotCellType = xlPivotCellValue Then 
 MsgBox "The PivotCell at A5 is a data item." 
 Else 
 MsgBox "The PivotCell at A5 is not a data item." 
 End If 
 Exit Sub 
 
Not_In_PivotTable: 
 MsgBox "The chosen cell is not in a PivotTable." 
 
End Sub

В этом примере определяется поле столбца, в котором находится элемент данных ячейки B5. Затем он определяет, соответствует ли заголовок поля столбца слову "Запасы", и уведомляет пользователя. В примере предполагается, что на активном листе существует сводная таблица и столбец B на нем содержит поле столбца сводной таблицы.

Sub CheckColumnItems() 
 
 ' Determine if there is a match between the item and column field. 
 If Application.Range("B5").PivotCell.ColumnItems.Item(1) = "Inventory" Then 
 MsgBox "Item in B5 is a member of the 'Inventory' column field." 
 Else 
 MsgBox "Item in B5 is not a member of the 'Inventory' column field." 
 End If 
 
End Sub

Методы

Свойства

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.