Excel VBA質問箱 IV

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

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


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

45184 / 76732

←次へ　｜　前へ→


	【36550】Re:処理を一定時間待つには

てろてろ - 06/4/3(月) 11:10 -


	引用なし

	パスワード

▼ichinose さん：

Sleepを使おうと思ったのですが
Sub または Function が定義されておりません
というエラーが出てしまいます。

定義は最上位に置いたのですが、ダメみたいで、どこにおけばよいのでしょうか？
ちなみに、クリックイベントから、Callによってループさせたいプログラムに
飛んでおります。どちらのモジュールの最上位段にも定義は書きました。

>▼Blue さん：

すみません。Waitより前にSleepを試します！
御回答ありがとうございます！

>おはようございます。
>
>>># 流石に9～17時の間、30秒周期だと(8*60*2=960回もマクロが走るわけで)重くなりそうですけど。
>>
>>いえ、違うのです。周期的にループさせずに行っても、10秒間、CPU100%になるのです。
>>
>>　　T0 = Timer　'30秒待つ
>>　　Do
>>　　　　DoEvents
>>　　Loop Until T0 + 30 < Timer
>>
>>この処理自体、そういった特性を持っているのでしょうか？
>>一定周期でループさせる良い方法は他にないでしょうか？
>これは、ＡＰＩのSleepを使ってみて下さい。
>
>Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
>Private Sub CommandButton1_Click()
>　　CommandButton1.Enabled = False
>　　T0 = Timer　'30秒待つ
>　　Do
>　　　　Sleep 100
>　　　　DoEvents
>　　Loop Until T0 + 30 < Timer
>　　CommandButton1.Enabled = True
>End Sub
>
>こればっかりは、Application.waitでは駄目なんですよねえ！！
>試してみて下さい。

4 hits

▼

【36542】処理を一定時間待つには てろてろ 06/4/3(月) 10:09