如何根据变量lvl动态调用对应名称的VBA Sub过程？

Hey Bill, 我完全懂你想实现的需求——根据变量lvl（1-5的整数）来自动调用Office1到Office5对应的Sub过程，直接用Call "Office" & lvl这种字符串拼接的方式确实在VBA里行不通，不过有两种简单有效的办法可以解决：

方法1：使用Select Case分支判断 #

如果你的Sub数量固定（就5个），这种方法最直观也最容易维护，代码可读性很高：

Sub CallOfficeByLvl()
    Dim lvl As Integer
    lvl = 3 ' 这里替换成你的计算逻辑得到的lvl值
    
    Select Case lvl
        Case 1
            Call Office1
        Case 2
            Call Office2
        Case 3
            Call Office3
        Case 4
            Call Office4
        Case 5
            Call Office5
        Case Else
            MsgBox "Invalid lvl value!" ' 处理超出范围的情况
    End Select
End Sub

' 你的原有Sub示例
Sub Office1()
    ' 执行某操作
    MsgBox "Running Office1"
End Sub

Sub Office2()
    ' 执行稍有不同的操作
    MsgBox "Running Office2"
End Sub

' 补充Office3-Office5的定义
Sub Office3()
    MsgBox "Running Office3"
End Sub

Sub Office4()
    MsgBox "Running Office4"
End Sub

Sub Office5()
    MsgBox "Running Office5"
End Sub

方法2：使用Application.Run实现动态调用 #

如果后续可能增加更多的Sub，或者你更倾向于动态拼接过程名的方式，Application.Run可以直接接收字符串形式的过程名来执行：

Sub CallOfficeDynamically()
    Dim lvl As Integer
    lvl = 2 ' 替换为你的实际lvl值
    Dim procName As String
    
    procName = "Office" & lvl
    ' 先检查过程是否存在，避免报错
    On Error Resume Next
    Application.Run procName
    If Err.Number <> 0 Then
        MsgBox "Procedure " & procName & " does not exist!"
    End If
    On Error GoTo 0
End Sub

这种方法的好处是不用每次新增Sub都修改分支判断，但要注意确保procName对应的Sub确实存在，最好加上错误处理避免运行时出错。

这两种方法都能完美实现你想要的效果，根据你的实际场景选就行～

内容的提问来源于stack exchange，提问作者William Jarvis