0

我正在运行一个计时器。我想让计时器倒计时。这一切都有效。但是，计时器需要在不同的行中经历很多次，但在按下按钮之前不应移动到下一次。这将允许我提取倒计时的时间。

有任何想法吗？（我将完成用作按钮，它所做的只是黑色一个单元格）。我希望当我这样做时，时间会重置并转到下一栏。

Sub GoGo()

公共 GoGo 作为布尔值

GoGo = 真

结束子

子运行（）

Dim lastrow As Long, i As Long

        For i = 23 To 32


           DoEvents
            If GoGo = True Then

                If Cells(i, 1) <> 0 Then

             Range("B5").Value = Cells(i, 2).Value
             Range("E5").Value = Cells(i, 3).Value
             Range("E11").Value = Range("C33").Value

             Application.Run ("Realcount")
             Application.Run ("Realcount2")

            End If
            End If



            Next i

结束子

4

1 回答 1

0

你不能做 Range(i, 2) 或 Range(i, 3)。你是说 Cells(i, 2) 吗？

于 2013-04-16T18:49:58.443 回答