的Excel：獲取內容生成谷歌地圖網址細胞

Question

我按照這個教程：

http://m.youtube.com/watch?v=Xnp2B0JBD_Y&desktop_uri=%2Fwatch%3Fv%3DXnp2B0JBD_Y

，現在我已經在我的Excel樣式表一個谷歌地圖這樣的公式：

= 「http://maps.google.com/maps?saddr=」 & B1 & 「& ADDR =」 & B2 & 「& DADDR =」 B3 「」

B1包含馬德里 B2包含巴塞羅那 B3包含塞維利亞

它繪製好地圖上的標記。

現在我想用鼠標（B1，B8，B14，B17 ...或從B1到B25）選擇單元格並生成公式。那可能嗎？

Answer 1

您可以使用輸入提示，然後連接響應。下面是如何從用戶那裏得到一個範圍：

On Error Resume Next 
    Application.DisplayAlerts = False 
     Set rRange = Application.InputBox(Prompt:= _ 
      "Please select cells with your mouse.", _ 
       Title:="SPECIFY RANGE", Type:=8) 
On Error GoTo 0 
    Application.DisplayAlerts = True 

    If rRange Is Nothing Then 
     Exit Sub 
    End If 

URL = "http://maps.google.com/maps?s" 

For Each cell In rRange 
    URL = URL & "addr=""&" & cell.Address & "&""&" 
Next 

URL = Left(URL, Len(URL) - 1) 

Range("C1").FormulaLocal = URL 

輸出在C1看起來是這樣的：

http://maps.google.com/maps?saddr="&$B$1&"&addr="&$B$2&"&addr="&$B$3&"