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

1 VBAでハイパーリンクを設定する[Hyperlinks.Add メソッド]
2 実際にVBAでハイパーリンクを設定してみる
- 2.1 共有:

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

taka

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

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

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

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

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

1	式 . 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

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

実際に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

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

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

■Twitterフォロー

Follow @taka_pc1027

■YouTubeチャンネル登録

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

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

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

taka

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

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

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

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

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

Sponsored Link

コメントを残すコメントをキャンセル

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

カテゴリーで絞る

月で探す

taka

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

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

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

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

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

Sponsored Link

共有:

コメントを残す コメントをキャンセル

RECOMMENDこちらの記事も人気です。

VBA 郵便番号から住所を取得する方法

ざっくりローン計算システム作成しました

VBA 【クラスモジュールとは？】クラスモジュールについて

VBAで経路を取得する地図を作成してみた

ExcelVBAでフラッシュ暗算プログラムを作ってみました！

VBA ExcelとAccessの連携まとめ

VBA AccessとExcelの連携パート2【実際にプログラムを作って…

VBAで漢字学習ツールを作成してみた

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

コメントを残すコメントをキャンセル

VBA　郵便番号から住所を取得する方法

VBA　【クラスモジュールとは？】クラスモジュールについて