Share via

Объект 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 и обратная связь.