投稿日 | : 2005/04/21(Thu) 20:25 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: DoEventsについて |
> CommandButton1.Enabled = False
> CommandButton2.Enabled = False
>
> For i = 1 To 10000
> Me.Cells(i, 1) = 1
> Next
>
> DoEvents
>
> MsgBox "終了"
下記のようにしないとループが終わるまで DoEvents が実行されないでしょう。
CommandButton1.Enabled = False
CommandButton2.Enabled = False
DoEvents
For i = 1 To 10000
Me.Cells(i, 1) = 1
Next
MsgBox "終了"