一个逐字显示的小程序

作者：绿色风分类：时间：2022-08-18 浏览：108

楼主 kevinchengcw	一个利用ontime功能的小程序，如果用api可以实现更短的时间精度，娱乐一下，代码如下： Const WholeStr = "这是一个测试，可以自己修改噢！" '定义个字符串常量 Dim N As Integer '定义用于储存截取字段字符数的公共变量 Dim isStop As Boolean '定义用于判断是否点了停止按钮的公共变量 Sub test() Dim Str As String If IsEmpty(N) Then '进行初始化 isStop = False [a1] = "" N = 1 End If [a1] = Mid(WholeStr, 1, N) '改变A1单元格的值 N = N + 1 '字段数加1 If isStop = True Then End '如果点了停止按钮则结束程序运行 If N > Len(WholeStr) Then N = 1 '如果字段数超过了字符串常量的长度则返回为1 Application.OnTime Time + TimeValue("00:00:01"), "test" '每一秒调用一次自身 End Sub Sub stoprun() isStop = True '当点下停止按钮后将公共逻辑变量的值置为真 End Sub 点开始键开始，点停止键结束，有兴趣的可以研究一下暂停。附示例文件。逐字显示的小程序.rar
2楼 rongjun	学习了
3楼 qicpw	谢谢楼主啦~~~~

免责声明

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

评论列表