Question

excel VBA循环编程怎麼写

例如A1的值大於0，B1就每隔一秒加1，加入过了10秒後，A1小於0，则，B1=10，c1开始计算A1小於0的时间，当B1+C1=60就停止，这样我就能对比一个时间段内大於0或者小於0的时间比。用VBA实现。
if A1>0,B1算时间，每隔一秒+1（假设是10秒，则B1=10）
if A1<0,C1计算时间，每隔一秒+1，B1停止算时间（假设是20秒，则c1=20,B1还是10）
如果A1又>0，则B1在原来的基础上继续算时间（假设30，则B1=40，10+30）

如果B1+C1=60，则退出循环。
最终B1=40，C1=20

Answer 1

Sub test()
    If [b1] + [c1] = 60 Then Exit Sub
    [A1] = 1 - 2 * Rnd()
 
    If [A1].Value > 0 Then
        [b1] = [b1] + 1
    Else
        [c1] = [c1] + 1
    End If
    Application.OnTime Now + TimeValue("00:00:01"), "test"
End Sub

Answer 2

加个时间控价用作你的多条件判断就可以了

Answer 3

逻辑有点混乱……没看明白

追问

1. if A1>0,B1算时间，每隔一秒+1（假设是10秒，则B1=10）

2. if A1<0,C1计算时间，每隔一秒+1，B1停止算时间（假设是20秒，则c1=20,B1还是10）

3. 如果A1又>0，则B1在原来的基础上继续算时间（假设30，则B1=40，10+30）
   

4. 如果B1+C1=60，则退出循环。

5. 最终B1=40，C1=20