ontime不运行是什么原因？

聂荻昌

想做一个倒计时的小程序，但是规则在ontime地方不运行，

1. Dim n1 As Date, n2 As Date, bo As Boolean
   
2. Private Sub textmin_change()
   
3. stext = textmin.Text
   
4. For i = 1 To Len(stext)
   
5. Select Case Mid(stext, i, 1)
   
6. Case "0" To "9"
   
7. Case Else
   
8. stext = Replace(stext, Mid(stext, i, 1), "")
   
9. End Select
   
10. Next
    
11. textmin.Text = stext
    
12. End Sub
    
13. Private Sub texts_change()
    
14. stext = texts.Text
    
15. For i = 1 To Len(stext)
    
16. Select Case Mid(stext, i, 1)
    
17. Case "0" To "9"
    
18. Case Else
    
19. stext = Replace(stext, Mid(stext, i, 1), "")
    
20. End Select
    
21. Next
    
22. texts.Text = stext
    
23. End Sub
    
24. Private Sub 命令_Click()
    
25. If Not bo Then
    
26.     Call 计时
    
27. Else
    
28.     Call 停止
    
29. End If
    
30. End Sub
    
31. Sub 计时()
    
32. Dim ms As Date
    
33. ms = CDate("00:" & timeshow.Caption)
    
34. n1 = Now + TimeValue("00:00:01")
    
35. n2 = ms - TimeValue("00:00:01")
    
36. bo = True
    
37. If n2 = TimeValue("00:00:00") Then
    
38.     Call 停止
    
39.     Exit Sub
    
40. End If
    
41. timeshow.Caption = Format(n2, "nn:ss")
    
42. Application.OnTime n1, "计时"
    
43. End Sub
    
44. Sub 停止()
    
45. On Error Resume Next
    
46. bo = False
    
47. Application.OnTime n1, "计时", , False
    
48. End Sub
    
49. Private Sub 重置时间_Click()
    
50. Dim m As Integer, s As Integer, ms As Date
    
51. m = textmin.Text
    
52. s = texts.Text
    
53. ms = TimeSerial(0, m, s)
    
54. timeshow.Caption = Format(ms, "nn:ss")
    
55. bo = False
    
56. End Sub
    

复制代码

聂荻昌

xlsm是我写的，但是运行到ontime就不行。另一个ppa里面有个倒计时工具，但是我电脑打不开，不知道什么原因。

聂荻昌

聂荻昌 发表于 2018-4-23 13:27
xlsm是我写的，但是运行到ontime就不行。另一个ppa里面有个倒计时工具，但是我电脑打不开，不知道什么原因 ...

求助啊，希望大神们帮帮忙

Learner2022

聂荻昌 发表于 2018-4-23 14:22
求助啊，希望大神们帮帮忙

我也是 ontime不运行

932789750

1、请将ontime所在函数放置在模块中使用。
2、ppa文件是PowerPoint加载项文件，在vbe编译器中工具-引用-浏览加载它。这是它的介绍http://skp.mvps.org/ppafaq.htm#6。由于此ppa使用默认工程名，使用前需将工程名改为其它（例如VBAProject1），再引用此ppa