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