0

タイマーを実行しています。タイマーでカウントダウンをカウントアップしたい。これはすべて機能します。ただし、タイマーはさまざまな行で何度も実行する必要がありますが、ボタンが押されるまで次の時間に移動することはできません。これにより、カウントダウンを超えた時間を抽出できます。

何か案は?(仕上げをボタンとして使用しています。セルを黒くするだけです)。私がそれをしたとき、時間がリセットされて次のコラムに行くことを望んでいました.

Sub 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 に答える