Select Case相关的，这个求助题目我都不知道该怎么表达了

laterite

以前没有接触过类似问题，打开UserForm1窗体会弹窗提示，点击否将继续执行UserForm1窗体剩余的代码，点击是则打开UserForm2窗体。

我想实现的效果是，当关闭UserForm2窗体返还UserForm1窗体后，如何继续执行UserForm1中vbNo的代码？

先道一声谢谢！





Private Sub CommandButton1_Click()
    Dim msg As String
    Dim ireply As Integer
    msg = "是否打开UserForm2窗体？" & Chr(10) & Chr(10) & "点击是打开UserForm2窗体，点击否留在UserForm1窗体执行后续代码！"
    ireply = MsgBox(msg, vbInformation + vbYesNo, "测试窗体")
        Select Case ireply
        Case vbYes
            UserForm2.Show        '打开UserForm2.Show
        Case vbNo
            '后续代码
            MsgBox "后续代码就是一个弹窗提示！"
        End Select
End Sub

WANT-T

“当关闭UserForm2窗体返还UserForm1窗体后，如何继续执行UserForm1中vbNo；”
你这不是写的很清楚吗？userform2关闭后调用那个代码就是了？

laterite

WANT-T 发表于 2023-3-6 11:15
“当关闭UserForm2窗体返还UserForm1窗体后，如何继续执行UserForm1中vbNo；”
你这不是写的很清楚吗？use ...

目前的情况是，点击UserForm2窗体上的关闭按钮后，只是回到UserForm1窗体界面，但不会再执行vbNo里面的代码，本例中就是那个弹窗MsgBox "后续代码就是一个弹窗提示！"

半百

可以吗？？

WANT-T

laterite 发表于 2023-3-6 11:37
目前的情况是，点击UserForm2窗体上的关闭按钮后，只是回到UserForm1窗体界面，但不会再执行vbNo里面的代 ...

你原来的这个代码是通过按钮点击调用的，你不是要改成窗体关闭后调用嘛，改就是了！

laterite

半百 发表于 2023-3-6 11:42
可以吗？？

有效的代码，谢谢

laterite

WANT-T 发表于 2023-3-6 11:52
你原来的这个代码是通过按钮点击调用的，你不是要改成窗体关闭后调用嘛，改就是了！

这个方案也可以考虑

jz_l

taller

尽量避免使用Goto，不符合结构化编程思路

后续代码可以放到Userform2的关闭事件中，也可以直接放在Case vbYes部分中，两个Case分支可以使用相同的代码

laterite

taller 发表于 2023-3-7 02:27
尽量避免使用Goto，不符合结构化编程思路

后续代码可以放到Userform2的关闭事件中，也可以直接放在Case  ...

谢谢版主的建议