do loop50秒,只执行第一圈就不跑了?

t7788

doloop.zip (19.26 KB, 下载次数: 6)

2025-1-30 21:04 上传

点击文件名下载附件

do loop50秒,只执行第一圈就不跑了?
如果把 If kab Mod 5 = 0 Then  '跳掉，是可正常跑完的

Public abc As Integer
Private Sub CommandButton1_Click()
Dim Start
Application.EnableEvents = False
Columns("m:o").ClearContents
Start = Timer
Range("a2").Value = 1
abc = 50
kab = 0
Do While Timer < Start + abc '50
22:
If Timer = Start + kab Then '111
kab = kab + 1
Range("m65536").End(xlUp).Offset(1, 0) = Time
Range("m65536").End(xlUp).Offset(0, 1) = kab
Range("m65536").End(xlUp).Offset(0, 2) = kab Mod 5


'-------------------------------------------------------
If kab Mod 5 = 0 Then '222


If Range("a2").Value = 1 Then  '55
Range("a2").Value = 2
MsgBox " 第一段ok "
End If '55


If Range("a2").Value = 2 Then '33
MsgBox " 第二段ok  "
MsgBox kab
End If '33


End If '222


30:  '不跑5秒
End If '111
'----------------------------------------------------------------


DoEvents
Loop

MsgBox " 自退OK "


End Sub

boyayes

给你改了一下，你试试行不行：

1. Private Sub CommandButton1_Click()
   
2.     Dim StartTime#, 秒数%, 余数%, 圈数%
   
3.     Range("A2").ClearContents '清空内容
   
4.     Range("M:O").ClearContents '清空内容
   
5.     Range("M1:O1") = Array("时间", "秒数", "余数") '标题
   
6.     Do Until 圈数 > 10 '整除10圈后终止循环
   
7.         '以下代码是等待1秒钟
   
8.         StartTime = Timer
   
9.         Do While Timer < StartTime + 1
   
10.             DoEvents
    
11.         Loop
    
12.         秒数 = 秒数 + 1 '累计秒数
    
13.         
    
14.         '以下代码是你要执行的具体代码(示例)
    
15.         余数 = 秒数 Mod 5
    
16.         Range("A2") = 圈数 + 1 '把圈数写入单元格
    
17.         If 余数 = 0 Then
    
18.             余数 = 5 '将余数=0更改为余数=5
    
19.             圈数 = 圈数 + 1 '每整除1次累加1圈
    
20.         End If
    
21.         With Range("M65536").End(xlUp)
    
22.             .Offset(1, 0) = Time
    
23.             .Offset(1, 1) = 秒数
    
24.             .Offset(1, 2) = 余数
    
25.         End With
    
26.         If 余数 = 5 Then MsgBox "第" & 圈数 & "圈OK"
    
27.     Loop
    
28.     MsgBox "处理完毕", 64
    
29. End Sub

复制代码