別のシートへジャンプ・Webページを表示(Hyperlink.Addメゾット)●はじめに今回は、Hyperlinks.Addメゾットの使い方を説明いたします。Hyperlinks.Addメゾットは、パイパーリンクの追加・設定を行う事が出来ます。ハイパーリンクを設定する事で、指定したセルにジャンプしたり、別のシートにジャンプ(シート切替)したりする事が出来ます。ハイパーリンク設定を利用する事で、EXCELブックに目次を作成し、各シートへジャンプする仕組みを作成する事もできます。それでは、サンプルプログラムを交えて順番に説明いたします。ハイパーリンクのアンカーを指定します。ハイパーリンクのアドレスを指定します。ハイパーリンクのサブアドレスを指定します。設定したハイパーリンク上にマウスポインターを合わせた時に表示するヒントを設定します。ハイパーリンクに表示される文字列(テキスト)を指定します。TextToDisplay:=”LINK”【使用例の説明】1ハイパーリンクを設定先を指定します。セル(B2)2ハイパーリンク先のアドレスを指定します。今回は、URLページ(https://akira.com)3セル(B2)に表示させる文字列を「LINK」に指定します。※上記の設定で、セル(B2)のセルにURLページアドレスのリンク先を設定しました。(Hyperlinks.Addメゾット)下記のサンプルプログラムは、Hyperlinks.Addメゾットを利用したサンプルプログラムです。指定したセルからセルへジャンプします。今回のプログラムは、下記のプログラム(1・2)を入力する必要が有ります。'指定したセルにジャンプします。※プログラム実行後、リンク先のG列に都道府県のリンク先一覧が作成されます。都道府県名(兵庫県)をクリックしますと、セルA65にジャンプされました。(Hyperlinks.Addメゾット)下記のサンプルプログラムは、Hyperlinks.Addメゾットを利用したサンプルプログラムです。同じブック内の別シートへジャンプします。シート名に対してワイパーリンクの設定を行います。2シート名「近畿地方」に、各シート名のパイパーリンクが設定されます。3シート名「近畿地方」に「リンク先シート」一覧が作成されるので、リンク先の都道府県をクリックしますと選択した都道府県のシートにジャンプします。'ワークシート全て繰り返します。'ワークシート近畿地方以外のワークシート名に対してハイパーリンク先の設定を行います。'ワークシート毎に、パイパーリンク先を指定します。'ハイパーリンク設定後、一行加算する。'ワークシート全て繰り返します。'ワークシート近畿地方以外のワークシート名に対してハイパーリンク先の設定を行います。TextToDisplay:=ws.Name'ワークシート毎に、パイパーリンク先を指定します。'ハイパーリンク設定後、一行加算する。※プログラム実行後、シート「近畿地方」のB列のリンク先シートに、各都道府県ハイパーリンクを設定されました。和歌山県をクリックしたら和歌山県のシートが表示されました。(画面クリックして拡大)シート内のハイパーリンク設定を削除します。下記のサンプルプログラムは、シート全体に設定したパイパーリンクを一括削除するサンプルプログラムです。'シート全体のハイパーリンクを削除します。'シート全体のハイパーリンクを削除します。'指定したシートのセル全体を対象とします。'ハイパーリンク解除します。'文字のアンダーライン解除します。'文字色を自動設定します。'シート全体のハイパーリンクを削除します。'指定したシートのセル全体を対象とします。'ハイパーリンク解除します。'文字のアンダーライン解除します。'文字色を自動設定します。※パターン2の場合は、ハイパーリンクを削除しますと、書式設定部分も削除されます。'シート全体のハイパーリンクを削除します。'シート全体のハイパーリンクを削除します。'アクティブシートのハイパーリンク部分を繰り返します。'ハイパーリンク解除します。'シート全体のハイパーリンクを削除します。'アクティブシートのハイパーリンク部分を繰り返します。'ハイパーリンク解除します。※プログラム実行後(パターン1)シート全体に設定されたハイパーリンクが削除されました。下記のプログラムは、パターン1の結果を表現しています。下記のサンプルプログラムは、指定したセルにWebページを表示するハイパーリンクを設定するサンプルプログラムです。●ワークシートを【URL】に設定する。'Webページを表示するハイパーリンクを設定する。'Webページを表示するハイパーリンクを設定する。'シート名を指定します。'シート名「URL」の最終行を取得します。'シート名「URL」の最終行までループします。'B列のタイトル名を取得します。'C列のURLを取得します。'D列にハイパーリンクの設定を行います。'Webページを表示するハイパーリンクを設定する。'シート名を指定します。'シート名「URL」の最終行を取得します。'シート名「URL」の最終行までループします。'B列のタイトル名を取得します。'C列のURLを取得します。TextToDisplay:=H_Title'D列にハイパーリンクの設定を行います。※プログラム実行後、B列のタイトル名とC列のURLで、D列にハイパーリンク設定がされまました。(画面クリックして拡大)最後まで、ご覧いただきまして誠に有難うございました。VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。指定した行列に小計を追加する。指定した表を自動的に背景色をゼブラ模様(縞模様)にする。Functionプロシージャを使いこなす。便利なVBAコード・サンプルプログラム一覧・覚えると便利・効率が上がる。エラーかどうがを判定します。