大神求助，帮忙写一个超链接代码

zh1518 · 发表于 2018-9-6 12:53

根据目录的客户名称超连接对应的工作表。客户名数据量大，并定期调整，是否可以根据单元格变化自动连接对应的工作表。谢谢

爱表 · 发表于 2018-9-6 14:32

你试一下，每次打开工作薄，目录会刷新。

工作簿1.zip (16.46 KB, 下载次数: 4)

zh1518 · 发表于 2018-9-6 14:49

爱表发表于 2018-9-6 14:32
你试一下，每次打开工作薄，目录会刷新。

你好，显示引用无效。

朱荣兴 · 发表于 2018-9-6 14:56

提示: 作者被禁止或删除内容自动屏蔽

朱荣兴 · 发表于 2018-9-6 14:58

提示: 作者被禁止或删除内容自动屏蔽

爱表 · 发表于 2018-9-6 14:58

打开就提示了吗？我这里没问题（我的系统环境是winXP+wps）

朱荣兴 · 发表于 2018-9-6 15:00

提示: 作者被禁止或删除内容自动屏蔽

xiangbaoan · 发表于 2018-9-6 16:50

Sub AddHyperlinks()
Dim sht As Worksheet, i%
Set sht = Worksheets("目录")
With sht
.[a:a] = ""
.[a1] = "客户名称"
For i = 2 To Worksheets.Count
.Hyperlinks.Add .Cells(i, 1), "", "'" & Worksheets(i).Name & "'!a1", "单击链接到该工作表", Worksheets(i).Name
Next
.Range("a1:a" & i).Font.Underline = -4142
End With
Set sht = Nothing
End Sub

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

[求助] 大神求助，帮忙写一个超链接代码

评分

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-9-6 14:56 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-9-6 14:58 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-9-6 15:00 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报