用VBA批量添加的超链接带横线的工作表不能引用

yujieyu_js · 发表于 2018-9-20 18:35

大家好！
附件中的“目录工作表”，是用VBA批量添加的超链接表，但带横线的工作表用VBA代码添加超链接后，不能正常引用。烦请高手帮忙修改一下。谢谢！
附件中有代码.

xiangbaoan · 发表于 2018-9-20 18:51

Sheets("目录").Hyperlinks.Add Cells(i, 1), "#'" & Sheets(i).Name & "'!A1", , , Sheets(i).Name

yujieyu_js · 发表于 2018-9-20 18:58

xiangbaoan 发表于 2018-9-20 18:51
Sheets("目录").Hyperlinks.Add Cells(i, 1), "#'" & Sheets(i).Name & "'!A1", , , Sheets(i).Name

非常感谢！

yujieyu_js · 发表于 2018-9-20 19:29

yujieyu_js 发表于 2018-9-20 18:58
非常感谢！

老师，附件中“资产负债表”工作表原来是主页，其他表中做超链接返回到这个表。现在主页改成了“目录”工作表，其他工作表超链接都要返回到“目录”工作表，能否用VBA做个批量修改？谢谢了

xiangbaoan · 发表于 2018-9-20 20:52

yujieyu_js 发表于 2018-9-20 19:29
老师，附件中“资产负债表”工作表原来是主页，其他表中做超链接返回到这个表。现在主页改成了“目录”工 ...

Sub 建立工作表目录()
Application.Calculation = xlCalculationManual
Sheet1.Name = "目录"
Cells(1, 1) = "目录"
For i = 2 To Sheets.Count
With Sheets(i)
.Hyperlinks.Add .Cells(1, .UsedRange.Columns.Count), "#'" & Sheets(1).Name & "'!A1", , , Sheets(1).Name
End With
Sheets("目录").Hyperlinks.Add Cells(i, 1), "#'" & Sheets(i).Name & "'!A1", , , Sheets(i).Name
Next
Application.Calculation = xlCalculationAutomatic
End Sub
'仅参考

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

[求助] 用VBA批量添加的超链接带横线的工作表不能引用