マクロをセルにハイパーリンクする

Question

ハイパーリンクをダブルクリックできるマクロを作成しました。クリックしたセルに基づいて別のシートの情報を表示します。

ハイパーリンクのプロセスを自動化したいと思います。名前のリストを取得し、それらのセルをすべて自分自身にハイパーリンクするマクロが必要です。これまで私は手動でも

Sub HyperLinkME() 

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

End Sub 

をマクロを追加することから記録されたマクロを含む活性化された細胞をハイパーリンクが、0の値を返すが、ハイパーリンクされたマクロ（最初のコードのセット）

を有します次のように私は記録

マクロは次のとおりです。

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