ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E问E答 > Excel VBA > 控制代码程序的开始及停止

控制代码程序的开始及停止

作者:绿色风 分类: 时间:2022-08-17 浏览:103
楼主
yjzstar
Q:如何随时控制代码的执行及停止?

A:控制代码运行于否的一种方法是对公共变量的控制,即把控制代码执行于否转化为对公共变量的控制。一般采用BOOLEAN类型的变量,也可以根据实际情况的需要改变变量的类型,已完成更加复杂的运算及控制!
  1. Dim x As Boolean
  2. Dim i As Integer
  3. Sub 开始运行()
  4.     x = True
  5.     Call 变色
  6. End Sub
  7. Sub 停止运行()
  8.     x = False
  9. End Sub
  10. Sub 变色()
  11.     If x = False Then Exit Sub
  12.     With [A1]
  13.         .Interior.ColorIndex = 1 + (i Mod 18)
  14.         .Font.ColorIndex = 7 + (i Mod 18)
  15.     End With
  16.     i = i + 1
  17.     Application.OnTime Now + TimeValue("0:00:01"), "变色"
  18. End Sub

 

新建 Microsoft Office Excel 工作表.rar
2楼
xyf2210
进来学学
3楼
CheryBTL
这个很有意思,进来学习~~~
4楼
魔高一丈nof
非常感谢啊!
5楼
lslly
非常有趣     学习
6楼
老糊涂
学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap