高手，你好！我想在EXCEL工作表后加一个表作目录，发现超链接实现不了，请高手伸出援手，谢谢！

显示全部楼层 · 2011-1-19 20:04:21

运行下面的代码后，链接的地址无效，应该是SubAddress:= _

"Sheets(x).a1",语句出的问题，你能帮我改一下这个吗？
Sub Macro11()
Sheets.Add after:=Sheets(Sheets.Count)
a = Sheets.Count
Sheets(a).Select
Sheets(a).Name = "目录1"
For x = 1 To a - 1
Cells(x, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _

"Sheets(x).a1", TextToDisplay:=Sheets(x).Name
Next
End Sub

千问 · 2011-1-19 20:04:21

Sub Macro11()Sheets.Add after:=Sheets(Sheets.Count)a = Sheets.CountSheets(a).SelectSheets(a).Name = "目录1"For x = 1 To a - 1Cells(x, 1).SelectActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Sheet" & x & "!A1", TextToDisplay:=Sheets(x).NameNextEnd Sub

千问 · 2011-1-19 20:04:21

新建一个按钮，新建或指定一个宏。输入代码Sheets("Sheet2").Activate