为excel按升序创建链接

时间:2017-12-03 07:33:07

标签: excel vba excel-formula excel-2010 formula

如何在excel文件中按升序使链接上升。

我正在尝试使用简单的自动功能和公式。

E.g:

https://github.com/jakubroztocil/httpie/issues?page=3&q=is%3Aissue+is%3Aopen
https://github.com/jakubroztocil/httpie/issues?page=4&q=is%3Aissue+is%3Aopen
https://github.com/jakubroztocil/httpie/issues?page=5&q=is%3Aissue+is%3Aopen

Image

我无法找到一种简单的方法来执行此操作,因为自动功能不起作用。我看了很多帖子,但似乎没有一个是我追求的。任何帮助表示赞赏。

1 个答案:

答案 0 :(得分:1)

使用工作表上的公式,您可以通过填写ROW()工作表函数来增加数字,并将其连接到字符串中。要将其转换为活动超链接,请使用HYPERLINK worksheet function作为“包装器”。

=HYPERLINK("https://github.com/jakubroztocil/httpie/issues?page="&ROW(3:3)&"&q=is%3Aissue+is%3Aopen")

在VBA中,可以在循环中完成相同的操作。

Dim h As Long, addr As String

With Worksheets("sheet1")
    'fill A1:A5 with progressive hyperlinked pages
    For h = 3 To 7
        addr = "https://github.com/jakubroztocil/httpie/issues?page=" & h & "&q=is%3Aissue+is%3Aopen"
        .Hyperlinks.Add Anchor:=.Cells(h - 2, "A"), Address:=addr, TextToDisplay:=addr
    Next h
End With