Excel VBA質問箱 IV

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

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


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

62717 / 76732

←次へ　｜　前へ→


	【18619】動作が重すぎて

かるかる - 04/10/1(金) 16:28 -


	引用なし

	パスワード

計測プログラムでキッチリ３０秒ごとに計測させたいので
Td = Now + TimeValue("00:00:30")
For I = 1 To 50000
　
NS = I
Worksheets("Sheet1").Cells(I, 2).Activate
Worksheets("Sheet1").Cells(I, 1).Value = NS

Application.Wait (Td)
Td = Now + TimeValue("00:00:30")

というのを組んで動いたのですが、CPU負荷が100％、書き出すときだけ10％程度
余りに重過ぎて計測中何回か落ちて困りました。
長時間計測するので、一回一回のわずかな差でも最終的な実時間ではかなりの誤差に
なるので確実に30秒とりたいのですが、何か良いコマンドなりプログラムなりないでしょうか
ご教授願えると幸いです。

2 hits

▼

【18619】動作が重すぎて かるかる 04/10/1(金) 16:28

≪