0

実行可能ファイルが利用可能な場合にコマンド プロンプトを実行するマクロがあります。マクロは、実行可能ファイルが利用可能かどうかを確認する前に 5 分間待機します。問題は、このロックが優れていることです。私がやりたいのは、制御を 5 分間ユーザーに戻すことです。

これは、現時点でのコードのビットの外観です。

Do Until TuflowEx < Range("Exe").Value ' Check if number of executables running is less than the user specified maximum
    Application.Wait (Now + TimeValue("0:05:00")) ' Wait 5 minutes before checking again
    TuflowEx = TuEx() ' Run TuEx to get the currently active number of executables
Loop

乾杯

4

1 に答える 1

1

代わりにApplication.Ontimeを使用してください。

チェックを行うルーチンを作成し、チェックが成功した場合にロジックを再開させるだけです。

Sub ChecktuflowEx()
    If TuEx() => Range("Exe").Value Then
        'whatever you want
    Else
        'Check again in 5 minutes.
        Application.OnTime Now + TimeValue("0:05:00"), "ChecktuflowEx"
    End If
End Sub
于 2012-11-08T21:58:10.603 に答える