Excel VBA質問箱 IV

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

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


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

34456 / 76734

←次へ　｜　前へ→


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

りん

- 07/3/12(月) 12:10 -


	引用なし

	パスワード

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

>おぉ～！！できました。
>教えてくださった方々ありがとうございました

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) * (imax - i), "hh時間mm分ss秒")
　 Next i
End Sub

結果表示のところが間違っていたので、訂正します。
10　→　imax　でした。

3 hits

▼

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