呼叫子和号码[重复]

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

因为不知道如何表达这个问题，所以我很难找到这个问题。

希望你能帮忙，

干杯，

比尔

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