タイマーを実行しています。タイマーでカウントダウンをカウントアップしたい。これはすべて機能します。ただし、タイマーはさまざまな行で何度も実行する必要がありますが、ボタンが押されるまで次の時間に移動することはできません。これにより、カウントダウンを超えた時間を抽出できます。
何か案は?(仕上げをボタンとして使用しています。セルを黒くするだけです)。私がそれをしたとき、時間がリセットされて次のコラムに行くことを望んでいました.
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
サブ終了