0

Excelがいくつかの手順を実行している間、私は単純なクロノメーターを実行しようとしていました。

ユーザーが見て、Excel が機能していたことを示します。

時間、日付、タイマー機能を使用しようとしました。しかし、3 つのオプションにより、Excel は 10 秒後に応答を停止しました。2010年版を使用しています。

次のようなコード:

Sub StopWatch()

Dim i As Integer
Dim t1 As Single
Dim t2 As Single

    Application.Calculation = xlCalculationManual

    t1 = Timer
    i = 0
    Do Until i = 60
        t2 = Timer
        If (t2 - t1) >= 1 Then
            t1 = t2
            i = i + 1
            Range("D4").Value = i
        End If
    Loop
End sub

ネットでストップウォッチのルーチンをいくつか見つけましたが、非常に複雑だと思いました。

Excel を停止せずに、その 3 つの関数のいずれかを使用する方法はありますか?

提案していただきありがとうございます。

4

2 に答える 2

0 
Sub StopWatch()
    Dim i As Integer
    Dim t1, t2  As Single
    Application.Calculation = xlCalculationManual
    t1 = Timer
    i = 0
    Do Until i = 60
        t2 = Timer
        If (t2 - t1) >= 1 Then
            t1 = t2
            i = i + 1
            Range("D4").Value = i
        End If
        DoEvents
    Loop
End sub
于 2020-04-25T12:41:21.870 に答える