Объект 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
- Application
- CellChanged
- ColumnItems
- Creator
- CustomSubtotalFunction
- DataField
- DataSourceValue
- MDX
- Parent
- PivotCellType
- PivotColumnLine
- PivotField
- PivotItem
- PivotRowLine
- PivotTable
- Range
- RowItems
- ServerActions
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.