如何在excel数据透视表中创建导航工作表

当工作簿中的工作表不多时，我们只需要点击底部的工作表名称，就可以到达我们想要操作的工作表。但是，当有许多工作表时，要找到所需的工作表，您需要单击滚动按钮并找到工作表，这可能需要一些时间。

实际上，我们可以创建一个导航工作表，将工作簿中的所有工作表名称放入导航工作表中，并设置到工作表的链接。这样，我们只需要点击工作表名称就可以到达对应的工作表。同时，在每个工作表中放置一个指向导航工作表的链接，这样您就可以通过单击该链接快速返回导航工作表。这更加方便快捷，如下图1所示。

图1

实现上述功能的VBA代码如下：

子导航工作表()

将周调暗为工作表

作为整数变暗

i=0

清除导航工作表的内容(如果存在)。

如果导航工作表不存在，请添加它。

如果Then存在(“导航”)，那么。

细胞。ClearContents

工作表(“导航”)。范围(“a1”)。选择。

其他

工作表。在：之前添加=工作表(1)

活动纸。Name="导航"。

如果…就会结束

遍历工作表。

对于工作表中的每一周

i=i 1

排除导航工作表。

如果i=1，则转到继续

添加导航链接。

带活动单元格。值=wks。名字

.超链接.添加活动单元格，""，_

wks。名字”！A1 ”,_

TextToDisplay:=wks。姓名，_

ScreenTip:=“单击返回导航工作表”。

带工作表(一)。范围(“a1”)。value="返回工作表：" activesheet.name。

. Hyperlinks.AddSheets(wks。姓名)。范围(“A1”)、“”、_

“’”活动单。名称“！”ActiveCell。地址，_

ScreenTip:="返回工作表： "活动表单。名字

以…结尾

以…结尾

ActiveCell。偏移量(1，0)。挑选

继续：

下一周

末端接头

确定工作表是否存在。

函数表以布尔形式存在

将对象作为对象变暗

出错时继续下一步

Set obj=活动工作簿。工作表(名称)

如果Err。数字=0那么

工作表存在=真

其他

SheetExists=False

如果…就会结束

结束功能

运行导航工作表流程将在工作簿中创建一个名为“导航”的工作表(如果该工作表已经存在，请清空其内容)，然后在“导航工作表”的a列中输入工作簿中其他工作表的名称，并建立到该工作表的链接，同时在其他工作表的单元格A1中创建回“导航工作表”的链接。

代码的图片版本如下：