Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Представляет ячейку в отчете сводной таблицы.
Замечания
Используйте свойство 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 и обратная связь.