Question

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

有什么想法吗？（我使用完成作为按钮，它只是黑色的单元格）。我希望当我这样做的时候会重置并进入下一栏。

Sub GoGo()

Public GoGo As Boolean

GoGo = True

End Sub

Sub Runn（）

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

End Sub

Answer 1

你不能做范围（i，2）或范围（i，3）。你的意思是细胞（i，2）？

对象'_Global'的方法'范围'出错

1 个答案: