| |
▼とん さん：
こんばんは。
>ユーザフォームのコマンドボタンである処理をしている時に、
>他のコマンドボタンからの割り込みは可能でしょうか？
>Application.Wait しても戻ってこないし。。。
>Timerを使うのかな？
DoEventsをループ内に記述すると可能だと思いますよ。
以下の例は、「CommandButton1をクリックすると、セルＡ１に0から1,2,3・・・
と数字が増加していきますが、CommandButton2のクリックでその処理が止まる」
というコードです。ユーザーフォームのモジュールに
'=================================================
Private stop_flg As Boolean
'=================================================
Private Sub CommandButton1_Click()
stop_flg = False
[a1] = 0
Do While stop_flg = False
[a1] = [a1] + 1
DoEvents
Loop
End Sub
'=================================================
Private Sub CommandButton2_Click()
stop_flg = True
End Sub
|
|
