Отображение имени сводной таблицы в сводной таблице

Дэвид задается вопросом, есть ли способ отобразить имя сводной таблицы в самой сводной таблице.

Короткий ответ заключается в том, что нет способа сделать это автоматически. Более длинный ответ заключается в том, что вы можете «обмануть» и принудительно указать имя в сводной таблице. Например, вы можете выбрать ячейку с меткой строки в сводной таблице и отредактировать ее (F2), заменив все, что там есть, на любое имя, которое вы хотите ввести. Это далеко не автоматически, и при обновлении сводной таблицы вам нужно не забыть отредактировать ячейку еще раз.

Другой способ принудительно указать имя в сводной таблице – использовать макрос. Вероятно, есть несколько подходов, которые вы могли бы использовать в своем макросе. Один из подходов – создать таблицу данных, на которой будет основана ваша сводная таблица. Дайте таблице данных заголовок в первом столбце. (Подойдет любой старый текст для заголовка, так как макрос перезапишет его.)

После создания сводной таблицы запустите следующий макрос. Он определяет имя сводной таблицы, вставляет его в заголовок таблицы данных, обновляет сводную таблицу (чтобы имя появилось там), а затем обновляет имя фильтра отчета сводной таблицы, чтобы оно было таким же, как имя сводной таблицы.

 Sub GetPVName () Dim pvt As PivotTable Dim PVName As String 'Получить имя сводной таблицы из ActiveSheet' Если существует несколько сводных таблиц, этот подход 'гарантирует, что макрос будет работать с последней сводной таблицей' в  Коллекция сводных таблиц для каждого pvt в ActiveSheet.PivotTables PVName = pvt.Name Next pvt 'Поместите имя сводной таблицы в качестве заголовка для первого столбца' диапазона таблицы данных ("Таблица1"). Ячейки (0, 1) = PVName 'Обновите  PivotTable ActiveSheet.PivotTables (PVName) .PivotCache.Refresh 'Задайте имя сводной таблицы в фильтре отчета с помощью ActiveSheet.PivotTables (PVName) .PivotFields (PVName) .Orientation = xlPageField .Position = 1 End WithEnd Sub 

Оцените статью
Frestage.ru
Добавить комментарий