excel - for/next VBA を使用して sub を呼び出す方法

Question

次のコードを使用して、いくつかのサブルーチンを呼び出そうとしています:

For i = 1 To 20
    Call staff i
    i = i + 1
Next i

Sub staff1()これは、などを呼び出すと仮定しますがSub staff2()、Sub staff3()ここで何かが欠けています...

誰かが私が何をすべきか知っていますか?

Answer 1

使用する

Run "staff" & i

電話するのではなく

もちろん、1 つのルーチンを使用して i をパラメーターとして渡すことも可能であり、より良い方法です。

Answer 2

使用できますApplication.Run

Option Explicit

Sub Main()
    Dim ProcName As String

    For i = 1 To 3
        ProcName = "Staff" & i
        Application.Run ProcName
    Next i
End Sub

Sub Staff1()
    MsgBox "A"
End Sub

Sub Staff2()
    MsgBox "B"
End Sub

Sub Staff3()
    MsgBox "C"
End Sub