Excel VBA質問箱 IV

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

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


4634 / 76734 ←次へ | 前へ→

【77718】Re:ハイパーリンクをつけるマクロについて
発言  マナ  - 15/12/5(土) 22:34 -

引用なし
パスワード
   ▼こういち さん:

参考コードです。
目次シートのシートモジュールに貼り付けてください。
説明は苦手なので、コードの意味はネット検索等で調べてください。

Sub 他のシートへのハイパーリンク作成()
  Dim h As Hyperlink
  Dim ws As Worksheet
  Dim c As Range
  Dim n As Long
  
  For Each h In Hyperlinks
    h.Range.Clear
  Next
 
  For Each ws In Worksheets
    If Not ws Is Me Then
      Set c = Range("A3").Offset(n)
      Hyperlinks.Add Anchor:=c, Address:="", _
        SubAddress:=ws.Name & "!A1", TextToDisplay:=ws.Name
      n = n + 1
    End If
  Next

End Sub

3 hits

【77715】ハイパーリンクをつけるマクロについて こういち 15/12/5(土) 13:40 質問[未読]
【77716】Re:ハイパーリンクをつけるマクロについて β 15/12/5(土) 14:02 発言[未読]
【77717】Re:ハイパーリンクをつけるマクロについて γ 15/12/5(土) 19:03 発言[未読]
【77719】Re:ハイパーリンクをつけるマクロについて γ 15/12/6(日) 9:08 発言[未読]
【77718】Re:ハイパーリンクをつけるマクロについて マナ 15/12/5(土) 22:34 発言[未読]

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