CPU に制御を移す(DoEvents 関数)
DoEvents 関数
DoEvents 関数を実行すると、CPU に制御を移し、他のアプリケーションが実行できるようになります。
DoEvents
DoEvents 関数 使用例
ユーザーフォーム
ユーザーフォームを挿入し(UserForm1)、ラベル(Label1)1つとコマンドボタン(CommandButton1、CommandButton2)2つを追加します。
サンプルVBAソース
|
1 2 3 4 5 6 7 |
Sub Sample_DoEvents() UserForm1.Show End Sub |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
Private i As Long Private myTimer As Boolean '「START」ボタンをクリックした時の処理 Private Sub CommandButton1_Click() myTimer = True Call Sample_Timer End Sub '「STOP」ボタンをクリックした時の処理 Private Sub CommandButton2_Click() myTimer = False End Sub 'UserForm1 を表示した時の処理 Private Sub UserForm_Initialize() 'Label1 に「0 回」を表示 UserForm1.Label1.Caption = "0 回" 'CommandButton1 に「START」を表示 UserForm1.CommandButton1.Caption = "START" 'CommandButton2 に「STOP」を表示 UserForm1.CommandButton2.Caption = "STOP" End Sub 'Label1 に 回数を表示します Sub Sample_Timer() Do While myTimer = True i = i + 1 Label1.Caption = i & " 回" DoEvents Loop End Sub |
実行結果
「標準モジュール」の Sample_DoEvents を実行
「START」(CommandButton1)をクリック、その後「STOP」(CommandButton2)をクリック
上記のサンプルで、DoEvents は、必ず指定してください。外すと無限ループに入ってしまうので、注意してください。
関連記事
-
-
セルのデータを固定長形式で複数のセルに分割する(TextToColumns メソッド・Parse メソッド)
固定長形式でセルを分割 TextToColumns メソッドや Parse メソ …
-
-
配列(多次元配列・配列の次元の変更)
多次元配列 【書式】 多次元配列の宣言 <静的配列(固定長配列)> Dim my …
-
-
文字列:文字を指定数並べた文字列を返す(String 関数)
String 関数 【書式】 result = String ( number, …
-
-
VBA の演算子(論理演算子:And、Eqv、Imp、Not、Or、Xor)
論理演算子 論理演算を行うときに使用する演算子で、以下の 6 種類があります。 …
-
-
指定した数のスペースを挿入する(Spc 関数)
指定した数のスペースを挿入 指定した数のスペースを挿入するには、Spc 関数を使 …
-
-
文字列:文字列を最後から検索してその最初の文字位置を返す(InStrRev 関数)
InStrRev 関数 任意の文字列の中で、指定した文字列を最後から検索して、見 …
-
-
XlThemeColor 列挙型
XlThemeColor 列挙 定数 値 内容 xlThemeColorDark …
-
-
引数が省略されたかどうかをチェックする( IsMissing 関数 )
IsMissing 関数の使い方 【書式】 result = IsMissing …
-
-
VBA の演算子(算術演算子)
算術演算子 算術演算を行うときに使用する演算子です。 ^(べき乗)、*(積)、/ …
-
-
フォントサイズ(Size プロパティ・StandardFontSize プロパティ)
フォントサイズを取得・設定する(Size プロパティ) Size プロパティは、 …


