Excel VBA質問箱 IV

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

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


11770 / 13644 ツリー ←次へ | 前へ→

【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 メソッドで一定時間(1秒かな)毎に表示の点滅を反転させる。
  複雑な処理の中には、やたら 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

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