|
▼VBA初心者 さん
Ag+ さんの指摘の通り、質問の内容を明確にさせることが先決だと思います。
>割り当て処理にて待ち時間を計り、待ち時間を比べていちばん長い所に割り当てて
>時間を0に戻し、また時間をカウントし始めるようにしたいと思っています。
>それに、待ち時間の降順に並びかえをし配列に格納できるようにしたいです。
>よろしくお願いします。
この上の質問も更に分かりにくい状態になってしまうのでは?っと思いますが。
先ず、ストップウォッチ的な使い方のコードを載せておきます。
一度これを動かしてみてください。
コードを見て何かヒントが得られるかも知れませんから・・・
フォーム上に
コマンドボタン2個
ラベル2個
を作成して試してみてください。
Private flag As Boolean
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Start, Finish, TotalTime ', PauseTime
Range("A9") = 0
If (MsgBox("[はい] をクリックすると、時間(秒数)の測定を開始します。", 4)) = vbYes Then
Label1 = Hour(Now()) & "時" & _
Format(Minute(Now()), "00") & "分" & _
Format(Second(Now()), "00") & "秒"
Start = Timer
flag = False
Do While flag = False
Label2 = Hour(Now()) & "時" & _
Format(Minute(Now()), "00") & "分" & _
Format(Second(Now()), "00") & "秒"
DoEvents
Loop
Finish = Timer
TotalTime = Finish - Start
MsgBox "測定時間の結果は " & TotalTime & " 秒でした。"
End If
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton2_Click()
flag = True
End Sub
|
|