[求助高手] Excel 如何批量备注超链接名称

Only丶冰儿 · 发表于 2018-8-10 23:22

本帖最后由 Only丶冰儿于 2018-8-10 23:25 编辑

各位老师，如何将超链接名称批量修改为“点击查看图片”，谢谢

问题汇总.zip (23.2 KB, 下载次数: 4)

xiangbaoan · 发表于 2018-8-11 08:52

Sub test()
Dim hl As Hyperlink
For Each hl In Hyperlinks
hl.TextToDisplay = "点击查看图片"
Next
End Sub

约定的童话 · 发表于 2018-8-11 10:00

xiangbaoan 发表于 2018-8-11 08:52
Sub test()
Dim hl As Hyperlink
For Each hl In Hyperlinks

测试了一下，貌似不行啊

xiangbaoan · 发表于 2018-8-11 10:11

本帖最后由 xiangbaoan 于 2018-8-11 10:16 编辑

约定的童话发表于 2018-8-11 10:00
测试了一下，貌似不行啊

难道你不会把它放到工作表中再试试?
……………………
附件为补充

约定的童话 · 发表于 2018-8-11 11:15

xiangbaoan 发表于 2018-8-11 10:11
难道你不会把它放到工作表中再试试?
……………………
附件为补充

刚才确实报错了，第二行那里找不到对象

xiangbaoan · 发表于 2018-8-11 11:34

约定的童话发表于 2018-8-11 11:15
刚才确实报错了，第二行那里找不到对象

in activesheet.hyperlinks'这样行不行，不行请百度，这里是2016_64bit

约定的童话 · 发表于 2018-8-11 11:52

xiangbaoan 发表于 2018-8-11 11:34
in activesheet.hyperlinks'这样行不行，不行请百度，这里是2016_64bit

是64的原因导致的

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

[求助] [求助高手] Excel 如何批量备注超链接名称