会自动停止

刷卡机电脑监控

在b2表格不定时显示到1 或是20的时候，会停此计时，请问老手门，怎么解决

Sub teststart()  '启动
Application.DisplayAlerts = False
Worksheets("新表").Activate
qd = True
t1 = Timer
    Dim b1 As Integer
    b1 = 300
Do While qd
ThisWorkbook.Sheets("新表").Range("B1").Value = b1
    If Timer - t1 > 1 Then [b1] = [b1] - 1:         t1 = Timer
    If [b1] = 0 Then Exit Do
    DoEvents
Loop
If [b1] = 0 Then
'    MsgBox "时间到，运行子程序！"
Call huoqu
Application.Wait (Now + TimeValue("0:0:1"))
Else
    MsgBox "已暂停"
End If
Application.ScreenUpdating = True
End Sub

朝露孤烟

程序没出现你说的问题。运行正常。是不是你的系统影响到EXCEL的刷新。只有调整了代码句的编写方式。为方便观察结果，时间调整为60秒。

Sub teststart()  '启动
Application.DisplayAlerts = False
Worksheets("新表").Activate
qd = True
t1 = Timer
    Dim b1 As Integer
    b1 = 60
Do While qd
    ThisWorkbook.Sheets("新表").Range("B1").Value = b1
    If Timer - t1 > 1 Then
        [b1] = [b1] - 1
        t1 = Timer
    End If
    If [b1] = 0 Then
        Exit Do
    End If
    DoEvents
Loop
    If [b1] = 0 Then
        MsgBox "时间到，运行子程序！"
         'Call huoqu
        Application.Wait (Now + TimeValue("0:0:1"))
    Else
        MsgBox "已暂停"
    End If
Application.ScreenUpdating = True
End Sub