エクセルでセルの名前と同じシートにハイパーリンク

エクセルでセルの名前と同じシートにハイパーリンクしたいのですが、"00001"～"0050"までセル＆シートがあるのです。。一つ一つハイパーリンクの挿入で設定するしかないのでしょうか？マクロならできそうなのですが、やり方がわからないので教えていただけませんでしょうか？

No.1 ベストアンサー 回答者： mshr1962 回答日時： 2006/03/31 18:57

=HYPERLINK("#"&TEXT(ROW(),"0000")&"!A1",TEXT(ROW(),"0000"))

とか？
これは数式の存在する行のシートのA1にリンクするものです。

この回答へのお礼

できました！ありがとうございます！

お礼日時：2006/04/04 09:28

No.2 回答者： bonaron 回答日時： 2006/04/01 01:52

こういうことかな？

Private Sub AddHyperLink()
Dim rng As Range
On Error Resume Next
For Each rng In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
rng.Hyperlinks.Add Anchor:=rng, Address:="", SubAddress:=rng.Text & "!A1"
Next
End Sub

この回答へのお礼

できました！ありがとうございます！

お礼日時：2006/04/04 09:28