计数下降循环的限制

时间:2016-08-08 13:18:14

标签: excel excel-vba vba

我有以下简单的Excel电子表格:

      A           B              C
1                 10
2               =B1+A2
3             =SUMME(B1:B2)
4

在单元格A2中,通过以下宏插入倒计时值:

Sub test ()
Sheets("Sheet1").Range("A2").Value = Sheets("Sheet1").Range("A2").Value - 1
Do Until Sheets("Sheet1").Range("B3") > 0
Sheets("Sheet1").Range("A2").Value = Sheets("Sheet1").Range("A2").Value - 1
Loop
End Sub

到目前为止一切正常。但是,现在我想限制宏中的循环。因此它应该只在单元格A2中倒数,直到它达到数字0.它应该永远不会低于0。

你知道我怎么能插入这样一个"限制"在我的代码中?

1 个答案:

答案 0 :(得分:3)

  

永远不要低于0。

在写入值之前,请检查它是否为<0,然后只需退出Do循环。

这是你想要的吗?

Do Until Sheets("Sheet1").Range("B3") > 0
    If Sheets("Sheet1").Range("A2").Value - 1 < 0 Then Exit Do
    Sheets("Sheet1").Range("A2").Value = Sheets("Sheet1").Range("A2").Value - 1
Loop