退出语句不工作的问题

天地一相

感谢帮助。我有个超级大的循环，我在核心层设置了一个条件，达成后，发提示音，然后直接退出EXCEL进程。我发现，这个语句，在循环能完全结束的VBA里能工作，但我这个放在核心层的，想中途退出EXCEL，就不行。现在的情况是，条件达成时，只发出蜂鸣声，然后退出语句不起作用。看CPU，貌似进程还在工作的样子。代码如下，请指教

1. ThisWorkbook.Save
   
2. If Month(tm) = Cells(2, 2).Value And Day(tm) = Cells(2, 4).Value And Hour(tm) >= Cells(2, 6).Value Then
   
3.    Beep
   
4.     Application.Quit
   
5.   End If

复制代码

limonet

else
Application.Quit

天地一相

limonet 发表于 2024-5-30 22:57
else
Application.Quit

谢谢，这么晚还没休息呀。可否解释下为什么这样修改？我还想，实在不行，就使用GO语句跳转到末尾处再执行退出的操作。

limonet

天地一相 发表于 2024-5-30 23:06
谢谢，这么晚还没休息呀。可否解释下为什么这样修改？我还想，实在不行，就使用GO语句跳转到末尾处再执行 ...

否则，就退出。
也不知道，有没有作用，因为没看到全貌。

天地一相

limonet 发表于 2024-5-31 07:11
否则，就退出。
也不知道，有没有作用，因为没看到全貌。

哦，不能是这个意思。我这个退出语句，我用在其它VBA的结尾处，都是工作的。唯独我放在大循环的核心层，想让条件达成时不继续计算直接退出进程，发现不工作。蜂鸣声过后，表格依然在，貌似依然在计算。先不琢磨了，我暂时修改成退出宏了。

liulang0808

楼主的代码是局部的只能猜一下，
看看当时是否仅有一个工作簿打开的？或者存在公式影响保存之类的
或者设置Application.DisplayAlerts=false看看是否可行

ykcbf1100

楼主的意思应该是代码执行过程时中途退出。把Application.Quit这句更换成exit sub试试。
GPT回复：在 VBA 代码中使用 `Exit Sub` 或 `Exit Function` 来中途退出一个过程。这两个语句可以立即终止当前的子程序或函数的执行。您可以根据需要在代码中添加条件来触发这些语句，以实现在特定条件下中途退出的效果。

剑指E

Application.Quit
exit do '或exit sub
End If

天地一相

ykcbf1100 发表于 2024-5-31 08:30
楼主的意思应该是代码执行过程时中途退出。把Application.Quit这句更换成exit sub试试。
GPT回复：在 VBA  ...

谢谢，退出程序进程的语句我经常使用，就是为了省略那关闭文件的一次点击。这次放在循环的核心层发现不灵光了。其实我还可以使用另一种方法，即条件达成时，使用跳转语句直接跳出循环到末尾，再执行退出文件进程的语句也可以。但我接受了一种观念，即不要使用GOTO这样糟糕的写法。但我的能力不使用这样的写法就没法跳到末尾去。现在采用的做法就是你提议的，退出SUB好了。只是多了一次点击关闭文件的操作。

ykcbf1100

天地一相 发表于 2024-5-31 10:30
谢谢，退出程序进程的语句我经常使用，就是为了省略那关闭文件的一次点击。这次放在循环的核心层发现不灵 ...

不要要求那么高，不就多点一次嘛