Общая справочная таблица по сводной таблице для Excel VBA - PullRequest
0 голосов
/ 17 апреля 2019

Я хотел бы просто получить значение общей суммы сводной таблицы.Однако мне нужно, чтобы это было более динамичным, чем решение, найденное в Интернете.

enter image description here

Простое решение, которое я видел в Интернете, состояло в том, чтобы получить последнюю найденную ячейкув диапазоне итогового столбца.В этом случае получится что-то вроде кода, упомянутого ниже.

Dim grandTotal As Range
grandTotal = Range("E65536").End(xlUp)
MsgBox grandTotal.Value

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

Редактировать:

Как насчет получения общего итогадля двух разных столбцов значений данных

enter image description here

1 Ответ

0 голосов
/ 17 апреля 2019

Ну, так как это будет самая нижняя правая ячейка в вашей сводной таблице:

Set pt = Activesheet.PivotTables(1)
grandTotal = pt.DataBodyRange.Cells(pt.DataBodyRange.Cells.Count).Value
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...