【文件属性】：
文件名称：EXCEL数字秒表.xls
文件大小：37KB
文件格式：XLS
更新时间：2020-07-26 20:13:59
VBA EXCEL 数字秒表
VBA编写的EXCEL数字秒表
Option Explicit
Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Public iTimerID As Long, timeX As Single
Public Sub OnTimer()
timeX = timeX + 0.1
UserForm1.TextBox1 = Format(timeX, "0.0")
End Sub
Sub ShowUserForm()
UserForm1.Show
End Sub