VBA　ハイパーリンクを使用する方法

The following two tabs change content below.

• この記事を書いた人
• 最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

最新記事 by taka (全て見る)

• 『雑記』最近の私の話～ - 2019年9月26日
• 【動画】自作パソコン構成変更！ケースをNZXT　H500に交換しました！ - 2019年6月5日
• VBA 『Array関数』指定した要素で配列を作成する - 2019年5月23日
• 「動画」初完全ワイヤレスイヤホン『Jabra Elite Active 65t』 - 2019年5月17日
• VBA　日付で令和を簡単に判定してみよう - 2019年5月7日

どうも、taka(@takabou63)です(^^♪

Excel上で参考にした表で、webサイトを参照させる場合があります。その時にただの「文字列」で入力すると「参照先に移動する場合、パスをブラウザにコピー＆ペーストするなどをしなくてはいけないです(;^ω^)

この手間を省くには「ハイパーリンク」という機能を使用します(^^♪

VBAでハイパーリンクを設定する[Hyperlinks.Add メソッド]

VBAでハイパーリンクを追加するには、「Hyperlinks.Add メソッド」 を使用します。

Hyperlinks.Add メソッドの書式は以下の通りになります。

式 . Add( Anchor, Address, SubAddress, ScreenTip, TextToDisplay )

名前	必須 / 省略可能	データ型	説明
Anchor	必須	オブジェクト型 (Object)	ハイパーリンクのアンカーを指定します。 Range オブジェクトまたは Shape オブジェクトを指定します。
Address	必須	文字列型 (String)	ハイパーリンクのアドレスを指定します。
SubAddress	省略可能	バリアント型 (Variant)	ハイパーリンクのサブアドレスを指定します。
ScreenTip	省略可能	バリアント型 (Variant)	ハイパーリンク上をマウス ポインターで指した場合に表示されるヒントを指定します。
TextToDisplay	省略可能	バリアント型 (Variant)	ハイパーリンクで表示されるテキストを指定します。

参考:https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/hyperlinks-add-method-excel

実際にVBAでハイパーリンクを設定してみる

という訳で実際にVBAでハイパーリンクを使用してみましょう(^^♪

コードの実行後は画像のようになります。

Sub Sample()

'Withを個別に分ける必要はありませんよ(笑)

'webサイトへリンク
With Worksheets("Sheet1")
 .Hyperlinks.Add Anchor:=.Range("A1"), _
  Address:="https://e-vba.com", _
  ScreenTip:="他とは一味違うVBAサイト", _
  TextToDisplay:="WEBサイトはこちら"
End With

'セルにリンク「SubAddress」を使用します。
With Worksheets("Sheet1")
 .Hyperlinks.Add Anchor:=.Range("A2"), _
  Address:="", _
  SubAddress:="Sheet3!A3", _
  ScreenTip:="Sheet3へ移動します", _
  TextToDisplay:="Sheet3のA3へ移動します"
End With

'Addressに「mailto:」を記載することでメーラーを起動します
With Worksheets("Sheet1")
  .Hyperlinks.Add Anchor:=.Range("A3"), _
   Address:="mailto:宛先＠co.jp?subject=件名です", _
   ScreenTip:="メールを起動します", _
   TextToDisplay:="メールへ"

End With


End Sub

フォロー・チャンネル登録お願いします

VBA以外についてのブログはこちら↓

■Twitterフォロー

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link