Excel VBA ハイパーリンクを実行する

• オブジェクト
  ハイパーリンクが設定されているセルまたはセル範囲をRange【ﾚﾝｼﾞ】オブジェクトで指定します。
• Index【ｲﾝﾃﾞｯｸｽ】
  取得するハイパーリンクの作成順に割り振らた番号を設定します。

• オブジェクト
  Hyperlinks【ﾊｲﾊﾟｰﾘﾝｸｽ】プロパティで取得した実行する単体のハイパーリンクを表すHyperlink【ﾊｲﾊﾟｰﾘﾝｸ】オブジェクトを指定します。
• NewWindow【ﾆｭｰｳｨﾝﾄﾞｳ】（省略可）
  リンク先を新しいウィンドウで表示するかしないかをブール型の値で指定します。省略した場合はFalseが設定され新しいウィンドウは表示しません。

  設定値	内容
  True	新しいウィンドウが開きます。
  False	現在のウィンドウに表示します。（既定値）

• ExtraInfo【ｴｸｽﾄﾗｲﾝﾌｫ】（省略可）
  HTTPの追加情報を指定します。
• Method【ﾒｿｯﾄﾞ】（省略可）
  引数ExtraInfo【ｴｸｽﾄﾗｲﾝﾌｫ】の接続方法をMsoExtraInfoMethod列挙型の定数を使用して指定します。

  MsoExtraInfoMethod列挙型

  定数	内容
  msoMethodGet	アドレスに追加される文字列です。
  msoMethodPost	文字列またはバイト配列として送信されます。

• HeaderInfo【ﾍｯﾀﾞｰｲﾝﾌｫ】（省略可）
  接続のために使用するユーザー名やパスワードなどのHTTP要求のヘッダー情報を指定する文字列を指定します。省略した場合は「空の文字列」が指定されます。

Sub ハイパーリンク実行()
On Error GoTo エラー処理
Range("A1").Hyperlinks(1).Follow
Exit Sub
エラー処理:
MsgBox "リンク先が存在しません。"
End Sub

3行目【Range(“A1”).Hyperlinks(1).Follow】
Range【ﾚﾝｼﾞ】オブジェクトのHyperlinks【ﾊｲﾊﾟｰﾘﾝｸｽ】プロパティを使用して、A1セルに設定されている単体のハイパーリンクを表すHyperlink【ﾊｲﾊﾟｰﾘﾝｸ】オブジェクトを取得し、Hyperlink【ﾊｲﾊﾟｰﾘﾝｸ】オブジェクトのFollow【ﾌｫﾛｰ】メソッドを実行してハイパーリンクを実行します。

4行目【Exit Sub】
Exit【ｴｸｼﾞｯﾄ】ステートメントを使用してSub【ｻﾌﾞ】プロシージャーを途中で終了します。

5行目～6行目【エラー処理:
MsgBox “リンク先が存在しません。”】
エラーが発生した場合、MsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数を使用してメッセージを表示します。