vba - 呼叫子和号码

Question

下午所有，

例如，我有一个潜艇列表（实际上我总共有 5 个），

Sub Office1()
Does a thing
End Sub
Sub Office2()
Does a slightly different thing
End Sub

我还有一个计算结果是 lvl = 1 到 5 之间的数字

lvl = 1 '(or 2,3,4,5)

因此，当我想调用 Office1-5 时，它将取决于 lvl，所以我要做的是：

Call "Office" & lvl

我努力寻找这个问题，因为我不知道如何表达这个问题。

希望你能帮忙，

干杯，

账单

标签： vbasubroutine

Answer 1

考虑：

Sub office1()
    MsgBox 1
End Sub

Sub office2()
    MsgBox 2
End Sub

Sub office3()
    MsgBox 3
End Sub

Sub main()
    For lvl = 1 To 3
        Application.Run "office" & lvl
    Next lvl
End Sub