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.2
- 回答日時:
?
Gooさんの小さな親切が仇になってます。。。
Address:="htt・・・・
の1行を全角文字で表示します。
イミディエイトウィンドウで
?strconv("http://maps.google.co.jp/maps?hl=ja&dirflg=d&saddr=",vbNarrow)
の1行をコピペしEnter
出た結果を
Address:="htt・・・・ と差し替えてください。
行継続 『 _』をお忘れなく。
No.3
- 回答日時:
コピペすると当方では
Address: ~中略~ hl=ja&dirflg=d&sad … _
のようにおしまいが三点リーダーになってしまいます。
なので全角文字で載せてイミディエイトウィンドウで半角にしてもらおうと
思った次第。
hl=ja&dirflg=d&sad … _は
hl=ja&dirflg=d&saddr=" _
です。
お探しの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ランキング
-
全角入力
-
全角/半角キーをSendkeys関数で...
-
住宅にカナを入力する際に丁目...
-
正しいメールアドレスの形式で...
-
プログラミングでは、半角括弧...
-
VBAの文字列の中に”(全角のダブ...
-
コマンドプロンプト 全角を含ん...
-
小説の点々は……と繋がらなくて...
-
POM
-
改行のないテキストを指定バイ...
-
VBで「全角」文字を「半角」に...
-
エクセル 全角か半角かを見分...
-
CString Format にて全角空白文...
-
VB.net、テキストボックス入力...
-
正規表現で、全角文字を半角文...
-
word差し込み印刷 半角カタカ...
-
よくアカウント等に使われる 半...
-
Accessのフィールドサイズ
-
検索窓について
-
全角スペースと半角スペースの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
英数字のみ全角から半角に変換
-
住宅にカナを入力する際に丁目...
-
エクセルにMicrosoft Barcode C...
-
プログラミングでは、半角括弧...
-
IEからEdgeへの移行に伴うIMEの...
-
全角英数字の必要性が理解できない
-
VBA 文字に半角が含まれて...
-
Accessのテキストボックスの入...
-
word差し込み印刷 半角カタカ...
-
COBOL・全角判定
-
全角入力
-
VB.net、テキストボックス入力...
-
COBOLでの全角文字の判定をした...
-
CString Format にて全角空白文...
-
メモ帳の段落の揃え方
-
ダブルコーテーションの置換
-
正規表現で、全角文字を半角文...
-
VBで、String型のデータが、...
-
よくアカウント等に使われる 半...
-
エクセルでの”々”の扱い
おすすめ情報
ご回答ありがとうございます。
上記のを参考にして、反映いたしましたが、ルート表示ができずに
目的地だけのGoogleMAP表示だけとなってしまいました。 一体何が違うのかご教授頂けますでしょうか? ちなみに、nicotinismさんと同じWin7_64bit + Excel2010_32bit + IE11
環境です。& EncodeURL(Range("G1").Value) 部分を直接住所で指定しても構いません。
よろしくお願いいたします。