Dim
緯度
As
Single
,
経度
As
Single
,
住所
As
String
緯度
= Range(
"A2"
).Value
'A2セルから緯度を取得
経度
= Range(
"B2"
).Value
'B2セルから経度を取得
住所
= ReverseGeoCoding(緯度, 経度)
'住所へ変換
Range(
"C2"
).Value
= 住所
'住所をC2セルに表示