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

Excel：获取单元格内容以生成Google地图Url

1 个答案: