关于时间刷新，满足条件暂停，满足条件开始问题

★宁静森林★

A1=21:31:44               
A2=SECOND(A1)        B2=A2        
                B2是取系统时间秒数动态变化


                需要以下3点执行
                表格打开时运行循环
                当B2=58,59,00,01,02,03,04,05,06时, 1秒刷新一次时间A1 .
                当B2=07时  51秒刷新一次时间A1，也就是暂停51秒后再次刷新A1.
               
        
                Private Sub Workbook_Open()
                Call A
                End Sub

                Sub A()
                Range("A1") = Now()
                [B3] = [A3]
                [B2] = [A2]
                Application.OnTime Now + TimeValue("00:00:01"), "A"
               
                End Sub求大神帮忙看看，谢谢
关于时间刷新问题2018-6-13.rar (14.59 KB, 下载次数: 14)

2018-6-13 21:34 上传

点击文件名下载附件

★宁静森林★

期待大神，自己顶一下

★宁静森林★

有高手能帮忙解决吗

★宁静森林★

Sub A()
Range("A1") = Now()
[B2] = [A2]
If Cells(2, 2) < 8 Or Cells(2, 2) > 55 Then
      Application.OnTime Now + TimeValue("00:00:01"), "A"
        Else
          Application.OnTime Now + TimeValue("00:00:10"), "A"
     End If

End Sub
  还是得靠自己研究，已解决