Excel VBA質問箱 IV

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

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


16358 / 76733 ←次へ | 前へ→

【65843】Re:一覧データでハイパーリンクを設定する
発言  SS  - 10/6/30(水) 11:11 -

引用なし
パスワード
   ▼けい さん:

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

【65825】一覧データでハイパーリンクを設定する けい 10/6/29(火) 18:19 質問
【65827】Re:一覧データでハイパーリンクを設定する マクロマン 10/6/29(火) 19:01 発言
【65841】Re:一覧データでハイパーリンクを設定する けい 10/6/30(水) 9:52 質問
【65851】Re:一覧データでハイパーリンクを設定する マクロマン 10/7/1(木) 0:24 発言
【65853】Re:一覧データでハイパーリンクを設定する けい 10/7/1(木) 9:39 お礼
【65829】Re:一覧データでハイパーリンクを設定する 通り魔 10/6/29(火) 20:08 発言
【65842】Re:一覧データでハイパーリンクを設定する けい 10/6/30(水) 9:56 質問
【65843】Re:一覧データでハイパーリンクを設定する SS 10/6/30(水) 11:11 発言
【65844】Re:一覧データでハイパーリンクを設定する けい 10/6/30(水) 11:37 お礼

16358 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free