能解释一下【技巧58】里面的代码吗？

mgh1985

这是我的见解
Function GetName(hycell)    ‘定义自定函数getname,并要求有一个参数；
Application.Volatile True        ’使用volatile令每次执行该函数时都重新由内存读取数值。
GetName = hycell.Hyperlinks(1).Name  ‘函数主体，但Hyperlinks(1)这个关键词不太明白，(1)是参数吗？
End Function   ’结束函数。

Function GetAddress(hycell)   ‘定义自定函数getaddress,并要求有一个参数；
Application.Volatile True
With hycell.Hyperlinks(1)  '不明白这句的意思
GetAddress = IIf(.Address = "", .SubAddress, .Address)   '不明白这句的意思
End With
End Function


能解释下我不明白的地方吗？感谢。

Kevin

区域或工作表可以有多个超链接。可用 Hyperlinks(index)（其中 index 为超链接号）返回单个 Hyperlink 对象。
.Hyperlinks(1)返回目标对象的第一个Hyperlink对象，即单个单元格的从属Hyperlink对象，也是唯一一个Hyperlink对象。


Address和SubAddress是Hyperlink对象的属性，返回或设置文档中与指定超链接相关联的位置，但有版本适用性问题，所以在这里使用了一个判断。