Loopさせるとチェックボックスが... (ID:123375)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 質問者の質問の意図は明確ですね。 フォームの上にチェックの付いていない、チェックボックスを一つ置いて Private Sub Check1_Click() Do DoEvents If Check1.Value = 0 Then Exit Do Else 'do something End If Loop End Sub これを実行してチェックを入れると、２度とループを抜けません。 実行がCheck1_Click()のイベント処理中は、新しいCheck1_Click()イベントが 起きない為です。従って、Check1_Click()の中では処理中に、再びチェックボックスが クリックされる様な、時間のかかる処理は原則出来ません。 プログラムの構成を再考する必要が有ります。