2016-02-19 56 views
0

所以我有一個Excel的spead表看起來是這樣的:從所選行中獲取列的值(s)?

ZIP ---------- ----------緯度經度

的ZIP列是空的。我希望能夠在點擊該行時獲得緯度和經度列的值。緯度/長度已填入數值。

我需要這個的原因是因爲一旦獲得這些值,我將使用它來從Google Map的API http://maps.googleapis.com/maps/api/geocode/json?latlng=29.6412902,-95.0297534&sensor=false中獲取數據並填入ZIP列郵編來自Google地圖數據。

當該行被選中時,我將如何獲取列B和C的值,即經度和緯度?

+0

'緯度/龍已經有了values'再後來你問'...去獲得...的經度和緯度的價值什麼? – findwindow

回答

0

不妨在模塊範圍內構建某種靜態數據結構,以便其他子可以從明確定義的源中獲取緯度/經度。

Type GeoCoord 
Dim Lat as Double 
Dim Lon As Double 
Dim Zip as Long 
End Type 

'count how many rows you have... 
Dim rowcount as Long 
rowcount = 'get creative here 

Dim Coords() As GeoCoord 
ReDim Coords(1 to rowcount) 

For i=1 to rowcount 
    With Coords(i) 
     .Lat = cells()....' I'm sure you can figure this part out 
     .Lon = cells()....' same here 
    End With 
Next 

「然後做你的URL的東西在這裏,如果你想...

像...

Coords(i).Zip = 'value from google maps API 
0
Dim rw as Range, Lat, Lngt 

For Each rw in selection.rows 
    Lat = rw.entirerow.cells(2).value 
    Lngt = rw.entirerow.cells(3).value 
    rw.entirerow.cells(4).value = GetZip(Lat, Lngt) 
Next rw