Label（GoTo）在VBA中调用正确的方法吗？

Question

我有一个很大的代码模块，编码就像这样完成..

Public sub main ()
.
.
.
proc1:
.
..Some thing
.
.
.
Proc2:
.
..Some thing
.
.
So on till proc15:

.
.
End sub

我使用GOTO命令开始执行来自＆＃34; proc＆＃34;之一的代码。在需要的时候。

我希望能够启动（Main）代码并从任何过程开始 无需进入代码模块..（用户不知道把GOTO放在哪里）。

由于整个例程密切相关，我不能使用Sub例程来拆分并单独调用它们。

（这就是使用proc标签的原因）。

---

假设我在用户表单中有一个组合框，其中列出了所有的proc，当用户选择一个proc并运行主代码时。

守则应该来自该程序

这可能吗？

Answer 1

给定具有ComboBox1和CommandButton1的用户窗体：

Private Sub CommandButton1_Click()
    Select Case ComboBox1.Value
        Case "proc1" 'Or whatever that method is called
            'Do proc1 code here
        Case "proc2"
            'Do proc2 code here
        ...
        Case "procX"
            'Do procX code here
        Case Else
            MsgBox "You did not select a valid Proc"
    End Select
End Sub