Нэнси создает множество сводных таблиц, и ей больше нравится старый макет, чем тот, который используется по умолчанию в Excel 2010 и более поздних версиях. Каждый раз, когда она создает сводную таблицу, ей нужно перейти к параметрам PivotTableOptions | Дисплей | Классический макет сводной таблицы. Нэнси задается вопросом, может ли она сделать классический дисплей по умолчанию.

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

Sub Macro1()

' ' Macro1 Macro '

'     With ActiveSheet.PivotTables("PivotTable1")

.InGridDropZones = True         .RowAxisLayout xlTabularRow     End With End Sub

Как видите, не так уж много (программно) вернуться к классическому макету — все, что вам нужно сделать, это выполнить два оператора, которые влияют на сводную таблицу. Однако этот макрос можно немного улучшить, сделав его более «универсальным».

Sub PivotTableClassic()

Dim pt As PivotTable

For Each pt In ActiveSheet.PivotTables         pt.InGridDropZones = True         pt.RowAxisLayout xlTabularRow     Next pt End Sub

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

Лучшая идея, которую мы смогли придумать, — это назначить этот макрос панели быстрого доступа или сочетанию клавиш. Сразу после создания макроса вы можете нажать кнопку QAT или комбинацию клавиш, и Excel сделает все сводные таблицы на листе классическими.

Заметьте, чуть ранее я сказал «для большинства версий Excel», что вы не можете установить значение по умолчанию. В конце 2017 или начале 2018 года Microsoft фактически добавила способ установки значения по умолчанию. Эта возможность была «вытеснена» тем, кто подписался на Office 365. Это означает, что она доступна тем, кто использует Excel 2016 — по крайней мере, тем, кто использует Excel 2016 в Office 365 и Excel 2019 (если вы используете автономную версию В Excel 2016 такой возможности нет. Извините!)

Чтобы узнать, можете ли вы установить это значение по умолчанию, начните с отображения вкладки «Файл» на ленте, а затем нажмите «Параметры». При этом, конечно же, откроется диалоговое окно «Параметры Excel». (См. Рис. 1.)

image

Рисунок 1. Диалоговое окно параметров Excel.

Обратите внимание, что в правом верхнем углу диалогового окна есть параметр «Данные». Этот параметр доступен не во всех версиях Excel; это была опция, добавленная в том обновлении Excel 2016, о котором я упоминал.

Предполагая, что в вашей версии Excel есть такая возможность, выполните следующие действия с этого момента:

  1. Щелкните опцию Data. Excel изменяет то, что отображается в диалоговом окне «Параметры Excel».

  2. Нажмите кнопку «Изменить макет по умолчанию». Excel отображает диалоговое окно «Изменить макет по умолчанию».

  3. Нажмите кнопку Параметры сводной таблицы. Excel отображает диалоговое окно «Параметры сводной таблицы».

  4. Убедитесь, что выбрана вкладка Display. (См. Рис. 2.)

  5. Установите флажок Классический макет сводной таблицы.

  6. Нажмите OK, чтобы закрыть диалоговое окно «Параметры сводной таблицы».

  7. Нажмите «Отмена», чтобы закрыть диалоговое окно «Изменить макет по умолчанию».

  8. Нажмите «Отмена», чтобы закрыть диалоговое окно «Параметры Excel».

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

_Примечание: _

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

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (3576) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365.