Excel VBA 住所データをGoogleMapにリンクする方法

スポンサーリンク
スポンサーリンク

住所データにハイパーリンクを設定する方法

ハイパーリンクとは、リンク先が設定されている
文字列や図形のことです。

ハイパーリンクをクリックすると、設定されている
リンク先に移動することができます。

リンク先には、ブック内のシート、ファイル
Webページ、メールアドレスを指定することができます。

VBAでハイパーリンクを設定するには
Hyperlinks【ハイペーリンクス】コレクションの
Add【アド】メソッドを使用します。
ハイパーリンクを参照するには
Hyperlink【ハイパーリンク】オブジェクトを使用します。

HyperlinksコレクションのAddメソッドの書式

[]内は省略可能です。
オブジェクト.Add(Anchor,Address[,SubAddress,screenTip,TextToDisplay])


設定値(引数)の説明

  • オブジェクト
    Hyperlinks【ハイペーリンクス】コレクションを指定します。
  • Anchor【アンカー】
    オブジェクト型の値を使用してハイパーリンクの設定先を指定します。
    セルに設定する場合はRangeオブジェクトを指定します。
  • Address【アドレス】
    URLやファイルのパスなど、ハイパーリンクのアドレスを文字列で指定します。
  • SubAddress【サブアドレス】
    ハイパーリンクのサブアドレスを指定します。
    指定したWebページ内のブックマークやワークシート内のセルなどの
    ジャンプ先を指定します。
  • ScreenTip【スクリーンチップ】
    ハイパーリンク上にマウスを合わせたときに表示される
    ポップヒントを指定します。
  • TextToDisplay【テキストトゥディスプレイ】
    セルに表示される文字列を指定します。

住所データからハイパーリンクで地図を表示するコード

Sub ハイパーリンク()
Dim i As Integer
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
ActiveSheet.Hyperlinks.Add _
Anchor:=Cells(i, 2) _
, Address:="https://maps.google.co.jp/maps/search/" & Cells(i, 2).Value
Next i
End Sub

コードの解説

2行目
【Dim i As Long】
住所が入力されている列の項目行を除いた2行目から
最終行を格納するカウンタ―変数のiを長整数型(Long)
で宣言しています。


3行目
【For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row】
For文で繰り返し処理の始まりです。
ここでは住所が入力されている列を2列目に設定しているので
住所が入力されているセルが2列目でない場合は
「Cells(Rows.Count, 2)」の2を住所が入力されている
列番号に変更してください。


4行目
【ActiveSheet.Hyperlinks.Add _】
Hyperlinks【ハイパーリンクス】コレクションのAdd【アド】メソッドで
ハイパーリンクを作成します。


5行目
【Anchor:=Cells(i, 2) _】
Addメソッドの引数Anchor【アンカー】にハイパーリンクの設定先を
住所が入力されている2列目に設定しています。


6行目
【Address:=”https://maps.google.co.jp/maps/search/” & Cells(i, 2).Value】
Addメソッドの引数Address【アドレス】にグーグルマップのアドレスを設定しています。
ここでも住所も列が2列目でないときは変更してください。


実行前

実行後



リンクを解除する方法

リンクの列を選択してマウス右ボタンをクリックして
メニューの一番下に「リンクの削除」で削除できますが
簡単なのでリンクを解除するコードも説明します。

シートのハイパーリンクをすべて解除するには
Hyperlinks【ハイパーリンクス】コレクションに対して
Delete【デリート】メソッドを使用すれば
ハイパーリンクが解除されます。

コード例

Sub リンク削除()
ActiveSheet.Hyperlinks.Delete
End Sub

リンクを作成するコードと同じモジュール内に
記述しておくとよいと思います。
以上で
住所データをGoogleMapにリンクする方法についての解説を終了します。
ありがとうございました。

スポンサーリンク
スポンサーリンク

フォローする

スポンサーリンク
スポンサーリンク