Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11709 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【14581】砂時計中のクリック こにしき 04/6/2(水) 13:36 質問[未読]
【14583】Re:砂時計中のクリック Asaki 04/6/2(水) 14:10 回答[未読]
【14585】Re:砂時計中のクリック こにしき 04/6/2(水) 14:39 質問[未読]
【14587】Re:砂時計中のクリック Asaki 04/6/2(水) 14:56 回答[未読]
【14588】Re:砂時計中のクリック こにしき 04/6/2(水) 15:10 質問[未読]
【14589】Re:砂時計中のクリック Asaki 04/6/2(水) 15:18 回答[未読]
【14591】Re:砂時計中のクリック こにしき 04/6/2(水) 15:44 質問[未読]
【14592】Re:砂時計中のクリック Asaki 04/6/2(水) 15:49 回答[未読]
【14593】Re:砂時計中のクリック こにしき 04/6/2(水) 16:18 質問[未読]
【14602】Re:砂時計中のクリック ichinose 04/6/2(水) 20:34 発言[未読]
【14619】Re:砂時計中のクリック こにしき 04/6/3(木) 9:48 お礼[未読]
【14590】Re:砂時計中のクリック Asaki 04/6/2(水) 15:26 回答[未読]
【14581】砂時計中のクリック
質問  こにしき  - 04/6/2(水) 13:36 -
引用なし
パスワード
   マクロを実行中、マウスポインタが砂時計になっているのですが、
その最中にボタンの上でクリックすると、マクロ終了後
そのボタンのマクロが動いてしまいます。

砂時計中にクリックされたという情報を無視（無効）にしたいのですが、
どなたかご教授いただけますでしょうか？

よろしくお願い致します。
【14583】Re:砂時計中のクリック
回答  Asaki  - 04/6/2(水) 14:10 -
引用なし
パスワード
   こんにちは。

とりあえず、
Sub test()
　　If Application.Cursor = xlWait Then
　　　　MsgBox "砂時計状態"
　　Else
　　　　MsgBox "砂時計ではありません"
　　End If
End Sub

セルのコピー中などの処理で、時間がかかっている場合に勝手に変化するものに対しても
反応するかわかりません。

こういったケースは、ボタンのクリックイベントの先頭で、
自身のボタンのEnabled プロパティをFalseに設定、
最後でTrueに戻す、
などすることが多いようです。
【14585】Re:砂時計中のクリック
質問  こにしき  - 04/6/2(水) 14:39 -
引用なし
パスワード
   ▼Asaki さん：
回答をありがとうございます。
>ボタンのクリックイベントの先頭で、
>自身のボタンのEnabled プロパティをFalseに設定、
>最後でTrueに戻すなどすることが多いようです。
　クリックのイベントが Enabled = True を待っているみたいなんです。

　（作業）処理したいボタンをクリック。
　（ PGM）ボタン_Clickイベント開始　（砂時計）
　　　　　　ボタン.Enabled = False
　　　　　　計算処理中・・
　（作業）Enabled = False になっているボタンをクリック。
　（ PGM）計算処理終了
　　　　　ボタン.Enabled = True
　　　　　ボタン_Clickイベント終了　（砂時計解除）
(何故？）ボタン_Clickイベント開始

普通に考えれば Enabled = False 中はクリック無視されますよね？
何故でしょう・・。
【14587】Re:砂時計中のクリック
回答  Asaki  - 04/6/2(水) 14:56 -
引用なし
パスワード
   試してみました。

>クリックのイベントが Enabled = True を待っているみたいなんです。
どうもそのようです。

こちらで見つけた回避策と思しき方法は
Enabled を変更しない前提でも
1) ボタンのプロパティ：TakeFocusOnClick を False にしておく
2) ボタン押下時直後に DoEvents を入れる
3) Application.Interactive を制御する

なんか、こんな感じです。
【14588】Re:砂時計中のクリック
質問  こにしき  - 04/6/2(水) 15:10 -
引用なし
パスワード
   回避策を試してみました

Private Sub cmdボタン_Click()
　　Application.Interactive = False
　　cmdボタン.TakeFocusOnClick = False
　　cmdボタン.Enabled = False
　　DoEvents　
　　　
　　　（計算処理）

　　cmdボタン.Enabled = True
　　cmdボタン.TakeFocusOnClick = True
　　Application.Interactive = True
End Sub

それでもクリックイベントが待たれている様です。
使い方が間違っているのでしょうか？
【14589】Re:砂時計中のクリック
回答  Asaki  - 04/6/2(水) 15:18 -
引用なし
パスワード
   全部やらなくても、どれかひとつでよいです。

1) ボタンのプロパティ：TakeFocusOnClick を False にしておく
→ あらかじめ、デザイン時に設定しておく

2) ボタン押下時直後に DoEvents を入れる
→ 直後です。

ちなみに、実は、コントロールツールボックスのコマンドボタンとして解答つけてましたが、
それでOKですか？
【14590】Re:砂時計中のクリック
回答  Asaki  - 04/6/2(水) 15:26 -
引用なし
パスワード
   フォームのボタンの場合でも、
Interactive は効いてるようでした。
【14591】Re:砂時計中のクリック
質問  こにしき  - 04/6/2(水) 15:44 -
引用なし
パスワード
   使っているのは、コントロールツールボックスのコマンドボタンです。

ひとつひとつ試してみましたが、どれも同じで
やはりクリックを認識してしまいます。

ちなみに１クリックで約１０秒ぐらいかかる処理をしています。
この１０秒中に再度クリックした場合に起こる現象です。
２度、３度クリックするとその数だけ実行されます。
（２度クリック：計３回実行されます）
【14592】Re:砂時計中のクリック
回答  Asaki  - 04/6/2(水) 15:49 -
引用なし
パスワード
   こちらで試しているのは、
クリックイベントで、2秒程度、Waitさせるというものです。
で、コマンドボタンをダブルクリックしてます。

途中の、計算処理が関係してるのでしょうか。
【14593】Re:砂時計中のクリック
質問  こにしき  - 04/6/2(水) 16:18 -
引用なし
パスワード
   >途中の、計算処理が関係してるのでしょうか。
　可能性は十分あります・・。
　
（マウスポインタの砂時計は勝手になっていたので
　Application.Cursor は使用していません）
Private Sub cmdボタン_Click()
　　cmdボタン.Enabled = False
　　（セルに状況を表示するために保護解除）
　　ActiveWorkbook.Worksheets("MENU").Unprotect
　　Call 計算処理
　　ActiveWorkbook.Worksheets("MENU").Protect
　　cmdボタン.Enabled = True
End Sub

Private Sub 計算処理()
　　Application.EnableEvents = False
　　Application.DisplayAlerts = False
　　Application.ScreenUpdating = False
　
　　（各セルに計算結果をセット）

　　（EnableEvents、DisplayAlertsのTrueセットはありませんでした・・）
　　Application.ScreenUpdating = True
End Sub

どれかが悪さしているのですかね？？　
【14602】Re:砂時計中のクリック
発言  ichinose  - 04/6/2(水) 20:34 -
引用なし
パスワード
   ▼こにしき さん、Asakiさん
こんばんは。

>Private Sub cmdボタン_Click()
>　　cmdボタン.Enabled = False
>　　（セルに状況を表示するために保護解除）
>　　ActiveWorkbook.Worksheets("MENU").Unprotect
>　　Call 計算処理
>　　ActiveWorkbook.Worksheets("MENU").Protect
　　 doevents
>　　cmdボタン.Enabled = True
>End Sub

と.Enabled = Trueの直前に「Doevents」とした場合
どうでしょうか？

私の方で簡単なテストでは２度の実行を防いでくれましたが・・・。

確認してみて下さい。
【14619】Re:砂時計中のクリック
お礼  こにしき  - 04/6/3(木) 9:48 -
引用なし
パスワード
   ▼ichinose さん
おはようございます。

あの位置のDoEventsで大丈夫そうです。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11709 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free