Question

在使用excel中的vba将宏分配给超链接时遇到问题。我可以使用下面的代码使用它，当我在单元格B2：B5中有四个超链接链接到它们自己的单元格。

Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
For i = 1 To 5
    If Target.Range.Address = "$B$" & 1 + i Then
    MsgBox "test" & i & " works!"
    End If
Next
End Sub

当我想在另一列中添加更多超链接时，问题就出现了，这些超链接也分配给同一工作表中的宏。有人知道怎么做吗？

先谢谢你，JW。

Answer 1

这个怎么样？

Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Select Case Target.Range.Column

    Case Is = 2, 3, 4 'change to whichever columns you need to reference

        For i = 1 To 5

            If Target.Range.Address = Cells(i + 1, Target.Range.Column).Address Then

                MsgBox "test " & i & " works!"

            End If

        Next

End Select


End Sub

如何将宏分配给VBA excel中的多组超链接

1 个答案: