UDF для создания гиперссылки на местоположение в книге - PullRequest
Новая
       11

UDF для создания гиперссылки на местоположение в книге

0 голосов
/ 12 октября 2018

Я ищу VBA для UDF Excel, который создает гиперссылку на указанную ячейку («MyCell») активной рабочей книги.MyCell может находиться на любом рабочем листе рабочей книги, содержащей UDF.Все примеры, которые я видел до сих пор, были слишком сложными для меня, чтобы правильно редактировать код. 

Function MyHyperLink(MyCell)

'Code?

End Function

Заранее спасибо.

1 Ответ

0 голосов
/ 12 октября 2018

Есть две части того, что вы хотите сделать.Одним из них является получение адреса цели гиперссылки.Другой предоставляет ячейку, в которую вы хотите поместить гиперссылку.Насколько я знаю, вы не можете создать UDF, который будет возвращать гиперссылку в ячейке.Итак, это то, что я бы сделал. 

Sub MakeHyperLink(linkLocation as Range, linkTarget as Range, displayText as String)

    Dim targetAddress as String
    Dim locationSheet as Worksheet

    ' Get a string form of the hyperlink address
    targetAddress = "'" & linkTarget.Parent.Name & "'!" & linkTarget.Address

    ' Get the sheet where the link will go.
    Set locationSheet linkLocation.Parent;

    ' Add the hyperlink
    locationSheet.Hyperlinks.Add Anchor:=linkLocation, _
                                 Address:="", _
                                 subAddress:=targetAddress, _
                                 TextToDisplay:=displayText
End Sub
...