excel - Excel - 试图让跟随超链接调用动态 Outlook 对象

Question

这是我在工作表模块中分配的代码

Public Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim sendName As String

    For i = 1 To 60
        If Target.Name = "NOTIFY" Then
            sendName = i & "test"
            Call TestMail(sendName, "ERRORreport", "sendFile")
        Else
            Exit Sub
        End If
        i = i + 1
    Next
End Sub

问题是我需要每个单元格实例NOTIFY来调用一个唯一的TestMail子例程。

Answer 1

我注意到您在 If ... Then 语句之外将 For ... Next 循环增加了 1。这将保证您跳过 i 的所有其他值。