excel VBA スタートストップ制御

タイムチャートを読み込む、オートシェイプを判別して動かす処理が必要ですが、

機械動作の検証等に使用できます。

Private blnStop As Boolean

Private blnStart As Boolean

Sub StopWatch()

    Dim dblTimer As Double

    If blnStart = True Then

        blnStop = True

        Exit Sub

    End If

    blnStart = True

    blnStop = False

    dblTimer = Timer

    Do Until blnStop = True

        Cells(1, 1) = Int((Timer - dblTimer) * 100) / 100

        DoEvents

        '画面表示更新のためにセルをセレクト

        Cells(1, 8).Select

        

        '"ここにメイン処理を書く"

        

    Loop

    blnStart = False

    blnStop = False

End Sub