EXCEL VBA ハイパーリンクの追加・設定　別のシートへジャンプ・Webページを表示（Hyperlinkオブジェクト）

EXCEL VBA ハイパーリンクの追加・設定　別のシートへジャンプ・Webページを表示（Hyperlink.Addメゾット）

同じブック・シート内のセルにジャンプする（ハイパーリンク）

①標準モジュール

'
'******** AKIRA55.COM ******* https://akira55.com/hyperlink/
'
Sub Hyperlinks01() '


    'ハイパーリンク設定（京都府）
    ActiveSheet.Hyperlinks.Add Anchor:=Range("G2"), Address:="", SubAddress:="A2", TextToDisplay:="京都府"

    'ハイパーリンク設定（滋賀県）
    ActiveSheet.Hyperlinks.Add Anchor:=Range("G3"), Address:="", SubAddress:="A20", TextToDisplay:="滋賀県"

    'ハイパーリンク設定（大阪府）
    ActiveSheet.Hyperlinks.Add Anchor:=Range("G4"), Address:="", SubAddress:="A31", TextToDisplay:="大阪府"

    'ハイパーリンク設定（奈良県）
    ActiveSheet.Hyperlinks.Add Anchor:=Range("G5"), Address:="", SubAddress:="A42", TextToDisplay:="奈良県"

    'ハイパーリンク設定（兵庫県）
    ActiveSheet.Hyperlinks.Add Anchor:=Range("G6"), Address:="", SubAddress:="A65", TextToDisplay:="兵庫県"

    'ハイパーリンク設定（和歌山件）
    ActiveSheet.Hyperlinks.Add Anchor:=Range("G7"), Address:="", SubAddress:="A84", TextToDisplay:="和歌山県"

End Sub
'

②イベントプロシージャ

同じブック内の別シートにジャンプする（ハイパーリンク）

'
'******** AKIRA55.COM ******* https://akira55.com/hyperlink/
'
Sub Hyperlinks02() '同じブック内の別シートにジャンプする（ハイパーリンク）

    Dim ws, ws01  As Worksheet
    Dim ws_Name As String
    Dim I, L As Long
    
    Set ws01 = Worksheets("近畿地方")

    L = 2 '２行目よりワークシート「近畿地方」にハイパーリンク設定を行う
    
    For Each ws In Worksheets 'ワークシート全て繰り返します。
    
        If ws.Name <> ws01.Name Then 'ワークシート近畿地方以外のワークシート名に対してハイパーリンク先の設定を行います。
            ws01.Hyperlinks.Add Anchor:=ws01.Cells(L, "B"), Address:="", SubAddress:=ws.Name & "!A2", TextToDisplay:=ws.Name
            'ワークシート毎に、パイパーリンク先を指定します。
            
            L = L + 1        'ハイパーリンク設定後、一行加算する。
        End If
    Next ws

End Sub
'

シート内のハイパーリンク設定を削除します。（シート内のハイパーリンクを設定一括削除）

【サンプルプログラムパターン①】

'
'******** AKIRA55.COM ******* https://akira55.com/hyperlink/
'

Sub Hyperlinks05() 'シート全体のハイパーリンクを削除します。

     With ActiveSheet.Cells  '指定したシートのセル全体を対象とします。
             
                .ClearHyperlinks   'ハイパーリンク解除します。
                .Font.Underline = False  '文字のアンダーライン解除します。
                .Font.ColorIndex = xlAutomatic '文字色を自動設定します。
    End With
    
End Sub
’

【サンプルプログラムパターン②】
※パターン②の場合は、ハイパーリンクを削除しますと、書式設定部分も削除されます。

'
'******** AKIRA55.COM ******* https://akira55.com/hyperlink/
'

Sub Hyperlinks04() 'シート全体のハイパーリンクを削除します。

    Dim CellsHL As Hyperlink
    
    For Each CellsHL In ActiveSheet.Hyperlinks  'アクティブシートのハイパーリンク部分を繰り返します。    
         CellsHL.Delete 'ハイパーリンク解除します｡        
    Next

End Sub
'

Webページを表示するパイパーリンクの設定

'
'******** AKIRA55.COM ******* https://akira55.com/hyperlink/
'

Sub Hyperlinks06()  'Webページを表示するハイパーリンクを設定する。


    Dim ws01 As Worksheet
    Dim I, lRow As Long
    Dim H_Title, H_url As String
    
    Set ws01 = Worksheets("URL")  'シート名を指定します。

    lRow = ws01.Cells(Rows.Count, "B").End(xlUp).Row 'シート名「URL」の最終行を取得します。
    
    
    For I = 2 To lRow  'シート名「URL」の最終行までループします。
    
        H_Title = ws01.Cells(I, "B")  'B列のタイトル名を取得します。
        H_url = ws01.Cells(I, "C")  'C列のURLを取得します。
         
         ws01.Hyperlinks.Add anchor:=ws01.Cells(I, "D"), Address:="", SubAddress:=H_url, TextToDisplay:=H_Title
         'D列にハイパーリンクの設定を行います。（インターネットサイト）
    Next I
    
End Sub
'