计时显示的代码

lrlxxqxa

1. Dim i As Boolean
   
2. Sub js()
   
3. If i = True Then
   
4. [d3] = Format(Time, "hh:mm:ss")
   
5. Application.OnTime Now + TimeValue("00:00:01"), "js"
   
6. End If
   
7. End Sub
   
8. 
   
9. Sub start()
   
10. i = True
    
11. Call js
    
12. End Sub
    
13. 
    
14. Sub exitit()
    
15. i = False
    
16. End Sub

复制代码