DoEvents関数
DoEvents関数は、発生したイベントがOSによって処理されるように、プログラムで占有していた制御をOSに渡します。
DoEvents
DoEvents 関数は 0 を返します。
DoEvents 関数は、オペレーティング システムに制御を渡します。オペレーティング システムがキュー (処理の待ち行列) に入っているイベントの処理を終了し、SendKeys ステートメントのキューに入っているすべてのキー入力が送られるまで制御は戻りません。
DoEvents 関数は、ファイルの検索などで処理が開始された後で、ユーザーがキャンセルできるようにするときに役立ちます。
処理の実行が長い場合、処理プログラムで行う方が、タイマーを使ったり、ActiveX コンポーネントにタスクを渡すよりよい方法です。
後の場合、アプリケーションから独立させてタスクを続行できます。 そしてオペレーティング システムでは、マルチタスクと時間分割を利用します。
注意
イベント プロシージャから一時的な処理が発生するときは、最初に呼び出した処理から制御が戻ってくるまでは、プロシージャがプログラムの別の場所で実行されることがないように注意する必要があります。
別の場所で実行された場合、結果は予測できません。
また、制御をオペレーティング システムに渡している間、他のアプリケーションが、確認できない方法でプロシージャとやり取りを行う可能性があるときは、DoEvents 関数は使わないでください。
処理の実行が長い場合、処理プログラムで行う方が、タイマーを使ったり、ActiveX コンポーネントにタスクを渡すよりよい方法です。
後の場合、アプリケーションから独立させてタスクを続行できます。 そしてオペレーティング システムでは、マルチタスクと時間分割を利用します。
イベント プロシージャから一時的な処理が発生するときは、最初に呼び出した処理から制御が戻ってくるまでは、プロシージャがプログラムの別の場所で実行されることがないように注意する必要があります。
別の場所で実行された場合、結果は予測できません。
また、制御をオペレーティング システムに渡している間、他のアプリケーションが、確認できない方法でプロシージャとやり取りを行う可能性があるときは、DoEvents 関数は使わないでください。
使用例．
Dim i As Long
For i = 1 To 10000
Application.StatusBar = i
DoEvents
Next
Application.StatusBar = False
ステータスバーへの表示をする場合は、
このようにDoEventsを入れる事で、表示がスムーズに行われます。
For i = 1 To 10000
Application.StatusBar = i
DoEvents
Next
Application.StatusBar = False
ステータスバーへの表示をする場合は、
このようにDoEventsを入れる事で、表示がスムーズに行われます。
VBA関数の一覧と解説です、どんな関数があるかは一度は確認しておくとをお勧めいたします。どんな関数があるだけでも知っておけば、詳細の使い方は実際に使うときに調べても良いでしょう。文字列操作…34 分岐…3 型変換…14 データ判定…10 日付時刻…20 配列…6 ファイル操作…14 数学/財務…28 その他…18 MicrosoftDocsOfficeV…
同じテーマ「VBA関数」の記事
Int関数は、指定した数値の整数部分を返します。Int関数 Int(number) number 指定します。倍精度浮動小数点数型(Double)の数値または任意の有効な数式を指定します。Null値が含まれている場合は、Null値を返します。
Oct関数Oct関数は、引数に指定した値を8進数で表すバリアント型(内部処理形式StringのVariant)の値を返します。Oct関数 Oct(number) number 任意の数式または文字列式を指定します。この引数は必ず指定します。
Rnd関数Rnd関数は、単精度浮動小数点数型(Single)の乱数を返します。Rnd関数 Rnd[(number)] number は省略可能です。引数numberには、単精度浮動小数点数型(Single)の数値または任意の有効な数式を指定します。
Round関数Round関数は、指定された小数点位置で丸めた数値を返します。Round関数 Round(expression[,numdecimalplaces]) expression 必ず指定します。丸めを行う数式を指定します。
CreateObject関数CreateObject関数は、ActiveXオブジェクトへの参照を作成して返します。CreateObject関数を使う事で、参照設定することなくActiveXオブジェクトを使用できるようになります。CreateObject関数の構文 CreateObject(class,[servername]) class 必ず指定します。
DoEvents関数GetObject関数
ActiveXコンポーネントから提供されたオブジェクトの参照を返します。ファイルパス（フルパスと名前）からオブジェクトの参照を作成したり、既に起動中のオブジェクトを取得する際に使用します。GetObject関数の構文 GetObject([pathname],[class]) pathname 省略可能。
InputBox関数InputBox関数は、ダイアログボックスにメッセージとテキストボックスを表示し、文字列が入力されるか、またはボタンがクリックされると、テキストボックスの内容を返します。InputBox関数 InputBox(prompt[,title][,default][,xpos][,ypos] [,helpfile,
MsgBox関数MsgBox関数は、ダイアログボックスにメッセージを表示し、ボタンがクリックされるのを待って、ユーザーがどのボタンをクリックされたのかを示す整数を返します。MsgBox関数の構文 MsgBox(prompt[,buttons][,title][,helpfile, context]) 戻り値は、VbMsgBoxResult列挙です。
RGB関数RGB関数は、引数（red,green,blue）の色のRGB値を表す長整数型(Long)の値を返します。RGB関数 RGB(red,green,blue) red 必ず指定します。この名前付き引数は、バリアント型(内部処理形式IntegerのVariant)のデータ形式で指定します。
Shell関数Shell関数は、実行可能プログラムを実行し、実行が完了するとプログラムのタスクIDを示すバリアント型の値を返します、プログラムの実行に問題が発生した場合は、0を返します。Shell関数 Shell(pathname[,windowstyle]) 使用例． Shell"notepad.exe"&ThisWorkbook.Pat…
新着記事NEW ・・・新着記事一覧を見る
VBAのインデントについて｜VBA技術解説（7月15日）
「VBA Match関数の限界」についての誤解｜エクセル雑感（7月15日）
省略可能なVariant引数の参照不可をラップ関数で利用｜VBA技術解説（7月12日）
100桁の正の整数値の足し算｜エクセル雑感（7月9日）
LSetとユーザー定義型のコピー（100桁の足し算）｜VBA技術解説（7月9日）
Variant仮引数のByRefとByValの挙動違い｜エクセル雑感（7月5日）
Variant仮引数にRange.Valueを配列で渡す方法｜エクセル雑感（7月5日）
Variantの数値型と文字列型の比較｜エクセル雑感（7月1日）
VBAのVariant型について｜VBA技術解説（6月30日）
VBAのString型の最大文字数について｜エクセル雑感（6月20日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.マクロはどこに書くの（VBEの起動）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。