Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


72619 / 76732 ←次へ | 前へ→

【8596】Re:ユーザフォームのコマンドボタンによる割...
回答  ichinose  - 03/10/24(金) 20:30 -

引用なし
パスワード
   ▼とん さん:
こんばんは。

>ユーザフォームのコマンドボタンである処理をしている時に、
>他のコマンドボタンからの割り込みは可能でしょうか?
>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

1 hits

【8594】ユーザフォームのコマンドボタンによる割... とん 03/10/24(金) 19:23 質問
【8596】Re:ユーザフォームのコマンドボタンによる割... ichinose 03/10/24(金) 20:30 回答
【8617】Re:ユーザフォームのコマンドボタンによる... とん 03/10/27(月) 11:33 お礼

72619 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free