チェックボックスについて (ID:118209)

名前

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

本文 よく考えてみましたら、当たり前のことを見逃していましたので、追記。 ２つのチェックボックスがあって、①をチェックして、 処理中に②をチェックした場合の動きを書きますと、 （コードはねろさんのを参考にしています） １．①のClickイベントが走り、フラグがTrueになる ２．処理中に②のチェックボックスをクリック（画面上は変化なし） ３．①の処理が終わり、自身のチェックを外す(Value = vbUnchecked) ４．①のClickイベントが再度走る。但し、フラグチェックで抜ける。 ５．①のフラグクリアが走り、Clickイベントを抜ける。 ６．OSに制御が戻り、キューに溜まっていた②のチェックが行われ、②のClickイベントが走る。 ７．５でフラグが既にクリアされているので、フラグチェックを抜ける。 ８．②の処理が走ってしまう。 つまり、処理にDoEventsが入っていないため、キューに溜まったほかのチェックボックスの チェックメッセージが①の処理が終わるまで実行されないのが そもそもの原因ですので、上記の５の前でキューに溜まったメッセージを 処理させてやれば解決するはずです。 つまり、ねろさんのコードにつけたしで、 chk_box(Index).Value = vbUnchecked DoEvents ' ←追加 flg = False End Sub とやれば、うまくいくと思います。