Question

问题：我需要一个25分钟的计时器来从参考时间开始倒计时，该时间由系统时间+ 25分钟计算。一旦这个25分钟的计时器完成，我需要一个计时器弹出说这个计时器完成。

目前引用的时间是：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As    Boolean)
 If Not Intersect(Target, Range("B1,B11:B18,B20"))
    Cancel = True
    Target.Formula = Time
 End If
End Sub

谢谢！

Answer 1

听起来你想要运行像

这样的东西

IncomingRecords.php

代码中的某个地方，也许是

Application.OnTime Now()+TimeValue("00:25:00"), "EndTimer"

然后有一个程序

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As    Boolean)
    If Not Intersect(Target, Range("B1,B11:B18,B20")) Then
        Cancel = True
        Target.Formula = Time ' This line is only if you want it to update the cell

        Application.OnTime Now()+TimeValue("00:25:00"), "EndTimer"
    End If
End Sub

VBA Excel计时器模块

1 个答案: