将单元超链接到自身的宏

Question

我已经创建了一个宏，它允许我双击一个超链接，它会根据我单击的单元格显示来自另一个工作表的信息。

现在我想自动化超链接过程，我需要一个宏，它将获取名称列表并将所有这些单元格超链接到它们自己。到目前为止，我有一个宏，它超链接激活的单元格，但返回值 0 但超链接（第一组代码）

我还将包含我通过手动添加宏记录的宏

Sub HyperLinkME()

frmla = "=HYPERLINK(" + Chr(34) + "#'" + ActiveSheet.name + "'!" +ActiveCell.Address + Chr(34) + "," + ActiveCell.Address + ")"
ActiveCell.Formula = frmla

End Sub

我录制的宏如下：

Sub ManualHyperlink()
'
' ManualHyperlink Macro
'
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    "Schedule!A3", TextToDisplay:="dale"
End Sub

提前感谢您的任何帮助！

Answer 1

Select 一些单元格并运行：

Sub HyperAdder()
   For Each r In Selection
      ActiveSheet.Hyperlinks.Add Anchor:=r, Address:="", SubAddress:=r.Parent.Name & "!" & r.Address(0, 0), TextToDisplay:="myself"
   Next r
End Sub

在单元格中插入超链接以跳转到自身。

要保留单元格的内容，请使用：

Sub HyperAdder()
    Dim r As Range, s As String
    For Each r In Selection
        If Len(r.Text) = 0 Then
            s = "X"
        Else
            s = r.Text
        End If
        ActiveSheet.Hyperlinks.Add Anchor:=r, Address:="", SubAddress:=r.Parent.Name & "!" & r.Address(0, 0), TextToDisplay:=s
    Next r
End Sub