Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

CPU に制御を移す（DoEvents 関数）

2016/02/25

DoEvents 関数

DoEvents 関数を実行すると、CPU に制御を移し、他のアプリケーションが実行できるようになります。

【書式】

DoEvents

DoEvents 関数使用例

ユーザーフォーム

ユーザーフォームを挿入し（UserForm1）、ラベル（Label1）１つとコマンドボタン（CommandButton1、CommandButton2）２つを追加します。

サンプルVBAソース

　
Sub Sample_DoEvents()

    UserForm1.Show

End Sub

1

2

3

4

5

6

7

　

Sub Sample_DoEvents()

UserForm1.Show

End Sub

　

　

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

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 は、必ず指定してください。外すと無限ループに入ってしまうので、注意してください。

- VBA基本 DoEvents 関数, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: VBA で正規表現を使う（RegExp オブジェクトのメソッド）

RegExp オブジェクトのメソッド RegExp オブジェクトの詳細に関しては …

: 指定した数値に対応する選択肢の値・数式を返す（Choose 関数）

Choose 関数の使い方 Choose 関数は、指定されたインデックス値（１ …

: 色の設定（Color プロパティ・RGB 関数）

Color プロパティ Color プロパティは、指定したオブジェクトの色を取得 …

: 指定した数のスペースを挿入する（Spc 関数）

指定した数のスペースを挿入指定した数のスペースを挿入するには、Spc 関数を使 …

: ユーザー定義関数：セルを取得する（ThisCell プロパティ）

入力されたセルを取得するワークシート上で使用する Function プロシージ …

: VBA の演算子（文字連結演算子：& 演算子 + 演算子）

文字連結演算子文字連結演算子は、文字列の連結を行うときに使用する演算子で、「& …

: Math 関数（ Abs,Atn,Cos,Exp,Log,Rnd,Sgn,Sin,Sqr,Tan ）

Abs 関数【書式】 value = Abs ( number ) 【引数・戻 …

: フォント太字・斜体（Bold, Italic, FontStyle プロパティ）

太字の設定（Bold プロパティ） Bold プロパティは、フォントを太字にする …

: 乱数を生成する（Rnd 関数）

Rnd 関数の使い方 Rnd 関数は、0 以上、1 未満の範囲の乱数を単精度浮動 …

: 引数が省略されたかどうかをチェックする（ IsMissing 関数）

IsMissing 関数の使い方【書式】 result = IsMissing …

PREV: Windows API：時間を計測（GetTickCount、timeGetTime）
NEXT: 「ファイルを開く」ダイアログボックスを表示（GetOpenFilename メソッド）