点击用户窗体命令按钮后继续运行VBA宏的实现问题

嘿，我仔细看了你的代码，目前的问题主要出在变量作用域和窗体关闭逻辑上，导致点击OK按钮后没法回到主宏继续执行循环。下面给你一步步解决的方案：

1. 调整变量的作用域，让主宏能拿到选择的值 #

首先，你需要让Num_of_Batches变量能被主宏和用户窗体同时访问。有两种简单的实现方式：

方式一：在主模块声明模块级变量

打开存放BatchDefiner的模块，在所有Sub/Function的外面添加变量声明：

' 放在模块最顶部，所有Sub之前
Dim Num_of_Batches As Integer

方式二：在用户窗体声明公共变量

打开UserForm1的代码模块，在顶部添加：

' 放在窗体模块最顶部
Public Num_of_Batches As Integer

这种方式下，主宏里需要用UserForm1.Num_of_Batches来获取选择的值。

2. 修改OK按钮的代码，关闭窗体而非终止程序 #

你原来的代码里用了End语句，这会直接终止所有VBA进程，自然没法回到循环里。改成Unload Me来关闭窗体，让程序回到主宏暂停的位置继续执行：

Private Sub CommandButton1_Click()
    If OptionButton1 = True Then
        Num_of_Batches = 1
    ElseIf OptionButton2 = True Then
        Num_of_Batches = 2
    ElseIf OptionButton3 = True Then
        Num_of_Batches = 3
    ElseIf OptionButton4 = True Then
        Num_of_Batches = 4
    ElseIf OptionButton5 = True Then
        Num_of_Batches = 5
    Else
        ' 如果用户没选任何选项，提示并返回
        MsgBox "请选择一个批次数量！", vbExclamation
        Exit Sub ' 不关闭窗体，让用户重新选择
    End If
    Unload Me ' 关闭窗体，回到主宏继续执行
End Sub

3. 主宏里使用选择的变量值 #

当用户点击OK关闭窗体后，主宏会从UserForm1.Show的位置继续执行，这时你就可以直接使用Num_of_Batches变量做后续处理了。比如修改你的主宏片段：

If 11 < Cells(s, 19) < 19 Then
    UserForm1.Show
    ' 这里添加你需要的逻辑，比如根据批次数量处理数据
    Debug.Print "当前行选择的批次数量：" & Num_of_Batches
    ' 示例：如果选择多个批次，复制对应行数
    For i = 1 To Num_of_Batches
        Union(Range(Cells(s, 2), Cells(s, 8)), Cells(s, 13)).Copy
        Cells(n, 2).PasteSpecial Paste:=xlPasteValues
        n = n + 1
    Next i
End If

额外注意点 #

• 尽量避免使用End语句，除非你确实要终止所有VBA程序；
• 如果用方式二的公共变量，记得在主宏使用前可以先初始化一下，避免上一次的值残留；
• 可以给选项按钮加默认选中状态，比如在UserForm的Initialize事件里设置OptionButton1.Value = True，防止用户没选任何选项。

备注：内容来源于stack exchange，提问作者Taher Alaa