excel - Excel：获取单元格内容以生成 Google 地图网址

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&"