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

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