Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11772 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【13375】『処理中』の表示を点滅 年寄り 04/5/3(月) 20:44 質問[未読]
【13377】Re:『処理中』の表示を点滅 YN61 04/5/3(月) 21:24 回答[未読]
【13379】Re:『処理中』の表示を点滅 Asaki 04/5/3(月) 22:17 発言[未読]
【13401】Re:『処理中』の表示を点滅 年寄り 04/5/4(火) 14:57 発言[未読]
【13402】Re:『処理中』の表示を点滅 Asaki 04/5/4(火) 15:07 回答[未読]
【13609】「『処理中』の表示を点滅」の内容について あべる 04/5/9(日) 17:04 質問[未読]
【13622】Re:「『処理中』の表示を点滅」の内容につ... Asaki 04/5/9(日) 22:29 回答[未読]
【13623】Re:「『処理中』の表示を点滅」の内容につ... あべる 04/5/9(日) 22:46 お礼[未読]
【13624】Re:「『処理中』の表示を点滅」の内容につ... Asaki 04/5/9(日) 23:30 回答[未読]
【13671】Re:「『処理中』の表示を点滅」の内容につ... あべる 04/5/11(火) 0:27 お礼[未読]
【13408】Re:『処理中』の表示を点滅 よろずや 04/5/4(火) 17:13 回答[未読]
【13415】Re:『処理中』の表示を点滅 年寄り 04/5/4(火) 18:15 発言[未読]
【13420】Re:『処理中』の表示を点滅 よろずや 04/5/4(火) 20:04 回答[未読]
【13593】Re:『処理中』の表示を点滅 よろずや 04/5/8(土) 21:33 発言[未読]
【13595】Re:『処理中』の表示を点滅 年寄り 04/5/9(日) 8:29 発言[未読]
【14277】Re:『処理中』の表示を点滅 POP 04/5/25(火) 12:41 発言[未読]
【13375】『処理中』の表示を点滅
質問  年寄り E-MAIL  - 04/5/3(月) 20:44 -
引用なし
パスワード
   処理に時間がかかる時に、『処理中』の表示を点滅させる記述例をお願いします。
【13377】Re:『処理中』の表示を点滅
回答  YN61  - 04/5/3(月) 21:24 -
引用なし
パスワード
   ▼年寄り さん：
>処理に時間がかかる時に、『処理中』の表示を点滅させる記述例をお願いします。

私も「点滅」を知りたいです・・・どなたかの回答を期待しています。
私は、ステータスバーに「・・・実行中！！」などの表示をしています。

Application.DisplayStatusBar=True　　’メッセージ表示オン
Application.StatusBar=”計算中です･･･しばらくお待ちください”

各種コード

Application.DisplayStatusBar=False　’メッセージ表示オフ

こんなことで、マクロの実行中で、動作している確認をせています。
【13379】Re:『処理中』の表示を点滅
発言  Asaki  - 04/5/3(月) 22:17 -
引用なし
パスワード
   こんばんは。

点滅などさせると、処理中のマクロに割り込みが入ると言うことですから、
余計処理が遅くなりますが？

ユーザーフォームやラベルを利用して、「処理中」の文字を表示しっぱなし、は容易に可能です。
【13401】Re:『処理中』の表示を点滅
発言  年寄り E-MAIL  - 04/5/4(火) 14:57 -
引用なし
パスワード
   ▼Asaki さん：
>ユーザーフォームやラベルを利用して、「処理中」の文字を表示しっぱなし、は容易に可能です。


いつも有難うございます。
上記の場合ユーザーにフォームを閉じることを要求することになるのでは？閉じなければマクロは次に進まないのでは？
【13402】Re:『処理中』の表示を点滅
回答  Asaki  - 04/5/4(火) 15:07 -
引用なし
パスワード
   >上記の場合ユーザーにフォームを閉じることを要求することになるのでは？閉じなければマクロは次に進まないのでは？

ヴァージョンによりますが、2000以降なら、モードレスで表示可能ですから、
ユーザーフォームを表示した状態で、後続の処理は実行可能です。
処理の最後に、ユーザーフォームを Unload します。
【13408】Re:『処理中』の表示を点滅
回答  よろずや  - 04/5/4(火) 17:13 -
引用なし
パスワード
   ▼年寄り さん：
>処理に時間がかかる時に、『処理中』の表示を点滅させる記述例をお願いします。
出来るか出来ないか（どうやるか）は、処理の内容次第です。
【13415】Re:『処理中』の表示を点滅
発言  年寄り E-MAIL  - 04/5/4(火) 18:15 -
引用なし
パスワード
   ▼よろずや さん：
>▼年寄り さん：
>>処理に時間がかかる時に、『処理中』の表示を点滅させる記述例をお願いします。
>出来るか出来ないか（どうやるか）は、処理の内容次第です。


どのような例があるか簡単なのを示していただけたら？
【13420】Re:『処理中』の表示を点滅
回答  よろずや  - 04/5/4(火) 20:04 -
引用なし
パスワード
   ▼年寄り さん：
>▼よろずや さん：
>>▼年寄り さん：
>>>処理に時間がかかる時に、『処理中』の表示を点滅させる記述例をお願いします。
>>出来るか出来ないか（どうやるか）は、処理の内容次第です。
>
>
>どのような例があるか簡単なのを示していただけたら？

(1)簡単なループ処理の場合
　 ループの中で回数を数えて、一定回数になる毎に表示の点滅を反転させる。
(2)複雑な多数の処理の場合
　 OnTime メソッドで一定時間（１秒かな）毎に表示の点滅を反転させる。
　 複雑な処理の中には、やたら DoEvents を書く。
(3)簡単な処理に時間がかかる場合
　 点滅はできません。
【13593】Re:『処理中』の表示を点滅
発言  よろずや  - 04/5/8(土) 21:33 -
引用なし
パスワード
   質問の嵐ですが、これは解決したのですか？
【13595】Re:『処理中』の表示を点滅
発言  年寄り E-MAIL  - 04/5/9(日) 8:29 -
引用なし
パスワード
   あんまりすっきりと解決しておりません。
おそらく無意味な質問か、上手に質問を表現できていないのかも？
【13609】「『処理中』の表示を点滅」の内容につい...
質問  あべる  - 04/5/9(日) 17:04 -
引用なし
パスワード
   　こんにちは。いつも大変お世話になっております。
　「【13375】『処理中』の表示を点滅」のやりとりを拝見させていただき、それについて、Asakiさんのご回答内容【13402】についておしえていただければと思います。私も実はﾕｰｻﾞｰﾌｫｰﾑで「実行中・・・」などと表示し、処理が終わった時点で、unloadしているのですが、「実行中・・・」の文字が入っている部分が白くなり、結局なにが表示されているのか分からない状態になっています。これは、仕方ないことなのでしょうか？
【13622】Re:「『処理中』の表示を点滅」の内容に...
回答  Asaki  - 04/5/9(日) 22:29 -
引用なし
パスワード
   たぶん、
Application.ScreenUpdating
の実行位置が悪いです。
実行タイミングを変えてみてください。
【13623】Re:「『処理中』の表示を点滅」の内容に...
お礼  あべる  - 04/5/9(日) 22:46 -
引用なし
パスワード
   ▼Asaki さん、ありがとうございます。
試してみましたが、やはり白いです。又、Application.ScreenUpdatingを
使わなくても、白いですね（T T）
もっと、他に色々試してみます。ありがとうございました。
【13624】Re:「『処理中』の表示を点滅」の内容に...
回答  Asaki  - 04/5/9(日) 23:30 -
引用なし
パスワード
   ダメ元で
DoEvents
もお試しください。
【13671】Re:「『処理中』の表示を点滅」の内容に...
お礼  あべる  - 04/5/11(火) 0:27 -
引用なし
パスワード
   ▼Asaki さん：
>ダメ元で
>DoEvents
>もお試しください。

▼Asaki さん、おばんです。
　ダメ元で試してみました。出来ました！！！
　ヘルプに習って、以下の構文を入力しました。

　Dim I, OpenForms
　For I = 1 To 150000　　　　　　' ループを開始します。
　　If I Mod 1000 = 0 Then　　 ' ループが 1,000 回繰り返されると
　　　　OpenForms = DoEvents　　' オペレーティング システムに制御を渡します。
　　End If
　Next I　　　　　　　　　　　　　　' ループ カウンタを増やします。
　　
　私は、DoEventsを使うのが初めてなんですが、これは、つまり、マクロを実行するに当たり、そのマクロで占有されていた領域をユーザーフォームの占有域に分けてあげた、、、、それにより、白くならなかった、、、ということになるのでしょうか？小学生なみの解釈ですが。。
【14277】Re:『処理中』の表示を点滅
発言  POP  - 04/5/25(火) 12:41 -
引用なし
パスワード
   こんなの関係ないですか？
http://www2.moug.net/cgi-bin/technic.cgi?acvba+TI11010012
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11772 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free