ハイパーリンクを開く
A1に設定されているハイパーリンクを開きます。
実行前に確認
- 外部アプリやブラウザーが起動する場合があります。リンク先の安全性を確認してください。
1サンプルコード
Sub Example1134()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
If ws.Range("A1").Hyperlinks.Count = 0 Then
MsgBox "A1にリンクがありません。"
Exit Sub
End If
If MsgBox("A1のリンク先を開きますか？", vbYesNo) <> vbYes Then Exit Sub
ws.Range("A1").Hyperlinks(1).Follow
End Sub図で見る操作の流れ
イメージ図コードの動きを表した概念図です。実際のExcel画面ではありません。
準備：A1にリンク
Sheet1!A1へ信頼できるリンクを設定しておく
マクロ：リンクの有無を確認
リンクがあれば、開くか確認する
手動：［はい］を選ぶ
表示された確認に答える
マクロ：リンクを開く
A1の最初のハイパーリンクをたどる
リンクがなければメッセージを表示して終了し、［いいえ］でも終了します。外部アプリが起動する場合があります。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する4つの手順で、コードの使い方を確認できます
- 1
練習用のブックを.xlsm形式で保存し、Sheet1という名前のシートを用意します。A1へ［挿入］→［リンク］で信頼できるリンクを設定します。
- 2
Alt＋F11でVBEを開き、［挿入］→［標準モジュール］へコードを貼り付けます。
- 3
A1をリンクが入っているセルに変更します。
- 4
マクロ内にカーソルを置いてF5で実行します。確認で［はい］を選ぶとリンク先が開きます。