質問: 質問失礼します。 説明が下手で申し訳ありません。 ↓はハイパーリンク設定のコードになりますが 繰り返し処理する場合のコードを教えていただきたいです。 目的としては、B4からB29に順番に1~30の番号が振ってあり それぞれのセルの数値と同じシート名のシートA1に飛ぶようにしたいです。 B列は今後増える可能性もあるので、B列に文字が無いor同じシート名が見つからない場合に終了する形にしていただけると助かります。 参考に画像も貼らせていただきます。 ※シート数はその時によって変動します やりたいことは↓の繰り返しになります。 Range("B4").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "'1'!A1" Range("B5").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "'2'!A1" よろしくお願いいたします。
回答: こんな感じでできると思います。 Sub test01() Dim rng As Range Dim st As String Set rng = Cells(4, 2) Do While rng.Value <> "" st = rng.Value & "!a1" If Evaluate("isref(" & st & ")") = False Then Exit Do rng.Hyperlinks.Add anchor:=rng, Address:="", SubAddress:=st Set rng = rng.Offset(1) Loop End Sub