我有一个Excel-Workbook . 在此工作簿中,通过VBA创建新工作表 .
这个工作簿的工作表越多,它就越混乱,因为我必须滚动很长时间才能到达中间的任何工作表 .
我想创建一个概述表
-
,其中列出了工作表的名称AND
-
表的名称必须是超链接 .
我的代码根本不起作用 - 顺便说一下,我必须使用Excel 2003
这就是我所拥有的:
Sub GetHyperlinks()
Dim ws As Worksheet
Dim i As Integer
i = 4
ActiveWorkbook.Sheets("overview").Cells(i, 1).Select
For Each ws In Worksheets
ActiveWorkbook.Sheets("overwies").Hyperlinks.Add _
Ancor:=Selection, _
Address:="", _
SubAddress:="'ws.name'", _
TextToDisplay:="'ws.name'"
i = i + 1
Next ws
End Sub
2 回答
改变了你的代码 - 这现在有效:
有两种方法可用于创建活动工作簿表的链接:
为标准工作表创建了简单的超链接 .
不太常用的图表 - 甚至更罕见的对话表 - 无法进行超链接 . 如果此代码检测到非Worksheet类型,则会以编程方式将Sheet BeforeDoubleClick事件添加到TOC表,以便仍可通过快捷方式引用这些表 .
请注意,(2)要求启用宏以使此方法起作用 .