level 1
jy02247073
楼主
Sub EnableTimer()
EnabledTimer = True
Call RunTimer
End Sub
Sub DisableTimer()
EnabledTimer = False
End Sub
Sub Proce()
Cells(1, 2) = Cells(1, 2) + 1
End Sub
Sub RunTimer()
If EnabledTimer = True Then
Application.OnTime Now() + TimeValue("00:00:7"), "RunTimer" '这里调整间隔时间
Call Proce
End If
End Sub
这个是以前别的帖子里看到的，我抄下来自己小改了一点。
现在想加2个按钮用来增加和减少时间间隔（也就是里面00:00:07这个数字）。
自己尝试了改了一下，要么报错，要么无法加减，求大佬指点，先谢谢啦
2022年10月18日 03点10分
1
EnabledTimer = True
Call RunTimer
End Sub
Sub DisableTimer()
EnabledTimer = False
End Sub
Sub Proce()
Cells(1, 2) = Cells(1, 2) + 1
End Sub
Sub RunTimer()
If EnabledTimer = True Then
Application.OnTime Now() + TimeValue("00:00:7"), "RunTimer" '这里调整间隔时间
Call Proce
End If
End Sub
这个是以前别的帖子里看到的，我抄下来自己小改了一点。
现在想加2个按钮用来增加和减少时间间隔（也就是里面00:00:07这个数字）。
自己尝试了改了一下，要么报错，要么无法加减，求大佬指点，先谢谢啦
