In Excel 2010, you can use Slicers to change multiple pivot tables. However, you might be working in an earlier version of Excel, or you don't have room for Slicers on your worksheets.

在Excel 2010中，可以使用切片器更改多个数据透视表。 但是，您可能正在使用早期版本的Excel，或者您的工作表上没有足够的切片器空间。

Instead of Slicers, you can use programming to update multiple pivot tables automatically. In previous posts, I've shown how you can select items in one pivot table's Report Filter fields, and the Report Filter fields for pivot tables on the other worksheets will change to the same selections.

代替切片器，您可以使用编程来自动更新多个数据透视表 。 在以前的文章中，我展示了如何在一个数据透视表的“报表过滤器”字段中选择项目，其他工作表上的数据透视表的“报表过滤器”字段将变为相同的选择。

特定工作表和数据透视表 (Specific Sheet and Pivot Tables)

Jeff Weir has written an updated version of the code, which runs much faster than the previous version. You'll notice the speed difference especially if you're working with larger pivot tables.

Jeff Weir编写了代码的更新版本，其运行速度比以前的版本快得多。 您会注意到速度差异，尤其是在使用较大的数据透视表时。

Also, in this version of the code, you can specify:

另外，在此版本的代码中，您可以指定：

• any sheets you DON'T want the macro to check
  您不希望宏检查的任何工作表
• any specific pivot tables that you DON'T want the macro to synchronize.
  您不希望宏进行同步的任何特定数据透视表。

For example, only update the pivot tables on Sheet1 and Sheet2, and ignore PivotTable2 on Sheet1. [Update: Sept 20, 2012] Jeff has made the following changes to the code:

例如，仅更新Sheet1和Sheet2上的数据透视表，而忽略Sheet1上的PivotTable2。 [更新：2012年9月20日] Jeff对代码进行了以下更改：

• you can now exclude particular PivotFields, plus if you change a pagefield in any pivot, the code will not only update pagefields to the same settings in other pivots but also change rowfields too.
  您现在可以排除特定的PivotFields，此外，如果您在任何数据透视图中更改页面字段，该代码不仅会将页面字段更新为其他数据透视图中的相同设置，而且还会更改行字段。
• added basic error handling so that ScreenUpdating and EnableEvents are restored to TRUE if anything goes wrong.
  添加了基本的错误处理，以便在出现任何问题时将ScreenUpdating和EnableEvents恢复为TRUE。

Jeff is also working on a version of the code for Excel 2010, that promises to be even faster -- so stay tuned for that!

Jeff还正在开发Excel 2010的代码版本，该版本有望更快—因此，请继续关注！

[Update: June 16, 2013] Jeff has revised the code, so it uses Slicers if the version is Excel 2010 or later.

[更新：2013年6月16日] Jeff修改了代码，因此，如果版本为Excel 2010或更高版本，它将使用Slicers。

使代码运行更快 (Making the Code Run Faster)

In the previous version of the code, it looped through each master pivot field multiple times, to determine if each pivot item is visible or hidden. The corresponding pivot item in each slave pivot table was then set to the same setting. The code worked, but it was very slow in larger pivot tables.

在该代码的先前版本中，它多次遍历每个主透视字段，以确定每个透视项是可见还是隐藏。 然后，将每个从属透视表中的相应枢轴项目设置为相同的设置。 该代码可以工作，但是在较大的数据透视表中非常慢。

The main reason that Jeff's code is faster is that it iterates through each master pivot field just once, so it can record only the visible items into a dictionary.

Jeff的代码更快的主要原因是，它仅对每个主枢轴字段进行一次迭代，因此它只能将可见项记录到字典中。

Then, for each pivot field in each slave pivot table:

然后，对于每个从属数据透视表中的每个数据透视表字段：

• All the pivot items are made visible
  所有枢纽项目都可见

• Items that are not in the dictionary's list are hidden.

  不在词典列表中的项目被隐藏。

Also, speed in Jeff's code is increased because it:

另外，由于以下原因，提高了Jeff代码的速度：

• checks to see if.AllItemsVisible = true. If it is, no need to iterate through either the master or the slave pivot...it just makes all pivot items in the corresponding slave pivot fields visible. The old code looped through each pivot item
  检查是否if.AllItemsVisible = true。 如果是这样，则不需要遍历主枢纽或从属枢纽...仅使相应的从属枢纽字段中的所有枢纽项可见。 旧代码遍历每个枢纽项目
• doesn't add items to the dictionary for checking if it has already found all the visible pivot items in the master list.
  不会在字典中添加项目以检查它是否已在主列表中找到所有可见的枢轴项目。

修改代码 (Modify the Code)

If you download the sample file (see instructions below), you can copy the code to your own workbooks.

如果您下载示例文件(请参阅下面的说明)，则可以将代码复制到自己的工作簿中。

• To see the code in the sample file, go to the Sales Pivot worksheet, right-click the sheet tab, and click View Code.
  要查看示例文件中的代码，请转到Sales Pivot工作表，右键单击工作表选项卡，然后单击“查看代码”。
• Then, to see the full code, right-click on the procedure name - SyncPivotFields - and click Definition
  然后，要查看完整的代码，请右键单击过程名称-SyncPivotFields-并单击“定义”。

Here is where you'll change the sheet names in the SyncPivotFields code:

在这里您可以在SyncPivotFields代码中更改工作表名称：

Here is the section where you'll change the pivot table names:

这是您将更改数据透视表名称的部分：

下载样本文件 (Download the Sample File)

To download this version of the sample file, with Jeff's code, please visit the Sample Files page on the Contextures website.

要使用Jeff的代码下载此版本的示例文件，请访问Contextures网站上的“ 示例文件”页面 。

Note: Jeff's sample file was updated on Sept. 20, 2012, so please download the new version if you have an older copy of the file.

注意：Jeff的样本文件已于2012年9月20日更新，因此，如果文件的副本较旧，请下载新版本。

In the Pivot Tables section, look for: PT0029 - Change Pivot Table Fields on Specific Sheets

在“数据透视表”部分中，查找： PT0029-更改特定工作表上的数据透视表字段

The file is in Excel 2007/2010 format, zipped, and contains macros. Enable the macros when opening the file, if you want to test the code. __________________

该文件为Excel 2007/2010格式，已压缩并包含宏。 如果要测试代码，请在打开文件时启用宏。 __________________