如何取得单元格的超链接地址?

2025-12-22 21:38 来源:学会计 阅读量:311

导读:【问题】 如何取得单元格的超链接地址? 【解答】 可以用自定义函数,代码如下: Function GetLink(rng As Range) As String Application.Volatile If rng.Cells(1, 1).Hyperlinks.Count = 0 Then GetLink = No Hyperlin

 【问题】

  如何取得单元格的超链接地址?

  【解答】

  可以用自定义函数,代码如下:

  Function GetLink(rng As Range) As String

  Application.Volatile

  If rng.Cells(1, 1).Hyperlinks.Count = 0 Then

  GetLink = "No Hyperlink"

  Else

  If rng.Hyperlinks(1).Address = "" Then

  GetLink = rng.Hyperlinks(1).SubAddress

  Else

  GetLink = rng.Hyperlinks(1).Address

  End If

  End If

  End Function

您正在与金牌答疑老师聊天