如何给这个程序增加一个停止？

xjl565135022

1. Sub stop()
   
2. Application.OnTime Now + TimeValue("00:00:01"), "test2"
   
3. Application.OnTime Now + TimeValue("00:00:01"), "test2", , False
   
4. End Sub

复制代码

停止可以用这个

wwdfefgg

xjl565135022 发表于 2024-12-11 17:15
停止可以用这个

提示出错

xjl565135022

wwdfefgg 发表于 2024-12-12 16:22
提示出错

换个名字就行了，如：stop_test2  

wwdfefgg

xjl565135022 发表于 2024-12-12 16:43
换个名字就行了，如：stop_test2

不好用啊，，加上后，原程序都运行不了了

wwdfefgg

WWWW.rar (19.53 KB, 下载次数: 4)

2024-12-13 07:59 上传

点击文件名下载附件

麻烦给这个程序加上停止按钮

ynzsvt

两个按钮，加了冻结方便点按钮。