Excel VBA質問箱 IV

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

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


62717 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   計測プログラムでキッチリ30秒ごとに計測させたいので
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秒とりたいのですが、何か良いコマンドなりプログラムなりないでしょうか
ご教授願えると幸いです。

0 hits

【18619】動作が重すぎて かるかる 04/10/1(金) 16:28 質問
【18621】Re:動作が重すぎて ichinose 04/10/1(金) 18:20 発言
【18622】Re:動作が重すぎて かるかる 04/10/1(金) 18:40 発言
【18626】Re:動作が重すぎて 名無し 04/10/2(土) 0:52 発言
【18632】Re:動作が重すぎて ichinose 04/10/2(土) 2:35 発言
【18634】Re:動作が重すぎて 名無し 04/10/2(土) 12:15 発言
【18646】Re:動作が重すぎて bykin 04/10/3(日) 0:22 回答

62717 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free