[已解决]超链接到工作表

xdwy81129 · 发表于 2011-5-15 18:16

如题，在1个工作薄内
B列写有各个具体表的名称，希望给这些名称添加超链接，点击以后，自动选择到该工作表

超链接.rar (25.07 KB, 下载次数: 30)

放浪形骸 · 发表于 2011-5-15 18:41

Sub AddHyperLink()
Dim i As Integer
For i = 1 To Sheets.Count
ActiveSheet.Hyperlinks.Add Anchor:=Sheets(1).Cells(i, 2), Address:="", SubAddress:= _
"'" & Sheets(i).Name & "'!A1", TextToDisplay:=CStr(Sheets(i).Name)
Next
End Sub

复制代码

xdwy81129 · 发表于 2011-5-15 18:56

回复放浪形骸的帖子

能不能请用B列的数据来添加超链接，因为其他的一些表我不需要超链接

谢谢了

放浪形骸 · 发表于 2011-5-15 19:07

Sub AddHyperLink()
Dim i As Integer, iRow As Integer
iRow = Sheets(1).Range("B65536").End(xlUp).Row
For i = 1 To iRow
If Cells(i, 2).Value <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Sheets(1).Cells(i, 2), Address:="", SubAddress:= _
"'" & Sheets(1).Cells(i, 2).Value & "'!A1", TextToDisplay:=Sheets(1).Cells(i, 2).Value
End If
Next
End Sub

复制代码

sunjing-zxl · 发表于 2011-5-15 19:18

回复 xdwy81129 的帖子

函数-创建目录.rar (3.7 KB, 下载次数: 45)

郑平 · 发表于 2011-5-15 20:56

回复放浪形骸的帖子

我好崇拜你。。。。。。。。{:191:}

as0810114 · 发表于 2012-8-27 16:16

sunjing-zxl 发表于 2011-5-15 19:18
回复 xdwy81129 的帖子

第三个附件解决了我所有的要求，简直是太牛了。

as0810114 · 发表于 2012-8-27 16:52

VBA-自动建立工作表目录.rar (8.75 KB, 下载次数: 10) 2011-5-15 19:18 上传点击文件名下载附件。
谢谢你的这个附件，它解决了我所有的要求，不过有一个问题：批量建立超链接后，在分表中回到总表再点其它超链接会有2—3秒的时间延迟，望优化。再次感谢。

xinyun711 · 发表于 2016-9-10 12:53

5楼的方法确实不错

		自动登录	找回密码
密码			注册