如下图，平时按shift+F9手动刷新R列，大部分时候都是0，当刷新到1或者-1时，我就停止刷新。在网上找个了自动刷新的宏公式：Private Sub Workbook_Open()myclockEnd SubSub myclock()Range("A1").Value = TimeApplication.Wait (Now() + TimeSerial(0, 0, 1))myclockEnd Sub当宏运行自动刷新R列出现1或者-1，我就按ctrrl+break手动暂停宏运行但是还是觉得麻烦，如果能自动暂停就方便多了问题：当R列刷新出1或者-1时怎么让这个宏自动停止或暂停？
第1个回答 2017-09-22
Private Sub Workbook_Open()
myclock
End Sub
Sub myclock()
Range("A1").Value = Time
Application.Wait (Now() + TimeSerial(0, 0, 1))
If WorksheetFunction.Sum(Columns("R")) = 0 Then myclock
End Sub本回答被网友采纳
myclock
End Sub
Sub myclock()
Range("A1").Value = Time
Application.Wait (Now() + TimeSerial(0, 0, 1))
If WorksheetFunction.Sum(Columns("R")) = 0 Then myclock
End Sub本回答被网友采纳
