excel超级链接（Excel全自动超链接）

Excel超链接(Excel全自动超链接)

在工作中，我们经常会遇到一个工作簿中的工作表太多，很难管理的情况。在这个时候，我们希望有一个目录和超链接。

于是，就诞生了下面这些功能码。

私有子工作表_Activate()

出错时继续下一步

工作表(“目录”)。范围(\" A1\") = \"目录\"

k = 1

对于每张纸上的sh

If.name“目录”然后

k = k + 1

工作表(“目录”)。Cells(k，1) = sh。名字

如果…就会结束

然后

工作表(“目录”)。范围(\" a: a \")。整列。自动调整。

工作表(“目录”)。范围(\" a: a \")。整列。水平对齐= xlcenter

末端接头

私有子工作表_SelectionChange(ByVal目标作为范围)

Dim sht作为工作表

出错时继续下一步

如果目标。地址= \"$D \"然后

电话展示单

出口接头

如果…就会结束

如果目标。行 1然后退出Sub

对于工作表中的每个sht

如果sht。将“目录”命名为sht.visible = xlsheetveryhidden

然后

床单(目标。值)。Visible = xlSheetVisible

床单(目标。值)。挑选

末端接头

子显示表()

将sh显示为工作表

对于每张纸上的sh

先令Visible = -1

然后

末端接头

代码功能解释:

你在财务工作中遇到过不知道怎么解决的问题吗？

工作表激活事件，其目的是提取工作表名称。

选择单元格更改事件，即当我们点击不同的单元格时，会触发该事件，以便跳转到相应的工作表，隐藏其他不相关的工作表。

显示所有工作表

如代码使用:

工作簿中的新工作表命名为目录，

右键单击目录工作表

单击查看代码。

复制上面的代码并粘贴。

特别注意:用后缀保存工作簿。xlsm，并启用宏。

用法如图所示:

当我们选择目录时，我们会自动将所有工作表名称提取到列a中。

当我们选择对应于A列的表名时，我们将跳转到相应的表，并自动隐藏其他表。

当我们添加一个表格并返回目录时，我们会自动将新添加的工作表名称提取到列a中。

来源:猫哥Excel教程自学平台

我相信这里有很多想学会计的同学。你可以注意一下边肖的头条。

在下方评论区留言:我想学习和收藏这篇文章；二等兵边肖:学习

可以获得一整套系统的会计学习资料！还可以免费试用15天会计课程！

由于收件人太多，我们无法及时回复。请耐心等待。。。

以上就是由优质生活领域创作者 嘉文社百科网小编 整理编辑的，如果觉得有帮助欢迎收藏转发~