Excel UDF приводит к гиперссылке в виде текста

Question

Все UDF для отображения гиперссылок (которые я видел) работают только там, где гиперссылка - это URL, но они не работают, когда гиперссылка - это другая ячейка в той же книге. Может кто-нибудь помочь мне найти UDF, который приводит к гиперссылке в виде текста, где гиперссылка является другой ячейкой в той же книге? Благодарю.

Вот снимок экрана с гиперссылкой, которая была создана с помощью> Вставка> Гиперссылка ... и ссылка на ячейку, которая отображается в всплывающем окне, когда я наводю курсор мыши на ячейку гиперссылки ...

Это ссылка на ячейку, которую я хочу, чтобы UDF возвращал как текст в любой другой ячейке.

Answer 1

Используйте код ниже:

' Add hyperlink to a cess on Sheet2
Sheets("Sheet2").Hyperlinks.Add _
' Hyperlink must follow to a single cell A1 on Sheet1
' To follow another object (multicell range, chart, etc.) specify it
    Anchor:=Sheets("Sheet1").Range("A1"), _
' Address must be empty - it is local hyperlink
    Address:="", _
' Specify destination address where hyperlink will be placed
    SubAddress:= "Sheet2!A1", _
' Specify the text of a hyperlink
    TextToDisplay:="HyperLink to A1 on Sheet2"