自动报告格式本技巧使您的报表用户可以使用选项按钮在几种数据透视表格式之间进行选择，然后自动更新数据透视表！ （当用户具有报表格式首选项而不必转到数据透视表工具栏并每次都选择一个时，将派上用场）

第一步：

在数据透视表报表工作表上的任意位置放置一个（或几个）选项按钮，并将其命名为“ Report Format 1”，“ Report Format 2”等。

为此，请转到“视图>工具栏>表单”，选择“选项按钮”

从工具箱中将其拖到您的报告中。

第二步：

通过转到“工具>宏>宏”来创建宏，键入名称，例如“ Format2”，然后键入“创建”

输入或剪切并粘贴以下VB代码。 （注意：通过右键单击数据透视表中的任意位置，选择“表选项”，然后查看“名称”字段，确保数据透视表已标记为默认名称“ PivotTable1”。否则，您必须替换下面代码中的数据透视表名称以及您的数据透视表的名称）：

子Format2（）

‘Format2宏ActiveSheet.PivotTables（“ PivotTable1”）。PivotSelect“”，xlDataAndLabel，True ActiveSheet.PivotTables（“ PivotTable1”）。Format xlReport6 Cells.Select有选择.Horizo​​ntalAlignment = xlGeneral .VerticalAlignment = xlBottom .WrapText = False 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext以选择结尾.Horizo​​ntalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False。 ReadingOrder = xlContext以Cells.Select Selection.Columns.Autofit Range（“ A1”）。Select End Sub结尾。您可以使用相同的代码创建不同格式的宏，唯一需要更改的行是“ Format xlReport6”。大约有15种报告格式可供选择。只需将“ xlReport（number）”从1更改为15。

格式化报告后，上面的代码还会自动自动调整列并使文本居中。

第三步：

右键单击选项按钮，将宏分配给选项按钮，选择“分配宏”，然后仅选择刚创建的宏。对您的每个选项按钮都执行此操作！现在，当用户单击选项按钮时，数据透视表将根据宏中使用的格式选项自动更新为该格式。测试几种报表样式，以查看哪种样式适合您的需求，然后将其分配给宏和选项按钮。

您的用户将非常感激和感动！

祝好运！

〜CJ