admin 管理员组

文章数量: 1086019


2024年4月30日发(作者：昵图网 官网)

用VBA制作包含超链接的工作表目录

作者：未知 文章来源：未知 点击数： 1271 更新时间：2009-2-15 22:51:45

如果Excel工作簿中包含许多工作表，可以在一个工作表中列出所有工作表目

录和相关说明，以方便在各工作表之间跳转。下面的VBA代码就可以实现这个

功能，可以在某个工作表的第一列中产生其他工作表的目录列表及其超链接，单

击工作表名称就可以跳转到相应的工作表中，并且可以在其他工作表的A1单元

格中设置一个返回目录的超链接，单击可以返回到包含目录的工作表中。

按Alt+F11，打开VBA编辑器，在“工程”窗口中双击要设置目录列表的工作

表名称，在右侧代码窗口中输入下面的代码后运行：

Sub CreateSheetsIndex()

Dim wSheet As Worksheet

Dim i As Long

i = 1

With Me

.Columns(i).ClearContents

.Cells(1, 1) = "工作表目录"

.Cells(1, 1).Name = "目录"

End With

For Each wSheet In Worksheets

If <> Then

i = i + 1

With wSheet

.Range("A1").Name = "工作表" &

. Anchor:=.Range("A1"), Address:="", SubAddress:="目录",

ScreenTip:= _

"跳转到“" & & "”工作表", TextToDisplay:="返回目录"

End With

Anchor:=(i, 1), Address:="", SubAddress:="工作表

" & , _

ScreenTip:="跳转到“" & & "”工作表",

TextToDisplay:=

End If

Next wSheet

End Sub

说明：

1.由于上述代码会在所有工作表的A1单元格输入链接内容，所以运行代码前

务必确保A1单元格为空。

2.如果工作表有密码保护，请先解除保护。

3.运行代码创建工作表目录列表后，如果又新建工作表或修改工作表名称，请

再次运行代码。


本文标签： 工作 目录 代码 未知 编辑器

版权声明：本文标题：用VBA制作包含超链接的工作表目录 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1714445342a680474.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。