如何使用VBA建立导航工作表？

作者：绿色风分类：时间：2022-08-17 浏览：147

楼主 wise	Q:如何使用VBA建立导航工作表？即建立所有工作表的超链接式的目录。 A：ALT+F11→插入模块→模块输入以下代码： Sub test() Dim I As Integer Dim J As Integer Dim Rng As Range On Error Resume Next J = Worksheets.Count If J = 0 Or J = 1 Then Exit Sub Application.ScreenUpdating = False For I = 1 To J If Sheets(I).Name = "目录" Then Sheets("目录").Move before:=Sheets(1) End If Next I If Sheets(1).Name <> "目录" Then J = J + 1 Sheets(1).Select Sheets.Add Sheets(1).Name = "目录" End If Sheets("目录").Select Columns("B:B").Delete Shift:=xlToLeft For I = 2 To J ActiveSheet.Hyperlinks.Add anchor:=Worksheets("目录").Cells(I, 1), Address:="", SubAddress:="'" & Sheets(I).Name & "'!R1C1", TextToDisplay:=Sheets(I).Name Sheets(I).Hyperlinks.Add anchor:=Sheets(I).Cells(1, 1), Address:="", SubAddress:="'" & Sheets("目录").Name & "'! R1C1", TextToDisplay:="返回目录" Next Sheets("目录").Cells(1, 1) = "目录" Application.ScreenUpdating = True End Sub 建立导航工作表.rar
2楼 lrlxxqxa	试过了，很好用！
3楼纵鹤擒龙水中月	学习了
4楼 lkw	请教！我下载试用了一下，将代码复制到我做的表格中，为什么不返回目录？

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表