Excel 2003 にてマクロの実行中にESCキーを押されるとコードの実行が中断されるのを抑制したいのですができません。
シートに直接テキストボックスコントロールを貼り付けています。
そのテキストボックスにKeyDownイベントプロシージャを記述しています。
テキストボックスにIMEの全角文字を入力中(未確定状態)の時に、ESCキーを押すとコードの実行を中断しましたというダイアログが出てしまいます。
KeyDownイベントプロシージャの内容の有無にかかわらず(処理は無記入でも)、ESCキーを押すとダイアログが表示されてしまいますので、ESCキーを押してもダイアログが表示されず処理が中断されない方法はありませんでしょうか。
調べましたところ、
Application.EnableCancelKey = xlDisabled
にてESCキーを無効にする事ができるそうなのですが、BOOKを開いた時のイベントにて
上記コードを記載しているのですが、抑制はできません。
何かしら別の方法で対応などはできないものなのでしょうか。
よろしくご教示をお願い申し上げます。
No.3
- 回答日時:
解決でなによりです。
>GotFocusに処理が留まり続けることで、Application.EnableCancelKey = xlDisabled が有効となり続けるという解釈でよいでしょうか。
概ねその通りです。
TextBox1がFocusを得たとき、TextBox1_GotFocusイベントが実行されます。
このイベントプロシージャが終了するまで EnableCancelKey = xlDisabled です。
Do
Sleep 1
DoEvents
Loop Until flg
Loop終了条件 flg = True ...つまり LostFocusイベントが発生するまで
このLoopが回り続けますから、ずっとEnableCancelKey = xlDisabled です。
Loopの中でDoEvents関数で他プロシージャが実行できるようにしてありますので
xlDisabled状態でKeyDownイベントが発生する事になります。
#ちなみに Sleep 1 はCPU使用率100%を回避する為。
ご丁寧にご教示頂きましてありがとうございます。
おかげさまで理解できました。
なるほど私が勘違いしていました。
まだまだ勉強が必要な様です。
どうもありがとうございました。
No.2ベストアンサー
- 回答日時:
KeyDownイベントの内容がわからないので今ひとつ不安ですが、
以下で対応できるかもしれません。
'Sheetモジュール
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private flg As Boolean
Private Sub TextBox1_GotFocus()
Application.EnableCancelKey = xlDisabled
flg = False
Do
Sleep 1
DoEvents
Loop Until flg
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'処理
End Sub
Private Sub TextBox1_LostFocus()
flg = True
End Sub
ご連絡が遅くなりまして申し訳ありません。
確かに出来ました!!
ありがとうございます。
しかし何故問題が発生しないのか、今ひとつ理解できていません。
GotFocusに処理が留まり続けることで、Application.EnableCancelKey = xlDisabled が有効となり続けるという解釈でよいでしょうか。
何にせよ問題が解決しました。ご丁寧にご教示頂きましてありがとうございます。
No.1
- 回答日時:
こんにちは。
BOOKを開いた時のイベントにて記載するのではなく、
全て Sub, Function の先頭に記載してみてください。
ご回答ありがとうございます。
試しに新規BOOKのsheet1にテキストボックスコントロールを貼り付けて以下のコードのみを記述し、テキストボックスに全角入力中にESCキーをおしてみたところ、コードの中断のダイアログボックスが表示されてしまいました。
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Application.EnableCancelKey = xlDisabled
End Sub
その他のプロシージャを記述し、設定しなければいけないのでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
JSPの処理の途中で、JavaScript...
-
初心者です。gulpでコンパイル...
-
resizeToメソッドが動作しません
-
デザイン時のVisible=Falseは実...
-
if(1){...}とはどういうことで...
-
jQuery ui Datepicker 明日以降...
-
innerHTMLなどの反映タイミング
-
実行順番
-
PowerPointで時計表示
-
Excelのマクロ一括実行ができな...
-
2回目のSortメソッドが失敗~20...
-
〔Excel:VBA〕マクロの実行が異...
-
GoTo文とかSelect文の処理の仕...
-
func関数は、どのような動作を...
-
条件に一致しない行を全て削除...
-
eachメソッド_JQueryで質問です><
-
既存のwebサイトで、ローカルの...
-
onload onunload onbeforeunloa...
-
1つのVBAコードをすべてのコア...
-
フォルダを自動で開く
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
JSPの処理の途中で、JavaScript...
-
初心者です。gulpでコンパイル...
-
if(1){...}とはどういうことで...
-
C#でボタン名を変更しても動く
-
VBA ステータスバー DoEvents
-
デザイン時のVisible=Falseは実...
-
PowerPointで時計表示
-
〔Excel:VBA〕マクロの実行が異...
-
1つのVBAコードをすべてのコア...
-
既存のwebサイトで、ローカルの...
-
innerHTMLなどの反映タイミング
-
VBA SORT Applyでエラー
-
Excelのマクロ一括実行ができな...
-
resizeToメソッドが動作しません
-
JavaScriptでショートカットキ...
-
jQuery ui Datepicker 明日以降...
-
CTRL + Xを無効にしたい
-
アクセスのフォームでタイマー...
-
javascriptで最初のところに戻...
-
リクエスト結果が一瞬しか表示...
おすすめ情報