Този съвет позволява на потребителите на вашия отчет да избират между няколко формата на обобщена таблица с помощта на бутоните с опции и след това автоматично да актуализира обобщената таблица! (Полезно е, когато потребителите имат предпочитания за формат на отчета, без да се налага да отиват в лентата с инструменти на обобщената таблица и да избират по един всеки път)
Първа стъпка:
Поставете бутон за опции (или няколко) навсякъде във вашия работен лист с отчетна таблица и ги наименувайте като „Формат на отчета 1“, „Формат на отчета 2“ и т.н.
Направете това, като отидете на „Изглед> Ленти с инструменти> Формуляри“, изберете „Бутон с опции“ от кутията с инструменти и го плъзнете в отчета си.
Стъпка втора:
Създайте макроса, като отидете на "Инструменти> Макрос> Макроси", въведете име като "Format2" и след това "Създаване"
Въведете или изрежете и поставете следния VB код. (Забележка: Уверете се, че вашата обобщена таблица е означена като име по подразбиране на „PivotTable1“, като щракнете с десния бутон на мишката навсякъде в обобщената таблица, изберете „Options Options“ и погледнете полето „Name“. В противен случай ще трябва да замените името на обобщената таблица в кода по -долу с това, на което се нарича вашата обобщена таблица):
Подформат2 ()
„Макрос на формат 2
ActiveSheet.PivotTables ("PivotTable1"). PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables ("PivotTable1"). Формат xlReport6
Клетки Изберете
С избор
.HorizontalAlignment = xlОбщо
.VerticalAlignment = xlBottom
.WrapText = False
.Ориентация = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
Край с
С избор
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Ориентация = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
Край с
Клетки Изберете
Избор.Колони.Автоматично
Диапазон ("A1"). Изберете
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~
Можете да създавате макроси с различен формат, използвайки същия код и единственият ред, който трябва да промените, е "Форматиране xlReport6". Има около 15 формата на отчети, от които да избирате. Просто променете „xlReport (номер)“ от 1 на 15.
Горният код също автоматично се монтира в колоните и центрира текста след форматирането на отчета.
Стъпка трета:
Присвойте макроса на бутона с опции, като щракнете с десния бутон върху бутона с опции, изберете „Присвояване на макрос“ и просто изберете макроса, който току-що сте създали. Направете това за всеки от бутоните за опции
Това е! Сега, когато потребител кликне върху бутон с опция, обобщената таблица автоматично ще се актуализира до формата въз основа на опцията за формат, използвана в макроса. Тествайте няколко стила на отчети, за да видите кои отговарят на вашите нужди и след това ги присвойте на вашите макроси и бутони с опции.
Вашите потребители ще бъдат благодарни и доста впечатлени!
Късмет!
~ CJ