質問編集履歴
1
mts10806様、ご指摘ありがとうございます。タイトルの変更およびソースコードの表記修正いたしました。
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
|
|
1
|
+
VBAにて２つの住所から直線距離を計算したい
|
test
CHANGED
|
@@ -17,6 +17,8 @@
|
|
|
17
17
|
### 該当のソースコード
|
|
18
18
|
|
|
19
19
|
|
|
20
|
+
|
|
21
|
+
```
|
|
20
22
|
|
|
21
23
|
Function DGMAP(origin As String, destination As String, distance As Boolean) As String
|
|
22
24
|
|
|
@@ -40,7 +42,7 @@
|
|
|
40
42
|
|
|
41
43
|
With objXMLHTTP
|
|
42
44
|
|
|
43
|
-
|
|
45
|
+
.Open "GET", sXMLURL, False
|
|
44
46
|
|
|
45
47
|
.setRequestHeader "Content-Type", "application/x-www-form-URLEncoded"
|
|
46
48
|
|
|
@@ -104,6 +106,8 @@
|
|
|
104
106
|
|
|
105
107
|
End Function
|
|
106
108
|
|
|
109
|
+
```
|
|
110
|
+
|
|
107
111
|
|
|
108
112
|
|
|
109
113
|
|