vba80集的第43集有个时间显示的，同样的程序我的怎么终止不了时间显示啊

初来咋到

下面是我的代码，时间显示是正常的，但是运行结束时间显示却没有任何反应，时间还在继续显示中，我的事excel2010版本的，是不是“工具-引用-”里面有某一项没引用啊，求大神指点！！

Sub 时间显示()
Dim x
If k = 1 Then
k = 0
End
End If
Range("a1") = Format(Now, "hh:mm:ss")
Application.OnTime Now + TimeValue("00:00:01"), "时间显示"
x = DoEvents
End Sub


Sub 结束时间显示()
k = 1
End Sub

砂海

  If k = 1 Then
x = 0
   End   '这句我没懂 ,不过测试发现取消了不行

初来咋到

砂海 发表于 2015-12-29 13:42
If k = 1 Then
x = 0
   End   '这句我没懂 ,不过测试发现取消了不行

不是x=0 是k=0 啊，我也不清楚什么情况，蓝色幻想给的源文件里面是可以运行的，但是复制到我自己的excel里面就不行

砂海

Dim k
这句是模块级 ,放到 " Sub 时间显示() "之前一行