|
▼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列にはシート名が入っています。
>>そのシート名をクリックすると、ブック内の同じ名前の別シートに詳細があるので
>>そこへハイパーリンクができるようにしたいのですが
>>
>> A列
>>1 シート名(タイトル)
>>2 Sheet1 ←クリックするとSheet1へハイパーリンク
>>3 Sheet2 ←クリックするとSheet2へハイパーリンク
>>4 Sheet3 ←クリックするとSheet3へハイパーリンク
>>
>>よろしくお願いいたします
|
|