|
早速のご返答、ありがとうございます。
先ほど試したところ、すんなり動作しました。
こんなスタンダードな手法を知らなかった自分が恥ず
かしいです(涙
また、判りやすいプログラム例も大変役立ちました。
では。
>▼とん さん:
>こんばんは。
>
>>ユーザフォームのコマンドボタンである処理をしている時に、
>>他のコマンドボタンからの割り込みは可能でしょうか?
>>Application.Wait しても戻ってこないし。。。
>>Timerを使うのかな?
>DoEventsをループ内に記述すると可能だと思いますよ。
>以下の例は、「CommandButton1をクリックすると、セルA1に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
|
|