- ベストアンサー
エクセルでワンクリックでルート検索したいのですが…
f272の回答
面白そうなのでVBAで作ってみた。データのあるシートのシートマクロとして使ってください。 会社の住所は，適当に変更してね。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub If Target.Text = "" Then Exit Sub Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Filename = fso.GetSpecialFolder(2) & "googlemaps.html" With CreateObject("ADODB.Stream") .Type = 2 .Charset = "UTF-8" .Open .WriteText "<!DOCTYPE html>", 1 .WriteText "<html>", 1 .WriteText "<head>", 1 .WriteText "<meta name=""viewport"" content=""width=device-width, initial-scale=1.0, user-scalable=no"" /> <meta http-equiv=""content-type"" content=""text/html; charset=UTF-8"" />", 1 .WriteText "<link href=""http://code.google.com/apis/maps/documentation/javascript/examples/default.css"" rel=""stylesheet"" type=""text/css"" />", 1 .WriteText "<title>Google Maps JavaScript API v3</title>", 1 .WriteText "<script type=""text/javascript"" src=""http://maps.google.com/maps/api/js?sensor=false""></script>", 1 .WriteText "<script type=""text/javascript"">", 1 .WriteText "var rendererOptions ={draggable: true,preserveViewport:false};", 1 .WriteText "var directionsDisplay = new google.maps.DirectionsRenderer(rendererOptions);", 1 .WriteText "var directionsService = new google.maps.DirectionsService();", 1 .WriteText "var map;", 1 .WriteText "function initialize()", 1 .WriteText "{", 1 .WriteText " var myOptions = {center: google.maps.LatLng(35.67849, 139.39178), zoom: 10, mapTypeId: google.maps.MapTypeId.ROADMAP};", 1 .WriteText " map = new google.maps.Map(document.getElementById(""map_canvas""), myOptions);", 1 .WriteText " directionsDisplay.setMap(map);", 1 .WriteText " google.maps.event.addListener(directionsDisplay, 'directions_changed', function() {});", 1 .WriteText " var request = {", 1 .WriteText " origin: ""東京都渋谷区恵比寿1－19－15"" ,", 1 .WriteText " destination: """ & Target.Text & """ ,", 1 .WriteText " travelMode: google.maps.DirectionsTravelMode.DRIVING,", 1 .WriteText " unitSystem: google.maps.DirectionsUnitSystem.METRIC,", 1 .WriteText " optimizeWaypoints: true,", 1 .WriteText " avoidHighways: false,", 1 .WriteText " avoidTolls: false", 1 .WriteText " };", 1 .WriteText " directionsService.route(request, function(response, status) { ", 1 .WriteText " if (status == google.maps.DirectionsStatus.OK) {directionsDisplay.setDirections(response);}", 1 .WriteText " });", 1 .WriteText "}", 1 .WriteText "</script>", 1 .WriteText "</head>", 1 .WriteText "<body onload=""initialize()"">", 1 .WriteText "<div id=""map_canvas""></div>", 1 .WriteText "</body>", 1 .WriteText "</html>", 1 .SaveToFile Filename, 2 .Close End With Dim WSH Set WSH = CreateObject("Wscript.Shell") WSH.Run Filename, 3 End Sub
関連するQ&A
- エクセルのハイパーリンクに関して
現在、以下のようなハイパーリンクを張っていまして、、 =HYPERLINK("http://www.google.co.jp/#sclient=psy-ab&hl=ja&source=hp&q="&J5,"☆") J5セルに入っている住所をＫ5セルの星マークをクリックするとグーグルマップで表示してくれるのですが、 これを、会社からＪ5セルの住所までのルート検索（車）が開くようにしたいのですが、可能でしょうか？ ちょっと文章がわかりにくいかもしれませんが、要は会社からエクセルに入力されている住所までのルート検索（車）をワンクリックで出来ないかという質問です^^; よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- 「エクセルでワンクリックでルート検索したい」(2)
過去問の http://okwave.jp/qa/q7336006.html につきまして、上記の回答をそのままVBAに記述して EXCEL2010において実行してみたのですが 「コンパイルエラー 構文エラー」になってしまい 添付の写真のようにエラーの箇所が示されるものの当方では修正ができません。 当方プログラマーではなくただコピペして実行してみただけです。 ググってもわかるレベルでないことがわかり ここにて質問させていただきたくこととしました。 また、本当のところを申しますと 過去問では出発地の住所が"東京都渋谷区恵比寿～"に固定されておりますが EXCELシート上のA列に出発地、B列に到着地の住所を入力しておくと 両地点の（車での）距離を表示するようにしたいのです。 大変に恐縮ですが、ご教示くださいますようお願い致します。
- ベストアンサー
- Visual Basic
- エクセル上のリンクをワンクリックで開くには？
エクセル２００３を使っているんですが、セル上にURLをのリンクを数十個貼ってあり、 それを以前はワンクリックだけで次々とブラウザのタブで開くことができたんですが、 ある時をきっかけに、ワンクリックではリンクを開くことができなくなり URLが貼ってあるセルをダブルクリック→空白のセルをワンクリックで選択→URLが貼ってあるセルをワンクリックしてURLを開く という手順を踏まないといけなくなりました。 以前は、 URLが書いてあるセルをワンクリックするとすぐにリンクを開くことが出来ました。 ワンクリックだけでURLを開くようにするにはどうすればよいでしょうか？ エクセル２００３ Windows8
- ベストアンサー
- Excel（エクセル）
- オフラインマップでルート検索できない
使っていない古いスマホ（一年ぐらいの前ですが）をカーナビ用にしようと思ってグーグルマップの地図をダウンロードしてオフラインマップで使用しようかと思ったのですが、ルート検索できません。 最初の数日はバイクの付けて出来たのですが、なぜか今は検索できなくなりました。 家にはWi-Fiが無いのでお店のWi-Fiでやってみたらルート検索できたのですが、又数日経ったら検索できなくなりました。 原因が分かる方アドバイスよろしくお願いします。
- ベストアンサー
- 携帯・スマホアプリ
- google mapでのルート検索を良く利用していますが、一つ困ってい
google mapでのルート検索を良く利用していますが、一つ困っている事があります。 google mapが検索したルートを少しアレンジするのに白丸○で表されたポイントを ドラッグすれば良いのですが、うまくドラッグ出来た試しがありません。 付近をぐるぐる何度も周回するようなルート地図が出来上がってしまいます。 何か途中のルートポイントを削除する方法などはあるのでしょうか？ みなさんはどのようにしてらっしゃいますか？
- ベストアンサー
- その他（インターネット・Webサービス）
- Google Earthのルート検索について
Google Earthのルート検索で住所を入れて出てきたルートではないルートを表示させてツアーを再生することはできるでしょうか？
- ベストアンサー
- その他（インターネット・Webサービス）
- google map のルート検索結果をモバイルに
PCでgoogle mapを使ってルート検索した結果を「モバイルデバイスに送信」するとき、送信先デバイスのリストに過去に使っていたデバイス(iPhone)が複数出てきます。既に使っていないデバイスを削除して整理したいのですが、どのようにしたら良いでしょうか。 宜しくお願い致します。
- ベストアンサー
- Googleサービス全般
- パソコンでグーグルの検索窓が出なくなった
グーグルのホームです。検索したいときに入力する小窓が消えました。 どうすれば良いですか？ また、検索エンジンはグーグルクロームがいいのですが、上のURLを入力するところが勝手にヤフーになってます。しかも文字化け？中国語？へんなふうになってます。 既定のブラウザはグーグルクロームになってます。
- 締切済み
- その他(Windows)
- Google map２点間のルートを簡単に調べる法
ブラウザは（関係ないと思いますが）Chromeを使っています。 PCでGoogle mapで２点間のルートを調べたいとき、 １、目的地を検索 ２、ルートのボタンをおす ３、現在地からの目的地までのルートが表示される ４、現在地のところ、起点地を入れなおす としています。 もっと簡単にできる方法はありますでしょうか。 たとえば、目的地をクリック、起点地をクリック、 ボタン一発で検索結果表示など。 あるいはそこまで簡単でなくても、比較的簡単な方法があれば教えていただきたいです。何卒よろしくお願い致します。
- ベストアンサー
- Googleサービス全般
お礼
たびたびすみません。 住所のセルをクリックしたら問題なく動きました！ どうもありがとうございましたm(_ _)m
補足
ご回答ありがとうございます。 返信遅くなって申し訳ないです。 ＶＢＡは少し触った程度で、折角書いていただいたのですが正直読めないです。。 どういう動きでどうやって使うか詳しく説明いただけると助かります。 お手数ですがよろしくお願いします。