【エクセルマクロ】ハイパーリンクを挿入する:コピペで使えるコード

エクセルマクロ_ハイパーリンク挿入_アイキャッチ エクセルマクロで効率化する

エクセルマクロで、ハイパーリンクを挿入するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
せひ、お試しください。

ハイパーリンクを挿入(ドキュメント内のシート)

以下のExcelVBAを実行すると、ドキュメント内の特定シートをハイパーリンクとして設定します。


Sub 指定シートをハイパーリンク挿入()

  ActiveSheet.Hyperlinks.Add Anchor:=Range("A2"), Address:="", SubAddress:= _
      "はじめに!A1", TextToDisplay:="はじめに"
        
End Sub

 

マクロ実行後

セルにハイパーリンクを設定します。


 

設定したハイパーリンクをクリックすると、ドキュメント内の別シートを開きます。


 
 

ハイパーリンクを挿入(ドキュメント内の全シート)

以下のExcelVBAを実行すると、ドキュメント内の全シートをハイパーリンクとして挿入します。


Sub 全てのシートをハイパーリンク挿入()

Dim ws As Worksheet
Dim i As Long

  i = 1

  'シートをループ
  For Each ws In Worksheets
    
     ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:= _
        ws.Name & "!A1", TextToDisplay:=ws.Name
            
     i = i + 1

  Next
        
End Sub

 

マクロ実行後

セルに全シートのハイパーリンクを設定します。


 
 

ハイパーリンクを挿入(Webページ)

以下のExcelVBAを実行すると、URLをハイパーリンクとして挿入します。


Sub ハイパーリンク挿入()

Dim My_Site As String
    
    My_Site = "https://news.yahoo.co.jp/"
            
    ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:= _
        My_Site, TextToDisplay:="ヤフーニュース"
        
End Sub

 

マクロ実行後

セルにWebサイトへのリンクを設定します。


 
 

この記事がお役に立ちますと幸いです。