提取工作表名并建立超链接的几个问题

junbaqin · 发表于 2016-7-17 11:54

本帖最后由 junbaqin 于 2016-7-17 13:25 编辑

请问一下，只在当前工作簿的所有工作表的第一行（即以列来排开）建立所有工作表的链接，实现快速切换查看工作表，要怎么写代码？

另外，可不可以设计成自动在增加工作表后更新出新增加的工作表链接。

junbaqin · 发表于 2016-7-20 09:00

我自己以经解决了，新建了“建立链接目录”宏，再新建了一个按钮，指定此宏，完成，想要的时候点击此按钮即可

Sub 建立链接目录()
Application.Calculation = xlCalculationManual
Range("a1") = "链接总目录"
For i = 1 To Sheets.Count
Cells(1, i) = Sheets(i).Name
Sheets(1).Hyperlinks.Add Cells(1, i), "#" & Sheets(i).Name & "!a1"
Next
Application.Calculation = xlCalculationAutomatic
End Sub

ladygreenlily · 发表于 2017-3-26 13:23

12楼的代码非常有用，已使用验证正确。

02761752696 · 发表于 2017-8-19 10:29

谢谢分享

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

提取工作表名并建立超链接的几个问题

最新热点 /1