Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34474 / 76734

←次へ　｜　前へ→


	【47469】Re:時間の計算について

りん

- 07/3/11(日) 20:23 -


	引用なし

	パスワード

たいやきの頭さん、こんばんわ。

>処理件数はわかってはいるんです。
>なので一度ＬＯＯＰを通って出てきたらその時間を計測して
>それを元に残りの処理時間を計算し、表示させたいと思っているんです。

１回あたりの経過時間から終了時間を予測してみます。
Sub test()
　 Dim t1 As Double, t2 As Double
　 t1 = Now
　 imax = 10
　 For i = 1 To imax
　　　For a = 1 To 99999
　　　　　DoEvents '適当に時間のかかる処理
　　　Next a
　　　'
　　　t2 = Now
　　　Debug.Print i & "/"; imax & " 残り（およそ）　" & Format(((t2 - t1) / i) * (10 - i), "hh時間mm分ss秒")
　 Next i
End Sub

こんな感じです。

3 hits

▼

【47427】時間の計算について たいやきの頭 07/3/9(金) 17:00