呼叫分机和号码

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 时，它将取决于等级，所以我要做的是：

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

呼叫分机和号码

Calling a Sub & Number

vba

subroutine