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

【问题标题】：How to assign macros to multiple sets of hyperlinks in VBA excel如何将宏分配给VBA excel中的多组超链接
【发布时间】：2012-08-07 16:10:10
【问题描述】：

在 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。

【问题讨论】：

我不确定我是否理解。如果它们在不同的列中，那么代码如何输入 IF/EndIf？

标签： excel hyperlink vba

【解决方案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

【讨论】：