1

使用 Excel 2010，在每一行中，我想在 G 列中创建一个超链接。

此列已经包含应用作超链接的显示文本（或友好名称）的信息。

为了使超链接指向正确的位置，它需要列 M 包含的数字。匹配信息总是在同一行。

所以基本上，这可能只是特定行的两个单元格中的两位信息的合并。

这是我开始的：

    Sub Macro2()
'
' Macro2 Macro
'
Dim Name As String
Dim Branch As String

' Combination of two rows
Dim CombineRow As Range

Dim cell As Range
Dim row As Range
Dim Branch_ID As Range

Set Branch_ID = Worksheets("Default").Range("M2")

Set CombineRow = Range("G2:M2")

For Each row In CombineRow.Rows
     For Each cell In row.Cells
        Branch = Branch_ID.Cells.Value
        Name = Name_ID.Cells.Value
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
            "https://www.example.com/", SubAddress:= _
            "something:", _
            TextToDisplay:=Name
        Next cell
        ' relative one row down
        Set Branch_ID = Branch_ID.Offset(1, 0)
        Set Name_ID = Branch_ID.Offset(1, 0)
    Next row
End Sub

我不知道如何将 M 列的值（例如600021610）附加到超链接的末尾？

我在正确的道路上吗？

编辑：

我现在拥有的是这样的： 

Sub Macro2()
'
' Macro2 Macro
'
Dim Branch As String
Dim Name As String

' combine two rows
Dim CombineRow As Range

Dim cell As Range
Dim row As Range
Dim Branch_ID As Range
Dim Name_ID As Range

Set Branch_ID = Worksheets("Default").Range("M2")
Set Name_ID = Worksheets("Default").Range("G2")

Set CombineRow = Range("G2:M2")

For Each row In CombineRow.Rows
    For Each cell In row.Cells
        Branch = Branch_ID.Cells.Value
        Name = Name_ID.Cells.Value
        ActiveSheet.Hyperlinks.Add Anchor:=Name_ID, Address:= _
            "https://www.example.com/", SubAddress:= _
            "something" & Branch, _
            TextToDisplay:=Name
        Next cell
        Set Branch_ID = Branch_ID.Offset(1, 0)
        Set Name_ID = Name_ID.Offset(1, 0)
    Next row
End Sub

这有效，但仅适用于第一行。为什么它不做循环？像这样真的正确吗CombineRow，还是必须是这样：G:G;M:M或类似的东西？

我也可以想象使用Do ... While循环，因为放入 anend_tag不会有问题。

4

3 回答 3

2

尝试将参数设置为超链接。添加使用变量。

dim addressStr as string
dim targetRng as Range

For Each row In CombineRow.Rows
     For Each cell In row.Cells
        Branch = Branch_ID.Cells.Value
        Name = Name_ID.Cells.Value

        set targetRng = range("A1")   'change this to whatever you want it to be each loop
        addressStr = "https://www.example.com/" & cells(cell.row,15).value

        ActiveSheet.Hyperlinks.Add Anchor:=targetRng , Address:= _
            addressStr, SubAddress:= _
            "something:", _
            TextToDisplay:=Name
        Next cell
        ' relative one row down
        Set Branch_ID = Branch_ID.Offset(1, 0)
        Set Name_ID = Branch_ID.Offset(1, 0)
    Next row<BR>
End Sub<BR>

此外，您在偏移量中将 Name_ID 和 Branch_ID 设置为相同的值。

在您的循环中，您只会遍历 1 行（因为您的范围都在第 2 行内）。所以你唯一的循环是单元格 - 你永远不会设置不同的分支/名称 ID，因为它们发生在你的循环之后：

For Each cell In row.Cells
    'stuff
Next cell

Set Branch_ID = Branch_ID.Offset(1, 0)
Set Name_ID = Name_ID.Offset(1, 0)

因此，每次调用超链接函数时，您都使用相同的 Name_ID 范围。您可能还想制作这些 Offset(0,1) 因为 Offset 是 Offset(row,column) 并且您似乎正在迭代水平范围。

于 2012-08-15T13:03:28.573 回答
1

您可以简单地使用&运算符来连接字符串并创建 URL。

addressStr = "https://www.example.com/" & <<Specify Cell for M Column and Row>>
于 2012-08-15T13:04:35.623 回答
0

有用！
感谢大家的帮助。
解决方案是不要放置 (G2:M2)，因为这只会创建七个超链接。
相反，只需将 (G:M) 和 IF 放在它周围，以防止它在单元格已经为空时创建无意义的超链接。

    Sub Macro2()
'
' Macro2 Macro
'
Dim Branch As String
Dim Name As String

' combine two rows
Dim CombineRow As Range

Dim cell As Range
Dim row As Range
Dim Branch_ID As Range
Dim Name_ID As Range

Set Branch_ID = Worksheets("Default").Range("M2")
Set Name_ID = Worksheets("Default").Range("G2")

Set CombineRow = Range("G:M")

For Each row In CombineRow.Rows
For Each cell In row.Cells

    Branch = Branch_ID.Cells.Value
    Name = Name_ID.Cells.Value

    If Name <> "" Then

        ActiveSheet.Hyperlinks.Add Anchor:=Name_ID, Address:= _
            "https://www.example.com", SubAddress:= _
            "something" & Branch, _
            TextToDisplay:=Name

    Set Branch_ID = Branch_ID.Offset(1, 0)
    Set Name_ID = Name_ID.Offset(1, 0)

    End If

    Next cell

    Next row

End Sub

我很确定还有很大的改进空间，尤其是在 IF 构造方面。
但到目前为止，它有效。这并不意味着任何人都应该保留他们对改进这一点的评论；）。这些基本上是我在 VBA 中的第一步！:)

于 2012-08-16T13:20:02.690 回答