Sub マップリンク表示()
Dim i As Integer
For i = 2 To 36
ActiveSheet.Hyperlinks.Add Anchor:=Range("H" & i), _
Address:="http://maps.google.co.jp/maps?q=" & Range("G" & i).Value, _
TextToDisplay:="Map表示"
※G列に住所、H列にMAPリンク表示。
と記述すればマップリンクができますが、決まった拠点から(例えば東京駅)この住所のルート先表示をしたいです。どのように表記すればよろしいでしょうか?
No.1ベストアンサー
- 回答日時:
詳しくはありませんが、hatena さんの所でAccessでの解説をしてくれていましたので
参考(もとい パクらせて)いただきました。
http://hatenachips.blog34.fc2.com/blog-entry-384 …
G1 に東京駅 (起点)
G2 に日比谷公園
G3 に気象庁の場合です。
標準モジュールにて
(タブインデント代わりに全角スペースを使用しています)
Private Function EncodeURL(ByVal sWord As String) As String
With CreateObject("ScriptControl")
.Language = "JScript"
EncodeURL = .CodeObject.encodeURIComponent(sWord)
End With
End Function
Sub マップリンク表示()
Dim i As Integer
For i = 2 To 3 '6
ActiveSheet.Hyperlinks.Add Anchor:=Range("H" & i), _
Address:="http://maps.google.co.jp/maps?hl=ja&dirflg=d&sad … _
& EncodeURL(Range("G1").Value) _
& "&daddr=" & EncodeURL(Range("G" & i).Value), _
TextToDisplay:="Map表示"
Next
End Sub
※Win7_64bit + Excel2010_32bit + IE11 では機能しました。
No.3
- 回答日時:
コピペすると当方では
Address: ~中略~ hl=ja&dirflg=d&sad … _
のようにおしまいが三点リーダーになってしまいます。
なので全角文字で載せてイミディエイトウィンドウで半角にしてもらおうと
思った次第。
hl=ja&dirflg=d&sad … _は
hl=ja&dirflg=d&saddr=" _
です。
No.2
- 回答日時:
?
Gooさんの小さな親切が仇になってます。。。
Address:="htt・・・・
の1行を全角文字で表示します。
イミディエイトウィンドウで
?strconv("http://maps.google.co.jp/maps?hl=ja&dirflg=d&saddr=",vbNarrow)
の1行をコピペしEnter
出た結果を
Address:="htt・・・・ と差し替えてください。
行継続 『 _』をお忘れなく。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 税率を判定表する方法を教えて下さい。 10 2022/03/28 11:21
- Visual Basic(VBA) エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法 8 2022/08/08 07:50
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
大文字と全角文字は同じ意味で...
-
住宅にカナを入力する際に丁目...
-
全角英数字の必要性が理解できない
-
差し込み印刷について教えてく...
-
全角チルダと波ダッシュに関す...
-
ExcelVBA バイナリファイルの全...
-
全角入力
-
VBでのカナの自動入力方法について
-
全角スペース
-
掲示板で全角の英字はなぜいけ...
-
明細書の英数字の全角・半角に...
-
「 _ _ 」の正式名称を...
-
ACCESS:半角、全角空白スペース...
-
.NET3.5におけるキーボードの「...
-
LaTeXで半角カンマと全角カンマ...
-
splitでほしいものが消えてしま...
-
VBAで“ダブルクォート”の表示
-
エクセルにMicrosoft Barcode C...
-
全角英数字を半角英数字に変換...
-
word差し込み印刷 半角カタカ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
英数字のみ全角から半角に変換
-
VBA 文字に半角が含まれて...
-
エクセルにMicrosoft Barcode C...
-
全角英数字の必要性が理解できない
-
IEからEdgeへの移行に伴うIMEの...
-
住宅にカナを入力する際に丁目...
-
プログラミングでは、半角括弧...
-
COBOL・全角判定
-
VB.net、テキストボックス入力...
-
word差し込み印刷 半角カタカ...
-
全角入力
-
Accessのテキストボックスの入...
-
VBで、String型のデータが、...
-
char型全角数字から、int型半角...
-
よくアカウント等に使われる 半...
-
[VBScript]バイト長の判定
-
全角チルダと波ダッシュに関す...
-
封筒の宛先で縦書きの書き方
-
Accessでのグループ化で全角・...
-
CString Format にて全角空白文...
おすすめ情報
ご回答ありがとうございます。
上記のを参考にして、反映いたしましたが、ルート表示ができずに
目的地だけのGoogleMAP表示だけとなってしまいました。 一体何が違うのかご教授頂けますでしょうか? ちなみに、nicotinismさんと同じWin7_64bit + Excel2010_32bit + IE11
環境です。& EncodeURL(Range("G1").Value) 部分を直接住所で指定しても構いません。
よろしくお願いいたします。