こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

XL:BeforeDoubleClickが動かない

Excel VBAでダブルクリックしたときに処理をしたいのですがうまくいきません。

対象のワークシートに次のコードを記述して、そのワークシート内のセルをダブルクリックしていますが無反応です。何のコードも実行されません。なぜでしょうか。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Range= " & Target
End Sub

Windows 7 Pro 64bit, Excel 2007

別のブックでも試しましたが同じく無反応です。。。
シートのコードの一番上に
Application.EnableEvents = True
とも書いてみましたがダメです。

投稿日時 - 2014-07-09 09:55:42

QNo.8670862

すぐに回答ほしいです

質問者が選んだベストアンサー

>シートのコードの一番上に Application.EnableEvents = True とも書いてみましたがダメです。
シートのコードの一番上とはWorksheet_BeforeDoubleClickのことでしょうか。

その時点で、Application.EnableEvents = False の状態なら、それらのイベントに入りません、


Sub Rinji()
  Application.EnableEvents = True
End Sub

と書いて、このプロシージャを実行してみるとどうでしょうか。この後、シートでダブルクリックしてみてください。

投稿日時 - 2014-07-09 13:15:45

補足

わかりました!
イベント処理中のコードでエラーが発生してそのままプログラムを終了した場合に起きるんだと思います。
イベント処理中にはほかのイベントが発生しないようにオフにするんだと思います!

地味だけど役立つ知識です。

投稿日時 - 2014-07-09 18:52:07

お礼

ありがとうございます!!!!

そもそもどこでこのイベントが False にされているのかわかりませんが(そんなコード書いてません)やってみたらできました。起動時や要所要所でイベントをオンにするよう念のため記述しておきます。

助かりました!!!!

投稿日時 - 2014-07-09 17:35:55

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問