关于提取超链接信息的函数

lengyuye0408

按照以下方法操作之后，得到的是#NAME？，不知道哪里出错了。

图58-2 VBA编辑器中创建提取超链接信息的自定义函数

Step1：按<Alt+F11>组合键打开VBA编辑器。
Step2：单击“插入”→“模块”来插入一个新模块，默认情况下为“模块1”。
Step3：在模块1的代码窗口中输入以下代码：

      Function GetName(HyCell)

          Application.Volatile True

          GetName = HyCell.Hyperlinks(1).Name

End Function

Function GetAddress(HyCell)

          Application.Volatile True

          With HyCell.Hyperlinks(1)

              GetAddress = IIf(.Address ="", .SubAddress, .Address)

          End With

End Function

现在，用户得到了两个自定义行数，GetName()用于提取超链接的名称，GetAddress()用于提取超链接的目标地址，用户可以像使用Excel的内置函数一样在工作表中使用这两个自定义函数。

Step1：在C2单元格中输入公司：=GetName(B2)

Step2：在D2单元格中输入公司：=GetAddress(B2)

Step3：把C2、D2的公式分别往下填充。结果如图58-3所示。

shuizhu126

{:soso_e100:}路过

标准资料交流

不太懂这个，帮顶，等高手。