ＶＢＡについて

質問

ＥｘｃｅｌのＶＢＡで、ブック内のシートに飛ぶハイパーリンクを設定するマクロを組みたいんですが、シート名に変数を使うと、変数として認識されません。ためしにシート名を指定してみるとうまくいくんですが、どうしても変数を使いたいのです。いい方法ありますか？

回答No.2

papayuka · ベストアンサー

#1です。
引数名と変数の指定がおかしいのです。

SubAdress → SubAddress 、
"シート番号!A1" → シート番号 & "!A1"

つまり　SubAddress:= シート番号 & "!A1"　にすると動くと思います。

ちなみに以下はサンプルです。
一番左のシートの A4 以降に、2枚目以降のシート名を入れてリンクします。
シートが追加されても、シート名が変更されても、再実行すれば直します。
試すならテスト環境のブックで。

Sub Test1()
Dim i As Integer, r As Range
　With Worksheets(1)
　　.Hyperlinks.Delete
　　.Range("A4:A65536").ClearContents
　　For i = 2 To Worksheets.Count
　　　Set r = .Cells(i + 2, 1)
　　　r.Value = Worksheets(i).Name
　　　.Hyperlinks.Add Anchor:=r, Address:="", _
　　　　　SubAddress:=Worksheets(i).Name & "!A1"
　　Next i
　End With
End Sub

お礼

ありがとうございます、早速職場に行って試して見ます。