<em>EXCEL</em>的<em>VBA</em>的<em&g

删除括号

ontime第4个参数设置为false(前3个相同)就可以取消相应的计划.

Windows.Application.OnTime  

在Application.OnTime 前面加上 Windows. 就可百以识别运行。

但是现在 我遇到的问题是到了ontime 时间 提示 无法运行“     ”宏。可能是因为该度宏在此工作簿中不可用,或者所有的宏版都被禁用。 在宏设置里已经“权允许所有宏”，还是出现此提示。

'结束时哪个开始的时间点要与前面的相对应。要zd定义一个模块变量或全局变量，版保证时间点相同
dim ss
Sub proc()
Dim t
t = DateDiff("n", startime, Now())
If exam_s Then
Sheet4.Range("f2") = t & "分钟"
Else
Sheet4.Range("f2") = Format(Now(), "hh:mm:ss")
End If
ss=Now() + TimeValue("00:01:00")
Application.OnTime Now() + TimeValue("00:01:00"), "proc"
End Sub
Sub stoptime()
On Error Resume Next
Application.OnTime ss, "proc", , False
End Sub
'这个是程序中指定停，也可以把, 这二句放在关窗口的权事件中
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime ss, "proc", , False
End Sub