|
▼けい さん:
先にある質問は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へハイパーリンク
>
>よろしくお願いいたします
|
|