文件名称：EXCEL数字秒表.xls
文件大小：37KB
文件格式：XLS
更新时间：2023-08-16 14:00:39
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