| |
早速のご返答、ありがとうございます。
先ほど試したところ、すんなり動作しました。
こんなスタンダードな手法を知らなかった自分が恥ず
かしいです（涙
また、判りやすいプログラム例も大変役立ちました。
では。
>▼とん さん：
>こんばんは。
>
>>ユーザフォームのコマンドボタンである処理をしている時に、
>>他のコマンドボタンからの割り込みは可能でしょうか？
>>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
|
|
とん
- 03/10/27(月) 11:33 -
