Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16357 / 76733

←次へ　｜　前へ→


	【65844】Re:一覧データでハイパーリンクを設定する

けい - 10/6/30(水) 11:37 -


	引用なし

	パスワード

▼SS さん：

コードの書き方など、ありがとうございました。
Googleなどで、使用例なども参考になりました。
応用させて書き換えたらうまくいきました。

ありがとうございました。

>▼けいさん：
>
>先にある質問はgoogleなどで検索をかければ色々出てくると思います。
>あとマクロの記憶を活用すると
>　　例）A4にSheet2と記述されているときハイパーリンクを設定すると
>　　 Range("A4").Select
>　　ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
>　　　　　　SubAddress:="Sheet2!A1", TextToDisplay:="Sheet2"
>が出来るのでこれを応用すれば良いと思います。
>一応考えたものを後述します。
>Sub Macro1()
>'ハイパーリンクの設定
>　　Dim SName As String
>　　Dim TRange As Range
>　　Dim WS As Worksheet
>　　
>　　For Each TRange In Range("A4:A6") '範囲は適当です。
>　　　　SName = TRange.Value
>　　　　For Each WS In Sheets
>　　　　　　If WS.Name = SName Then
>　　　　　　　　ActiveSheet.Hyperlinks.Add Anchor:=TRange, Address:="", _
>　　　　　　　　　　　　 SubAddress:=SName & "!A1", TextToDisplay:=SName
>　　　　　　　　Exit For
>　　　　　　End If
>　　　　Next WS
>　　Next TRange
>End Sub
>
>Sub Macro2()
>'ハイパーリンクのクリア
>　　Range("A4:A6").Hyperlinks.Delete '範囲は適当です。
>End Sub
>
>>ハイパーリンクについて教えてください。
>>
>>一覧表というシートがあり、A列にはシート名が入っています。
>>そのシート名をクリックすると、ブック内の同じ名前の別シートに詳細があるので
>>そこへハイパーリンクができるようにしたいのですが
>>
>>　Ａ列
>>1 シート名（タイトル）
>>2 Sheet1　　←クリックするとSheet1へハイパーリンク
>>3 Sheet2　　←クリックするとSheet2へハイパーリンク
>>4 Sheet3　　←クリックするとSheet3へハイパーリンク
>>
>>よろしくお願いいたします

1 hits

▼

【65825】一覧データでハイパーリンクを設定する けい 10/6/29(火) 18:19