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

Шаг первый:

Поместите кнопку выбора (или несколько) в любом месте на листе отчета сводной таблицы и назовите их, например, «Формат отчета 1», «Формат отчета 2» и т. Д.

Сделайте это, перейдя в «Вид»> «Панели инструментов»> «Формы», выбрав «Кнопка выбора»

из панели инструментов и перетащите его в свой отчет.

Шаг второй:

Создайте макрос, выбрав «Инструменты> Макрос> Макросы», введите имя, например «Format2», а затем «Создать»

Введите или вырежьте и вставьте следующий код VB. (Примечание. Убедитесь, что ваша сводная таблица имеет имя по умолчанию «PivotTable1». Для этого щелкните правой кнопкой мыши в любом месте сводной таблицы, выберите «Параметры таблицы» и посмотрите на поле «Имя». В противном случае вам придется заменить имя сводной таблицы в приведенном ниже коде совпадает с именем вашей сводной таблицы):

Sub Format2 ()

‘Макрос ActiveSheet.PivotTables («PivotTable1»). PivotSelect «», xlDataAndLabel, True ActiveSheet.PivotTables («PivotTable1»). Формат xlReport6 ​​Cells. Выбор с выделением .HorizontalAlignment = xlBenelignment. 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext Завершить с выделением .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .IndIndentLe. ReadingOrder = xlContext End With Cells.Select Selection.Columns.Autofit Range («A1»). Select End Sub Вы можете создавать макросы разных форматов, используя тот же код, и единственная строка, которую вам нужно изменить, — это «Формат xlReport6». На выбор предлагается около 15 форматов отчетов. Просто измените «xlReport (number)» с 1 на 15.

Приведенный выше код также автоматически заполняет столбцы и центрирует текст после форматирования отчета.

Шаг третий:

Назначьте макрос кнопке выбора, щелкнув правой кнопкой мыши кнопку выбора, выберите «Назначить макрос» и просто выберите макрос, который вы только что создали. Сделайте это для каждой из ваших кнопок выбора. Вот и все! Теперь, когда пользователь нажимает кнопку выбора, сводная таблица автоматически обновляется до формата, основанного на параметре формата, который использовался в макросе. Протестируйте несколько стилей отчетов, чтобы увидеть, какие из них соответствуют вашим потребностям, а затем назначьте их своим макросам и переключателям.

Ваши пользователи будут благодарны и впечатлены!

Удачи!

~ CJ