なお、「時間のかかる処理」の中にあるApplication.DoEventsメソッドの呼び出しは、ダイアログの表示内容を描画更新するためのものである。 VBA; Excel VBA Tips; マクロで時間がかかる処理を行うとき、画面に「お待ちください」や「処理中です」などのメッセージを表示するにはいくつかの方法があります。ここでは、次の3つの方法をご紹介し … マクロ動作中に一切のキーやマウス操作を制限する。 Application.Interactive = False を記述すると、処理中はキーボードやマウス等の介入が一切排除されます。当然Escキーでマクロ動作を停止させることもできなくなります。 処理の終了段階で True に戻して下さい。 OS:XP Pro Access Version:2007 御世話様です。時間のかかる処理中に今開いてるのとは別のフォームで処理中メッセージを表示し処理が終了したらメッセージが自動的に消える（フォームが閉じる）処理を行いたいのですがうまくいきません。 MsgBoxとは、メッセージを表示する機能と、問合せを行い返事を返す機能がある関数です。ボタンの種類 アイコンの種類 デフォルトボタン 返り値 問合せを行う 引数のprompt・buttons・titleを指定しています。返り値はIF文で判定しています。メッセージの改行位置に「vbCrLf」か「vbNewLine」を挿入します

VBA; Excel VBA Tips; マクロで時間がかかる処理を行うとき、画面に「お待ちください」や「処理中です」などのメッセージを表示するにはいくつかの方法があります。ここでは、次の3つの方法をご紹介し … DoCmd.OpenForm "frm処理中メッセージ" For iintLoop = 1 To 10000 For intWrk = 1 To 10000: Next intWrk '実際にはここでさまざまな処理をします DoEvents If Forms!frm処理中メッセージ.pblnStopFlg Then Exit For Next iintLoop DoCmd.Close acForm, "frm処理中メッセージ" End Sub マクロの処理時間が長いので，その間『実行中』の表示をしたいと思います。しかし，処理を始める前にメッセージボックスを表示すると，肝心の処理が実行されません。どうにかならないでしょうか？ マクロ動作中に一切のキーやマウス操作を制限する。 Application.Interactive = False を記述すると、処理中はキーボードやマウス等の介入が一切排除されます。当然Escキーでマクロ動作を停止させることもできなくなります。 処理の終了段階で True に戻して下さい。 処理中メッセージを表示するユーザーフォームを表示する。 (※1) ユーザーフォーム表示後にメインの処理を実行(メイン処理実行中はExcelの操作ができないようにしておく) ... Access VBA:マウスポインターの形状を変更する方法 . エラー処理って使っていますか？ エラー処理といえば、0(ゼロ)で割る処理を行うとエラーが発生します。また、ファイルへの入出力の際に不適切なパスを指定した場合などもエラーが発生します。 エラーが発生すると処理が停止して、それ以降の処理が行われないなど不具合の原因となります。 VBAについてです。マクロ実行中に「しばらくお待ちください」とメッセージボックスを表示させておき、実行が終了したら自動的にメッセージボックスが消えるようにしたいです。どうゆう記述をすればよろしいですか？お願い致します。教えてください。 MsgBoxとは、メッセージを表示する機能と、問合せを行い返事を返す機能がある関数です。ボタンの種類 アイコンの種類 デフォルトボタン 返り値 問合せを行う 引数のprompt・buttons・titleを指定しています。返り値はIF文で判定しています。メッセージの改行位置に「vbCrLf」か「vbNewLine」を挿入します 3)終了処理 消去 SysCmd acSysCmdClearStatus Access実行画面 ウィンドウ下の部分がステータスバーです。 「実行中・・・」とある部分がインジケータです。 「実行中・・・」のようにメッセージを表示させることもできます。 Accessで長い処理を実行している間、なんの音沙汰もないと不安になります。 その対策として、実行中に「お待ちください」みたいなメッセージを表示すれば、ユーザーに少し安心してもらえるかなと思います。 DoCmd.OpenForm "frm処理中メッセージ" For iintLoop = 1 To 10000 For intWrk = 1 To 10000: Next intWrk '実際にはここでさまざまな処理をします DoEvents If Forms!frm処理中メッセージ.pblnStopFlg Then Exit For Next iintLoop DoCmd.Close acForm, "frm処理中メッセージ" End Sub