Excel VBA質問箱 IV

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

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


66305 / 76734 ←次へ | 前へ→

【14993】Re:無限ループをクリックでとめたい
発言  ichinose  - 04/6/12(土) 22:43 -

引用なし
パスワード
   ▼かずや さん:
>返信ありがとうございます。
>DoEvents 初めて知りました。
>そこまではわかったのですが、
>Private loop_end As Booleanはどういう意味なのですか?
まず、コマンドボタン(Commandbutoon1)をクリックしたときに実行されるコード
>'==================================
>Private loop_end As Boolean
' ↑これは、下のループコードを制御するフラグとして宣言した変数です。
' プロシジャーの外で宣言した変数は、基本的には値が保持されます。
' 今回の場合、これは、ユーザーフォームのモジュールですから、
' ユーザーフォームがメモリ上から削除されるまでは保持されます。 
' Commanbutton1をクリックすると、
' この値がFalseの間は、↓のコードDo while〜Loopの間のコードを繰り返します


>'==================================
>Private Sub CommandButton1_Click()
>  loop_end = False
>  Do While loop_end = False
>   i = i + 1
>   DoEvents 'これをループ中に入れておきます。これで・・、
>'        別のボタンをクリック可能にしておきます
>   Loop
>End Sub

'↓これが別のボタン(Commandbutton2)をクリックしたときに
' 実行されるコードです。変数loop_end にTrueを設定しているだけです。
'
'よって、この↓のコードが実行されると、loop_end は、Trueになり、
'↑のコードのループを抜けると言うロジックです。
'


>'==================================
>Private Sub CommandButton2_Click()
>  loop_end = True
>End Sub

>あと、これはどこにいれればいいのか教えてください
>これがないせいなのか、クリックはできるんですが止められません
最初の投稿のご質問は、ユーザーフォームのボタンのことですよね?
投稿コードは、全てユーザーフォームのモジュールに記述します。

こんな説明でわかっていただけますか?
1 hits

【14988】無限ループをクリックでとめたい かずや 04/6/12(土) 20:02 質問
【14989】Re:無限ループをクリックでとめたい ちゃっぴ 04/6/12(土) 20:14 回答
【14990】Re:無限ループをクリックでとめたい ichinose 04/6/12(土) 20:50 発言
【14991】Re:無限ループをクリックでとめたい かずや 04/6/12(土) 21:54 質問
【14993】Re:無限ループをクリックでとめたい ichinose 04/6/12(土) 22:43 発言
【14994】Re:無限ループをクリックでとめたい かずや 04/6/12(土) 23:24 お礼

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