Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Получите объект PivotValueCell для данной сводной таблицы с определенными индексами строк и столбцов.
Синтаксис
выражение. PivotValueCell (RowLine, ColumnLine)
выражение Переменная, представляющая объект сводной таблицы .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| строка строки | Необязательный | Variant | Если имеет тип PivotLine, указывает PivotLine в области строки, с которой выровнена PivotValueCell . Если имеет тип Int, определяет положение линии сводки в области строки, с которой выровнена ячейка PivotValueCell . Если аргумент "отсутствует", "Пусто", "Null" или "0", задает строку "Общий итог". |
| Линия столбца | Необязательный | Variant | Если имеет тип PivotLine, указывает линию PivotLine в области столбца, с которой выровнена PivotValueCell . Если имеет тип Int, определяет положение линии PivotLine в области столбца, с которой выровнена PivotValueCell . Если аргумент "Пустой", "Null" или "0" отсутствует, задает столбец общих итогов. |
Возвращаемое значение
PIVOTVALUECELL
Пример
В этом примере кода свойство PivotValueCell используется для проверки того, что значение одной ячейки в сводной таблице больше значения другой ячейки.
Sub TestEquality()
Dim X As Double
Dim Y As Double
'This code assumes you have a Standalone PivotChart on one of the worksheets
X = ThisWorkbook.PivotTables(1).PivotValueCell(1, 1).Value
Y = ThisWorkbook.PivotTables(1).PivotValueCell(1, 2).Value
If X > Y Then
MsgBox "X is greater than Y"
Else
MsgBox "Y is greater than X"
End If
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.