【エクセルマクロ】ハイパーリンクを挿入:自動化してみた

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

エクセルマクロで、ハイパーリンクを自動挿入する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サイトのリンクを設定します。

[My_Site] に、URLを入力します。


 
 

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