質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.52%

  • VBA

    1797questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1534questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

  • Google API

    526questions

    Googleは多種多様なAPIを提供していて、その多くはウェブ開発者向けのAPIです。それらのAPIは消費者に人気なGoogleのサービス(Google Maps, Google Earth, AdSense, Adwords, Google Apps,YouTube等)に基づいています。

VBAにて2つの住所から直線距離を計算したい

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 313

 前提・実現したいこと

VBAでユーザー定義コマンドを作成し、ワークシートに2地点間の住所から直線距離をGoogleApiから取得したいと考えております。
直線距離を求めるサンプルは見つけられなかったものの、走行距離を求めるサンプルを見つけることができました。
どうにかしてこのコードを参考に直線距離を求めようと思いましたが、VBA初心者である私にコードを書き換える能力などなく途方に暮れております。
VBAについて知識豊富の方、わたくしの説明をご理解していただける方いらっしゃいませんでしょうか?
よろしくお願いいたします。

 該当のソースコード

Function DGMAP(origin As String, destination As String, distance As Boolean) As String
    'http://stackoverflow.com/questions/10116301/google-maps-api-for-time-and-distance-data-access-vba

    Dim sXMLURL As String
    sXMLURL = "http://maps.googleapis.com/maps/api/directions/xml?origin=" _
                        & origin & "&destination=" & destination & "&sensor=false"

    Dim objXMLHTTP As MSXML2.ServerXMLHTTP60
    Set objXMLHTTP = New MSXML2.ServerXMLHTTP60

    With objXMLHTTP
  .Open "GET", sXMLURL, False
        .setRequestHeader "Content-Type", "application/x-www-form-URLEncoded"
        .Send
    End With

    'Debug.Print objXMLHTTP.ResponseText

    Dim domResponse As DOMDocument60
    Set domResponse = New DOMDocument60
    domResponse.LoadXML objXMLHTTP.ResponseText
    Dim ixnStatus
    Set ixnStatus = domResponse.SelectSingleNode("//status")

    If ixnStatus.Text = "OK" Then
        Dim ixnDistance, ixnDuration
        Set ixnDistance = domResponse.SelectSingleNode("/DirectionsResponse/route/leg/distance/text")
        Set ixnDuration = domResponse.SelectSingleNode("/DirectionsResponse/route/leg/duration/text")
    End If
    If IsEmpty(ixnDistance) Then
        DGMAP = "Empty"
        Exit Function
    End If

  '距離(True) または時間(False)
    If distance = True Then
        DGMAP = Left(ixnDistance.Text, InStr(1, ixnDistance.Text, " ") - 1)
    Else
        DGMAP = ixnDuration.Text
    End If
    Set domResponse = Nothing
    Set objXMLHTTP = Nothing
End Function

 補足情報(FW/ツールのバージョンなど)

[サンプルページ]
https://www.excel-pitin.net/single-post/2018/01/19/Google-Maps-API-%E3%82%92%E4%BD%BF%E3%81%A3%E3%81%A62%E7%82%B9%E9%96%93%E3%81%AE%E8%B7%9D%E9%9B%A2%E3%82%92%E6%B1%82%E3%82%81%E3%82%8B%E3%83%A6%E3%83%BC%E3%82%B6%E3%83%BC%E5%AE%9A%E7%BE%A9%E9%96%A2%E6%95%B0%E3%82%92%E4%BD%9C%E3%82%8B

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • mts10806

    2018/07/28 05:40

    エクセルのVBAの質問であることはタグで分かりますので改めてタイトルに入れる必要はありません。タイトルには要件を書いてください。 https://teratail.com/help/question-tips#questionTips3-1

    キャンセル

  • mts10806

    2018/07/28 05:40

    プログラムコード(およびエラーメッセージ)は質問内容としては最も重要な部分であるため、見やすくしていただけると助かります。<code>ボタン押下→「コード」部分にコードを貼り付け→「ここに言語を入力」に対象言語名記入(エラーメッセージの場合は不要)の手順で「コードハイライト化」してください。(質問編集画面ではリアルタイムでプレビューが表示されるので見ながら調整してください)

    キャンセル

  • hanamaruyuiyui

    2018/07/30 14:42

    mts10806様 大変失礼いたしました。タイトルおよびプログラムコードを修正いたしました。ご指摘ありがとうございます。

    キャンセル

回答 1

checkベストアンサー

0

2点の座標から距離を求める有名な計算式として、「ヒュベニの公式」があります。

「VBA ヒュベニの公式」で検索すると ぴったりのような回答もありましたが...出てきた順番に上げておきます。Google の仕様変更などで多少手直しがひつようか

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/07/31 16:56

    CHERRY様
    回答ありがとうございます。
    ヒュベニの公式から模索してみようと思います。
    参考ページもご記載いただきありがとうございました。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.52%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

  • 受付中

    VBA cpu使用率取得

    プログラミング初心者のものです。管理者の制約で、学校でタスクマネージャを開くことができません。そこでエクセルvbaでタスクマネージャを再現しようと思い、日々精進しております。学校に

  • 受付中

    テキストデータをVBAで週ごとに分けたい

    2015/12/01,* cbdl,345 2015/12/02,Ubcmf Gspn DTW,2 2015/12/03,* gspou,375 ・ ・ ・ こんなテキ

  • 受付中

    VBAのexec()について

    外部batファイルをexec()で実行しました。 ですがその際、StdOutには4096バイトしか出力出来ないそうで、結果が途中までしか出力出来ません。 batファイルを複数に分け

  • 解決済

    VBA高速化について

    20個のエクセルファイルを読み込み、特定のシートにあるテーブルから特定の値を探し出し、その右横にあるセルの値を取り出します。 集計用のエクセルのテーブルでも、同じ特定の値をテーブル

  • 解決済

    powerpointでタイトル(文字列+連続変数)をVBAで一括変換

    パワーポイントで、タイトルの位置に テキスト+数字 の形でFor文を使って作りたいです。 例)こんにちは1(スライド1枚目) こんにちは2(スライド2枚目) ...といった形です。

  • 解決済

    textファイルを文字列でエクセルに貼り付けたい

    エクセルのマクロで下記のようなコードを書いて動かしているのですが、文字列でシート1に貼り付けされません。 読み込むtextファイルは、タブ形式で区切られており、その区切りごとに各列

  • 解決済

    VBAでオブジェクト型の変数をモジュールレベルでコンストラクタするには?

    失礼いたします 帳簿処理用のユーザーフォームいくつかを作っています。 それぞれのフォームの構造が似ているので、イベント時の動作が変わらないコントロールに関してはコントロール名を

  • 解決済

    コンボボックスのリストの動的配列

     前提・実現したいこと ユーザーフォームのコンボボックスのリスト用の一覧があります。 A列が市町村、B列がそのグループです。 シート名は「一覧」です。 グループは、市町村がそのまま

同じタグがついた質問を見る

  • VBA

    1797questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1534questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

  • Google API

    526questions

    Googleは多種多様なAPIを提供していて、その多くはウェブ開発者向けのAPIです。それらのAPIは消費者に人気なGoogleのサービス(Google Maps, Google Earth, AdSense, Adwords, Google Apps,YouTube等)に基づいています。