いつもお世話になっています。
VBAのユーザーフォーム上で、KeyDown イベントを使いたいのですが、下のコードが動きませんでした。
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If e.KeyCode = Keys.z Then
MsgBox "効いてるよ!"
End If
End Sub
エラー表示も出ません。
ウェブで調べたところ、VBでは「KeyPreview」プロパティーを「true」にすれば解決するという記事をあちこちで見かけましたが、VBA(Excel2003)のユーザーフォームプロパティには、そのような項目が見当たりません。コード上で無理やり設定してみるとエラーになります。
どのようにすれば解決するでしょうか? お知恵をお貸し下さい。
No.2ベストアンサー
- 回答日時:
フォーム上に、テキストボックスなどの
「キー入力を受け取るコントロール」があると、
そっちのコントロールの KeyDown イベントで処理されてしまって、
フォームの KeyDown イベントが呼ばれません。それを解決するのが
KeyPreview プロパティなわけですが、
……Excel には存在しないないようですね。
Access にはそれ相当のものがあるのに。
と言うわけで、処理を関数化して、すべてのコントロールの
KeyDown イベントから呼び出すようにする、しか手はなさそうです。
新しいコントロールを追加して KeyDown イベントを書き忘れて、
「キーが効かないときがあるんだけど……」
ってことになりやすいので気をつけましょう。
ご回答有難うございます。お礼が遅くなってすいません。
仰る通り、他にボタンを配置していたのがいけなかったようです。ボタンを使わない方法に変えてなんとか処理しました。
有難うございました。
No.1
- 回答日時:
エクセルのマクロ(VBA)ということでしょか?
こちらは2003ではありませんが
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
MsgBox "ok"
End If
End Sub
で動きますが。
(ENTER押下時の処理です)
ご回答有難うございます。お礼が遅くなってすいません。
確かに動きますね。どうやらボタンを配置していたのがいけなかったようです。有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
KEYPREVIEW=TRUEについて。意味が分かりません・・。
Visual Basic(VBA)
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
エクセルVBA フォーム上でOnkeyがうまく出来ない
Excel(エクセル)
-
-
4
Excelマクロ、フォーム入力での矢印移動禁止
Excel(エクセル)
-
5
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
6
Excel VBA ListViewサブアイテムの文字色
その他(プログラミング・Web制作)
-
7
テキストボックスのvalueとtextの違い
Visual Basic(VBA)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
10
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
11
ListView 項目の選択/選択解除について
Visual Basic(VBA)
-
12
どこにもフォーカスを当てたくない
Access(アクセス)
-
13
エクセルVBAでフォームのListboxをスクロールするには?
その他(Microsoft Office)
-
14
矢印(左右)キーでイベントを発生させたい。
Visual Basic(VBA)
-
15
ユーザーフォームのSetFocusが働かない?
その他(プログラミング・Web制作)
-
16
VBAでListViewのフォントを変更する方法
Visual Basic(VBA)
-
17
VBA ListViewの選択Itemを削除する
Excel(エクセル)
-
18
プロシージャからイベントをコールする
Visual Basic(VBA)
-
19
Keydownイベントについて
Visual Basic(VBA)
-
20
VB.NET2005 TextBox 高さ(Height) 変更
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カメラスクロールするのを動画...
-
excel vbaでユーザーフォームに...
-
excelのリストボックスで選択し...
-
Excelで、コンボボックスで選択...
-
ACCESS2010のVBAでフォーム内ク...
-
コントロールの絶対位置を取得...
-
エクセルVBAユーザーフォーム・...
-
VBAでタブのページを削除す...
-
キンドルでの購入が親にバレな...
-
C言語による「テキストファイル...
-
JavaScriptからVBAの関数を呼び...
-
優しくされると甘えて調子に乗...
-
EXCEL VBA リストビューの項...
-
現代文読解力開発講座の問題です。
-
wsock32.dllによるconnectのtim...
-
With~EndWithの省略部分と引数...
-
VC++6.0 MFC 日時指定コントロ...
-
カレンダーコントロールの使用...
-
トグルボタン一部を一度にON OF...
-
もしフォームヘッダーにコント...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カメラスクロールするのを動画...
-
エクセル・VBA CheckBoxのオブ...
-
エクセルVBAでオプションボタン...
-
vb.netで画面のコントロールId...
-
ExcelVBAでListViewが使用できない
-
EXCELでactivexコントロールを...
-
コントロールを移動できない
-
フォーム上の現在アクティブな...
-
ユーザーフォームで動的(Me.Con...
-
ListViewのチェックボックスに...
-
C#で角が丸いテキストボックス
-
エクセル コントロールツール...
-
VBAのフォームでTextBoxがいっ...
-
Excel VBA で Richtextboxを使...
-
VBA ユーザーフォームの Keypre...
-
Groupboxの配下のコントロール...
-
ACCESS2010のVBAでフォーム内ク...
-
chr関数の呼び出しで「プロ...
-
vba dbcommand button activex ...
-
With~EndWithの省略部分と引数...
おすすめ情報