将宏单元格链接到单元格的宏

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