Как изменить названия всех полей сводной в Excel

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

Корректировать названия полей можно вручную, но только по одному. Этот макрос позволяет автоматизировать процесс.

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

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

1. Шаг 1 объявляет две переменные объекта. Он использует РТ в качестве контейнера памяти для нашей сводной таблицы и PF в качестве контейнера памяти для полей данных. Это позволяет макросу перебрать все поля данных в сводной таблице. Этот макрос разработан таким образом, что мы определяем сводную таблицу на основе активной ячейки. Другими словами, активная ячейка должна быть внутри сводной таблицы до запуска этого макроса. 

2. Шаг 2 присваиваем активной сводной таблице переменную РТ. Мы делаем это, используя свойство ActiveCell.PivotTable.Name, чтобы получить имя целевого диапазона. Если активная ячейка не находится внутри сводной таблицы, выдается ошибка. Именно поэтому макрос использует On Error Resume Next Statement. Это говорит Excel продолжить макрос, если есть ошибка. 

3. Шаг 3 проверяет переменную РТ - если она пустая, то выводим пользователю сообщение о том, что необходимо поместить курсор в сводную таблицу и выходим из процедуры.

4. Если макрос достигает Шага 4, значит активная ячейка была в сводной таблице. Оператор For Each перебирает каждое поле данных. Каждый раз, когда выбрано новое поле сводной, макрос изменяет имя поля, установив свойство Caption в соответствии с SourceName. Свойство SourceName возвращает имя поля, сопоставив с исходными данными. К этому имени макрос добавляет неразрывный пробел: Chr (160). 

Каждый символ имеет исходный код ASCII, похожий на серийный номер. Так, например, строчная буква А имеет код ASCII 97, строчная буква С имеет ASCII-код 99. Точно так же невидимые символы, такие как пробел, тоже имеют код. Вы можете использовать невидимые символы в макросе, передавая свой код с помощью функции CHR. 

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

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11. 
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. 
3. Выберите Insert➜Module. 
4. Введите или вставьте код во вновь созданном модуле.