狠狠撸

狠狠撸Share a Scribd company logo
Copyright ? Century Four All right reserved. 1
エクセルマップ(Google Maps API3.0対応)
GoogleMaps API 2.0の廃止に伴い、新バージョンのGoogleMaps API3.0に対応させました
エクセルに入力した住所から、GoogleMapsに吹き出しを表示させるシステムです
■開発言語
?Excel VBA
?JavaScript
■マークアップ言語
?XHTML 1.0 Strict
?CSS2.0
■API
?GoogleMaps JavaScript
API Ver3.0
■対応ブラウザ
?Internet Explorer6.7.8.9
?Firefox
?Google Chrome
Copyright ? Century Four All right reserved. 2
吹き出しに表示させたい『文字』と、吹き出しに表示したい『住所』を入力してください。
●手順1
?吹き出しに表示させたい『文字』を入力
?吹き出しに表示させたい『住所』を入力
地図作成方法
Copyright ? Century Four All right reserved. 3
「座標取得」が取得されてきます。しばらく時間が掛かります。
「座標取得」が自動的に取得されていきます。
●手順2
「座標取得」ボタンをクリックすると、
住所から座標を取得します。
地図作成方法
Copyright ? Century Four All right reserved. 4
拡大
「ブロックされているコンテンツを許可」をクリック
地図を見る場合は、ココをクリック
地図作成方法
Copyright ? Century Four All right reserved. 5
GoogleMapsが起動し、入力した住所に吹き出しに表示されます。
入力した住所に、
「物件名」のテキストをいれた、
吹き出しが表示されるようになります。
「住所」を入力すると、
入力した住所に地図が移動します。
ストリートビューも可能!
地図作成方法
Copyright ? Century Four All right reserved. 6
仕様書
Copyright ? Century Four All right reserved. 7
Excel
VBA
Encoding
SJIS→UTF-8
GoogleMaps API3.0
JavaScript File
Excel Map
Geocoding
?latitude
?longitude
Encoding
SJIS→UTF-8
システム仕様
StyledMarker
https://code.google.com/p/google-maps-utility-library-v3/
Google Maps JavaScript API V3 Reference
https://developers.google.com/maps/
Copyright ? Century Four All right reserved. 8
コード解説(Excel VBA編)
Copyright ? Century Four All right reserved. 9
コード解説(Excel VBA編)
Excel VBA
VBAは、コールバック処理ができない?
恰好悪いけど、Sleepで連打送信を制限
他にも綺麗な書き方ある!
美を追求し過ぎない主義!(言い訳)
500ms 一時停止させる
Copyright ? Century Four All right reserved. 10
コード解説(Excel VBA編)
やっとこさ、経度と緯度が取得できた
XMLファイルを操作するので、
Microsoft XML V6.0 を有効に!
住所を「UTF-8」に変換する
Excel VBA
Copyright ? Century Four All right reserved. 11
コード解説(Excel VBA編)
文字コードを変換する関数
SJIS-WIN ?UTF-8
汎用性が効く関数です。
Excel VBA
オブジェクトの解放を忘れずに
Copyright ? Century Four All right reserved. 12
コード解説(Excel VBA編)
Excel VBA
「, 」を入れないとIEでは起動できない。。。
件数分ループさせて、
JavaScriptに読み込ませる用のデータを作る
Copyright ? Century Four All right reserved. 13
コード解説(Excel VBA編)
Excel VBA
Internet Explorer を起動させる
相対パス指定
Copyright ? Century Four All right reserved. 14
コード解説(Excel VBA編)
Excel VBA
GoogleMaps API V3.0に対応する吹き出しライブラリ
https://code.google.com/p/google-maps-utility-library-v3/
コイツを動かすには、文字コード「UTF-8」にしないといけない
かなり嵌まってしまった。。。
Excel VBA で、ファイルの文字コード変換作成ができる!
オブジェクトの解放を忘れずに
Copyright ? Century Four All right reserved. 15
コード解説(HTML編)
Copyright ? Century Four All right reserved. 16
コード解説(HTML編)
HTML
マップ表示領域
ページ表示時に実行
Copyright ? Century Four All right reserved. 17
コード解説(JavaScript 編)
Copyright ? Century Four All right reserved. 18
コード解説( JavaScript 編)
テキストボックスに表示させる説明表示
Javascriptで対応
UI にも優れるので便利な関数?
こんな感じになる!
JavaScript
Copyright ? Century Four All right reserved. 19
コード解説( JavaScript 編)
GoogleMapの初期表示
地図上に吹き出しを生成
VBAで作成したファイルを反映
こんな感じになる!
JavaScript

More Related Content

Viewers also liked (16)

ハーバード社会起业大会スタディプログラム报告会&勉强会@大阪?京都
ハーバード社会起业大会スタディプログラム报告会&勉强会@大阪?京都ハーバード社会起业大会スタディプログラム报告会&勉强会@大阪?京都
ハーバード社会起业大会スタディプログラム报告会&勉强会@大阪?京都
YutakaTanabe
?
Corex MS-Excel(エクセル)研修
Corex MS-Excel(エクセル)研修Corex MS-Excel(エクセル)研修
Corex MS-Excel(エクセル)研修
Daisuke Kaita
?
Agile66 - 新人研修でガチアジャイル
Agile66 - 新人研修でガチアジャイルAgile66 - 新人研修でガチアジャイル
Agile66 - 新人研修でガチアジャイル
Dai FUJIHARA
?
ドミノ レンタル
ドミノ レンタルドミノ レンタル
ドミノ レンタル
Jun Chiba
?
Corex ロジカルシンキング(論理的思考)研修
Corex ロジカルシンキング(論理的思考)研修Corex ロジカルシンキング(論理的思考)研修
Corex ロジカルシンキング(論理的思考)研修
Daisuke Kaita
?
グループワーク向け脱出ゲーム「紧急出动」
グループワーク向け脱出ゲーム「紧急出动」グループワーク向け脱出ゲーム「紧急出动」
グループワーク向け脱出ゲーム「紧急出动」
Jun Chiba
?
コミュニケーションゲーム「野球のポジション当てゲーム」
コミュニケーションゲーム「野球のポジション当てゲーム」コミュニケーションゲーム「野球のポジション当てゲーム」
コミュニケーションゲーム「野球のポジション当てゲーム」
Jun Chiba
?
ペーパータワー forビジネス
ペーパータワー forビジネスペーパータワー forビジネス
ペーパータワー forビジネス
Jun Chiba
?
狈础厂础ゲーム(コンセンサスゲーム)
狈础厂础ゲーム(コンセンサスゲーム)狈础厂础ゲーム(コンセンサスゲーム)
狈础厂础ゲーム(コンセンサスゲーム)
Jun Chiba
?
企業向け 謎解きゲーム 「汚れた企画書の謎」
企業向け 謎解きゲーム 「汚れた企画書の謎」企業向け 謎解きゲーム 「汚れた企画書の謎」
企業向け 謎解きゲーム 「汚れた企画書の謎」
Jun Chiba
?
研修で使えるマシュマロチャレンジの运営スライド
研修で使えるマシュマロチャレンジの运営スライド研修で使えるマシュマロチャレンジの运営スライド
研修で使えるマシュマロチャレンジの运営スライド
Jun Chiba
?
とある中堅ヘ?ンチャーの新人研修戦略 #efsta42
とある中堅ヘ?ンチャーの新人研修戦略 #efsta42とある中堅ヘ?ンチャーの新人研修戦略 #efsta42
とある中堅ヘ?ンチャーの新人研修戦略 #efsta42
Mamiko Tsuda
?
新入社员の技术研修に関してありがちな问题を解决するためにやったことやるべきこと
新入社员の技术研修に関してありがちな问题を解决するためにやったことやるべきこと新入社员の技术研修に関してありがちな问题を解决するためにやったことやるべきこと
新入社员の技术研修に関してありがちな问题を解决するためにやったことやるべきこと
pupupopo88
?
【再放送】成果が上がる!新入社員の仕事術 先生:スクー生徒会
【再放送】成果が上がる!新入社員の仕事術 先生:スクー生徒会【再放送】成果が上がる!新入社員の仕事術 先生:スクー生徒会
【再放送】成果が上がる!新入社員の仕事術 先生:スクー生徒会
schoowebcampus
?
新入社員がイチ早く成果を出すために必要な5つのこと【グロービス経営大学院 特別授業】
新入社員がイチ早く成果を出すために必要な5つのこと【グロービス経営大学院 特別授業】新入社員がイチ早く成果を出すために必要な5つのこと【グロービス経営大学院 特別授業】
新入社員がイチ早く成果を出すために必要な5つのこと【グロービス経営大学院 特別授業】
schoowebcampus
?
【起业準备から决算まで】会计入门者コース
【起业準备から决算まで】会计入门者コース【起业準备から决算まで】会计入门者コース
【起业準备から决算まで】会计入门者コース
Keiichi Maeda
?
ハーバード社会起业大会スタディプログラム报告会&勉强会@大阪?京都
ハーバード社会起业大会スタディプログラム报告会&勉强会@大阪?京都ハーバード社会起业大会スタディプログラム报告会&勉强会@大阪?京都
ハーバード社会起业大会スタディプログラム报告会&勉强会@大阪?京都
YutakaTanabe
?
Corex MS-Excel(エクセル)研修
Corex MS-Excel(エクセル)研修Corex MS-Excel(エクセル)研修
Corex MS-Excel(エクセル)研修
Daisuke Kaita
?
Agile66 - 新人研修でガチアジャイル
Agile66 - 新人研修でガチアジャイルAgile66 - 新人研修でガチアジャイル
Agile66 - 新人研修でガチアジャイル
Dai FUJIHARA
?
ドミノ レンタル
ドミノ レンタルドミノ レンタル
ドミノ レンタル
Jun Chiba
?
Corex ロジカルシンキング(論理的思考)研修
Corex ロジカルシンキング(論理的思考)研修Corex ロジカルシンキング(論理的思考)研修
Corex ロジカルシンキング(論理的思考)研修
Daisuke Kaita
?
グループワーク向け脱出ゲーム「紧急出动」
グループワーク向け脱出ゲーム「紧急出动」グループワーク向け脱出ゲーム「紧急出动」
グループワーク向け脱出ゲーム「紧急出动」
Jun Chiba
?
コミュニケーションゲーム「野球のポジション当てゲーム」
コミュニケーションゲーム「野球のポジション当てゲーム」コミュニケーションゲーム「野球のポジション当てゲーム」
コミュニケーションゲーム「野球のポジション当てゲーム」
Jun Chiba
?
ペーパータワー forビジネス
ペーパータワー forビジネスペーパータワー forビジネス
ペーパータワー forビジネス
Jun Chiba
?
狈础厂础ゲーム(コンセンサスゲーム)
狈础厂础ゲーム(コンセンサスゲーム)狈础厂础ゲーム(コンセンサスゲーム)
狈础厂础ゲーム(コンセンサスゲーム)
Jun Chiba
?
企業向け 謎解きゲーム 「汚れた企画書の謎」
企業向け 謎解きゲーム 「汚れた企画書の謎」企業向け 謎解きゲーム 「汚れた企画書の謎」
企業向け 謎解きゲーム 「汚れた企画書の謎」
Jun Chiba
?
研修で使えるマシュマロチャレンジの运営スライド
研修で使えるマシュマロチャレンジの运営スライド研修で使えるマシュマロチャレンジの运営スライド
研修で使えるマシュマロチャレンジの运営スライド
Jun Chiba
?
とある中堅ヘ?ンチャーの新人研修戦略 #efsta42
とある中堅ヘ?ンチャーの新人研修戦略 #efsta42とある中堅ヘ?ンチャーの新人研修戦略 #efsta42
とある中堅ヘ?ンチャーの新人研修戦略 #efsta42
Mamiko Tsuda
?
新入社员の技术研修に関してありがちな问题を解决するためにやったことやるべきこと
新入社员の技术研修に関してありがちな问题を解决するためにやったことやるべきこと新入社员の技术研修に関してありがちな问题を解决するためにやったことやるべきこと
新入社员の技术研修に関してありがちな问题を解决するためにやったことやるべきこと
pupupopo88
?
【再放送】成果が上がる!新入社員の仕事術 先生:スクー生徒会
【再放送】成果が上がる!新入社員の仕事術 先生:スクー生徒会【再放送】成果が上がる!新入社員の仕事術 先生:スクー生徒会
【再放送】成果が上がる!新入社員の仕事術 先生:スクー生徒会
schoowebcampus
?
新入社員がイチ早く成果を出すために必要な5つのこと【グロービス経営大学院 特別授業】
新入社員がイチ早く成果を出すために必要な5つのこと【グロービス経営大学院 特別授業】新入社員がイチ早く成果を出すために必要な5つのこと【グロービス経営大学院 特別授業】
新入社員がイチ早く成果を出すために必要な5つのこと【グロービス経営大学院 特別授業】
schoowebcampus
?
【起业準备から决算まで】会计入门者コース
【起业準备から决算まで】会计入门者コース【起业準备から决算まで】会计入门者コース
【起业準备から决算まで】会计入门者コース
Keiichi Maeda
?

More from H S (20)

【データ编集の技】空のシートを简単に追加する
【データ编集の技】空のシートを简単に追加する【データ编集の技】空のシートを简単に追加する
【データ编集の技】空のシートを简単に追加する
H S
?
【データ编集の技】シートを移动?コピーする
 【データ编集の技】シートを移动?コピーする 【データ编集の技】シートを移动?コピーする
【データ编集の技】シートを移动?コピーする
H S
?
【データ入力の技】重复したデータを削除する
【データ入力の技】重复したデータを削除する【データ入力の技】重复したデータを削除する
【データ入力の技】重复したデータを削除する
H S
?
【データ编集の技】选択したセルを基準にしてセル幅を自动调整する
【データ编集の技】选択したセルを基準にしてセル幅を自动调整する【データ编集の技】选択したセルを基準にしてセル幅を自动调整する
【データ编集の技】选択したセルを基準にしてセル幅を自动调整する
H S
?
【データ编集の技】入力した文字数に応じてセルの幅を自动调整する
【データ编集の技】入力した文字数に応じてセルの幅を自动调整する【データ编集の技】入力した文字数に応じてセルの幅を自动调整する
【データ编集の技】入力した文字数に応じてセルの幅を自动调整する
H S
?
【データ编集の技】行をまとめて挿入?削除する
【データ编集の技】行をまとめて挿入?削除する【データ编集の技】行をまとめて挿入?削除する
【データ编集の技】行をまとめて挿入?削除する
H S
?
【データ编集の技】列をまとめて挿入?削除する
【データ编集の技】列をまとめて挿入?削除する【データ编集の技】列をまとめて挿入?削除する
【データ编集の技】列をまとめて挿入?削除する
H S
?
【データ编集の技】もっと简単に列や行の移动する方法
【データ编集の技】もっと简単に列や行の移动する方法【データ编集の技】もっと简単に列や行の移动する方法
【データ编集の技】もっと简単に列や行の移动する方法
H S
?
【Word press】記事一覧ページを作成する方法
【Word press】記事一覧ページを作成する方法【Word press】記事一覧ページを作成する方法
【Word press】記事一覧ページを作成する方法
H S
?
【贰虫肠别濒データ编集の技】列を丸ごと他の列の间に移动する
【贰虫肠别濒データ编集の技】列を丸ごと他の列の间に移动する【贰虫肠别濒データ编集の技】列を丸ごと他の列の间に移动する
【贰虫肠别濒データ编集の技】列を丸ごと他の列の间に移动する
H S
?
【贰虫肠别濒データ编集の技】列を丸ごと他の列の间に移动する
【贰虫肠别濒データ编集の技】列を丸ごと他の列の间に移动する【贰虫肠别濒データ编集の技】列を丸ごと他の列の间に移动する
【贰虫肠别濒データ编集の技】列を丸ごと他の列の间に移动する
H S
?
【贰虫肠别濒データ编集の技】表全体から図形を一括选択する
【贰虫肠别濒データ编集の技】表全体から図形を一括选択する【贰虫肠别濒データ编集の技】表全体から図形を一括选択する
【贰虫肠别濒データ编集の技】表全体から図形を一括选択する
H S
?
【贰虫肠别濒データ编集の技】表全体から特定の书式やエラーを探す
【贰虫肠别濒データ编集の技】表全体から特定の书式やエラーを探す【贰虫肠别濒データ编集の技】表全体から特定の书式やエラーを探す
【贰虫肠别濒データ编集の技】表全体から特定の书式やエラーを探す
H S
?
【贰虫肠别濒データ编集の技】离れたセルを同时に选択する
【贰虫肠别濒データ编集の技】离れたセルを同时に选択する【贰虫肠别濒データ编集の技】离れたセルを同时に选択する
【贰虫肠别濒データ编集の技】离れたセルを同时に选択する
H S
?
【贰虫肠别濒データ编集の技】表全体を一瞬で选択する
【贰虫肠别濒データ编集の技】表全体を一瞬で选択する【贰虫肠别濒データ编集の技】表全体を一瞬で选択する
【贰虫肠别濒データ编集の技】表全体を一瞬で选択する
H S
?
【贰虫肠别濒データ入力の技】入力値を选択方式にする
【贰虫肠别濒データ入力の技】入力値を选択方式にする【贰虫肠别濒データ入力の技】入力値を选択方式にする
【贰虫肠别濒データ入力の技】入力値を选択方式にする
H S
?
UQ WiMAXの通信速度を大幅に上げる方法
UQ WiMAXの通信速度を大幅に上げる方法UQ WiMAXの通信速度を大幅に上げる方法
UQ WiMAXの通信速度を大幅に上げる方法
H S
?
【贰虫肠别濒データ入力の技】入力时の补足説明をする
【贰虫肠别濒データ入力の技】入力时の补足説明をする【贰虫肠别濒データ入力の技】入力时の补足説明をする
【贰虫肠别濒データ入力の技】入力时の补足説明をする
H S
?
【贰虫肠别濒データ入力の技】入力规则でエラーメッセージを设定する
【贰虫肠别濒データ入力の技】入力规则でエラーメッセージを设定する【贰虫肠别濒データ入力の技】入力规则でエラーメッセージを设定する
【贰虫肠别濒データ入力の技】入力规则でエラーメッセージを设定する
H S
?
【贰虫肠别濒データ入力の技】半角文字のみ入力可能にする
【贰虫肠别濒データ入力の技】半角文字のみ入力可能にする【贰虫肠别濒データ入力の技】半角文字のみ入力可能にする
【贰虫肠别濒データ入力の技】半角文字のみ入力可能にする
H S
?
【データ编集の技】空のシートを简単に追加する
【データ编集の技】空のシートを简単に追加する【データ编集の技】空のシートを简単に追加する
【データ编集の技】空のシートを简単に追加する
H S
?
【データ编集の技】シートを移动?コピーする
 【データ编集の技】シートを移动?コピーする 【データ编集の技】シートを移动?コピーする
【データ编集の技】シートを移动?コピーする
H S
?
【データ入力の技】重复したデータを削除する
【データ入力の技】重复したデータを削除する【データ入力の技】重复したデータを削除する
【データ入力の技】重复したデータを削除する
H S
?
【データ编集の技】选択したセルを基準にしてセル幅を自动调整する
【データ编集の技】选択したセルを基準にしてセル幅を自动调整する【データ编集の技】选択したセルを基準にしてセル幅を自动调整する
【データ编集の技】选択したセルを基準にしてセル幅を自动调整する
H S
?
【データ编集の技】入力した文字数に応じてセルの幅を自动调整する
【データ编集の技】入力した文字数に応じてセルの幅を自动调整する【データ编集の技】入力した文字数に応じてセルの幅を自动调整する
【データ编集の技】入力した文字数に応じてセルの幅を自动调整する
H S
?
【データ编集の技】行をまとめて挿入?削除する
【データ编集の技】行をまとめて挿入?削除する【データ编集の技】行をまとめて挿入?削除する
【データ编集の技】行をまとめて挿入?削除する
H S
?
【データ编集の技】列をまとめて挿入?削除する
【データ编集の技】列をまとめて挿入?削除する【データ编集の技】列をまとめて挿入?削除する
【データ编集の技】列をまとめて挿入?削除する
H S
?
【データ编集の技】もっと简単に列や行の移动する方法
【データ编集の技】もっと简単に列や行の移动する方法【データ编集の技】もっと简単に列や行の移动する方法
【データ编集の技】もっと简単に列や行の移动する方法
H S
?
【Word press】記事一覧ページを作成する方法
【Word press】記事一覧ページを作成する方法【Word press】記事一覧ページを作成する方法
【Word press】記事一覧ページを作成する方法
H S
?
【贰虫肠别濒データ编集の技】列を丸ごと他の列の间に移动する
【贰虫肠别濒データ编集の技】列を丸ごと他の列の间に移动する【贰虫肠别濒データ编集の技】列を丸ごと他の列の间に移动する
【贰虫肠别濒データ编集の技】列を丸ごと他の列の间に移动する
H S
?
【贰虫肠别濒データ编集の技】列を丸ごと他の列の间に移动する
【贰虫肠别濒データ编集の技】列を丸ごと他の列の间に移动する【贰虫肠别濒データ编集の技】列を丸ごと他の列の间に移动する
【贰虫肠别濒データ编集の技】列を丸ごと他の列の间に移动する
H S
?
【贰虫肠别濒データ编集の技】表全体から図形を一括选択する
【贰虫肠别濒データ编集の技】表全体から図形を一括选択する【贰虫肠别濒データ编集の技】表全体から図形を一括选択する
【贰虫肠别濒データ编集の技】表全体から図形を一括选択する
H S
?
【贰虫肠别濒データ编集の技】表全体から特定の书式やエラーを探す
【贰虫肠别濒データ编集の技】表全体から特定の书式やエラーを探す【贰虫肠别濒データ编集の技】表全体から特定の书式やエラーを探す
【贰虫肠别濒データ编集の技】表全体から特定の书式やエラーを探す
H S
?
【贰虫肠别濒データ编集の技】离れたセルを同时に选択する
【贰虫肠别濒データ编集の技】离れたセルを同时に选択する【贰虫肠别濒データ编集の技】离れたセルを同时に选択する
【贰虫肠别濒データ编集の技】离れたセルを同时に选択する
H S
?
【贰虫肠别濒データ编集の技】表全体を一瞬で选択する
【贰虫肠别濒データ编集の技】表全体を一瞬で选択する【贰虫肠别濒データ编集の技】表全体を一瞬で选択する
【贰虫肠别濒データ编集の技】表全体を一瞬で选択する
H S
?
【贰虫肠别濒データ入力の技】入力値を选択方式にする
【贰虫肠别濒データ入力の技】入力値を选択方式にする【贰虫肠别濒データ入力の技】入力値を选択方式にする
【贰虫肠别濒データ入力の技】入力値を选択方式にする
H S
?
UQ WiMAXの通信速度を大幅に上げる方法
UQ WiMAXの通信速度を大幅に上げる方法UQ WiMAXの通信速度を大幅に上げる方法
UQ WiMAXの通信速度を大幅に上げる方法
H S
?
【贰虫肠别濒データ入力の技】入力时の补足説明をする
【贰虫肠别濒データ入力の技】入力时の补足説明をする【贰虫肠别濒データ入力の技】入力时の补足説明をする
【贰虫肠别濒データ入力の技】入力时の补足説明をする
H S
?
【贰虫肠别濒データ入力の技】入力规则でエラーメッセージを设定する
【贰虫肠别濒データ入力の技】入力规则でエラーメッセージを设定する【贰虫肠别濒データ入力の技】入力规则でエラーメッセージを设定する
【贰虫肠别濒データ入力の技】入力规则でエラーメッセージを设定する
H S
?
【贰虫肠别濒データ入力の技】半角文字のみ入力可能にする
【贰虫肠别濒データ入力の技】半角文字のみ入力可能にする【贰虫肠别濒データ入力の技】半角文字のみ入力可能にする
【贰虫肠别濒データ入力の技】半角文字のみ入力可能にする
H S
?

贰虫肠别濒で作る骋辞辞驳濒别マップ

  • 1. Copyright ? Century Four All right reserved. 1 エクセルマップ(Google Maps API3.0対応) GoogleMaps API 2.0の廃止に伴い、新バージョンのGoogleMaps API3.0に対応させました エクセルに入力した住所から、GoogleMapsに吹き出しを表示させるシステムです ■開発言語 ?Excel VBA ?JavaScript ■マークアップ言語 ?XHTML 1.0 Strict ?CSS2.0 ■API ?GoogleMaps JavaScript API Ver3.0 ■対応ブラウザ ?Internet Explorer6.7.8.9 ?Firefox ?Google Chrome
  • 2. Copyright ? Century Four All right reserved. 2 吹き出しに表示させたい『文字』と、吹き出しに表示したい『住所』を入力してください。 ●手順1 ?吹き出しに表示させたい『文字』を入力 ?吹き出しに表示させたい『住所』を入力 地図作成方法
  • 3. Copyright ? Century Four All right reserved. 3 「座標取得」が取得されてきます。しばらく時間が掛かります。 「座標取得」が自動的に取得されていきます。 ●手順2 「座標取得」ボタンをクリックすると、 住所から座標を取得します。 地図作成方法
  • 4. Copyright ? Century Four All right reserved. 4 拡大 「ブロックされているコンテンツを許可」をクリック 地図を見る場合は、ココをクリック 地図作成方法
  • 5. Copyright ? Century Four All right reserved. 5 GoogleMapsが起動し、入力した住所に吹き出しに表示されます。 入力した住所に、 「物件名」のテキストをいれた、 吹き出しが表示されるようになります。 「住所」を入力すると、 入力した住所に地図が移動します。 ストリートビューも可能! 地図作成方法
  • 6. Copyright ? Century Four All right reserved. 6 仕様書
  • 7. Copyright ? Century Four All right reserved. 7 Excel VBA Encoding SJIS→UTF-8 GoogleMaps API3.0 JavaScript File Excel Map Geocoding ?latitude ?longitude Encoding SJIS→UTF-8 システム仕様 StyledMarker https://code.google.com/p/google-maps-utility-library-v3/ Google Maps JavaScript API V3 Reference https://developers.google.com/maps/
  • 8. Copyright ? Century Four All right reserved. 8 コード解説(Excel VBA編)
  • 9. Copyright ? Century Four All right reserved. 9 コード解説(Excel VBA編) Excel VBA VBAは、コールバック処理ができない? 恰好悪いけど、Sleepで連打送信を制限 他にも綺麗な書き方ある! 美を追求し過ぎない主義!(言い訳) 500ms 一時停止させる
  • 10. Copyright ? Century Four All right reserved. 10 コード解説(Excel VBA編) やっとこさ、経度と緯度が取得できた XMLファイルを操作するので、 Microsoft XML V6.0 を有効に! 住所を「UTF-8」に変換する Excel VBA
  • 11. Copyright ? Century Four All right reserved. 11 コード解説(Excel VBA編) 文字コードを変換する関数 SJIS-WIN ?UTF-8 汎用性が効く関数です。 Excel VBA オブジェクトの解放を忘れずに
  • 12. Copyright ? Century Four All right reserved. 12 コード解説(Excel VBA編) Excel VBA 「, 」を入れないとIEでは起動できない。。。 件数分ループさせて、 JavaScriptに読み込ませる用のデータを作る
  • 13. Copyright ? Century Four All right reserved. 13 コード解説(Excel VBA編) Excel VBA Internet Explorer を起動させる 相対パス指定
  • 14. Copyright ? Century Four All right reserved. 14 コード解説(Excel VBA編) Excel VBA GoogleMaps API V3.0に対応する吹き出しライブラリ https://code.google.com/p/google-maps-utility-library-v3/ コイツを動かすには、文字コード「UTF-8」にしないといけない かなり嵌まってしまった。。。 Excel VBA で、ファイルの文字コード変換作成ができる! オブジェクトの解放を忘れずに
  • 15. Copyright ? Century Four All right reserved. 15 コード解説(HTML編)
  • 16. Copyright ? Century Four All right reserved. 16 コード解説(HTML編) HTML マップ表示領域 ページ表示時に実行
  • 17. Copyright ? Century Four All right reserved. 17 コード解説(JavaScript 編)
  • 18. Copyright ? Century Four All right reserved. 18 コード解説( JavaScript 編) テキストボックスに表示させる説明表示 Javascriptで対応 UI にも優れるので便利な関数? こんな感じになる! JavaScript
  • 19. Copyright ? Century Four All right reserved. 19 コード解説( JavaScript 編) GoogleMapの初期表示 地図上に吹き出しを生成 VBAで作成したファイルを反映 こんな感じになる! JavaScript