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

For ... Next ループを If ... Then ステートメントの外側で 1 ずつインクリメントしていることに気付きました。これにより、i の他のすべての値をスキップすることが保証されます。