如保提取超级链接的文件名

dailh · 发表于 2002-11-6 10:29

[upload=rar]uploadImages/20021161029146897.rar[/upload]

fongkk111 · 发表于 2002-11-8 12:23

文件在 A1 至 A25 中在超連結按右鍵編輯

我的文档 · 发表于 2002-11-8 12:40

请打开VBA编辑器\插入\添加模块,将下列代码拷入 Function Getname(HyCell) Application.Volatile True Getname = HyCell.Hyperlinks(1).Name End Function 返回EXCEL,在任一表元输入 =Getname(A1),即可看到结果,括号内为包含超级链接的表元地址,将此函数复制即可(即使用上同于其他函数)

dailh · 发表于 2002-11-8 13:32

谢谢

dailh · 发表于 2002-11-8 13:59

To: 我的文档 HyCell.Hyperlinks(1).Name中的1可以换为2，3等吗？

我的文档 · 发表于 2002-11-8 14:24

摘自帮助: 区域或工作表可以有多个超级链接。使用 Hyperlinks(index)（其中 index 为超级链接号）可返回单个 Hyperlink 对象。下列示例激活 A1:B2 区域的第二个超级链接。 ........... Function Getname(HyCell, iIndex) Application.Volatile True Getname = HyCell.Hyperlinks(iIndex).Name End Function HyCell可以为多表元区域(含多个链接)

我的文档 · 发表于 2002-11-8 14:26

请dailh注意:新的函数需两个参数

dailh · 发表于 2002-11-8 19:38

先谢谢各位。 to:Emily,因为“我的文档”给了一个函数形式，所以探讨一下。再一次谢谢！

happysun1221 · 发表于 2008-3-8 11:52

按此贴办法试了一下，显示 #value 没有出现预期的效果,原因？

Yi8LgU3V.rar (7.62 KB, 下载次数: 16)

[此贴子已经被作者于2008-3-8 11:53:58编辑过]

Emily · 发表于 2002-11-8 17:49

http://club.excelhome.net/dispbbs.asp?boardID=2&RootID=42139&ID=42139

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