如果子程序运行要退出全部程序（即退出主程序）

xhc陈 · 发表于 2022-12-17 19:18

如果子程序运行要退出全部程序（即退出主程序），该怎么写？
当前代码只能退出子程序，之后继续运行主程序的range
语句，并没有退出主程序。

2900357148 · 发表于 2022-12-17 19:31

如果是我的话，我会把子程序写成函数，通过在主程序中判断子程序为True或者False，控制主程序的中止：
Function 子程序()
a=1
If a = 1 then
子程序 = False
Else
子程序 = True
End If
End Function
Sub 主程序()
If 子程序 = False Then Exit Sub
End Sub

鄂龙蒙 · 发表于 2022-12-17 19:32

加1个公用变量传递即可

在XCVB · 发表于 2022-12-18 13:00

本帖最后由在XCVB 于 2022-12-18 13:02 编辑

直接end 就行；
if a =1 then end

		自动登录	找回密码
密码			免费注册

[求助] 如果子程序运行要退出全部程序（即退出主程序）

评分

评分

评分