アクセスVBAのKeyDownイベントについての質問
- アクセスVBAのKeyDownイベントで、特定のキーが押された時に都道府県を設定するプロシージャを作成したいです。
- キーボードのキーコードとシフトキーの値を使って条件分岐を行い、都道府県を設定する方法を教えてください。
- また、ALTやSHIFTキーを指定する場合はどのような引数を使えば良いのか、VBKeyの意味や参照できるページについても教えてください。
- ベストアンサー
アクセスＶＢＡについて教えてください。
アクセスＶＢＡで KeyDown イベントに下記のプロシージャを書きました。 If KeyCode = 49 And Shift = 2 Then 都道府県 = “東京都” End If KeyCode = 49はキーボードの 「１」ということがヘルプのkeycodeの定数表より、 Vbkey1をイミディエトウィンドで調べることによりわかりました。 ?vbkey1 49 Shift = 2 はキーボードのの 「ctrl」のことみたいですが、「ALT」「shift」を指定したい場合の引数は何を入れればよいでしょうか。また、ヘルプで参照になるページがあれば教えてください。 それと vbkey の意味を教えてください。
- shinnnosuke
- お礼率2% (32/1172)
- オフィス系ソフト
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
ヘルプでKeyDownを調べれば答えは出ています。 定数 値 acShiftMask 1 acCtrlMask 2 acAltMask 4 Shiftの値はこの組み合わせです。 ですからShiftキーだけなら１を返し、ShiftとAltキーを同時に押せば５が返ります。 また「vbKey何がし」は定数として定義されているだけです。これはプログラムのコードを読みやすくするために定義しているのです。 ですからif KeyCode = 49 Thenと書くよりもIf KeCode = vbKey1 thenと書く方が見た目にわかりやすいという利点があります。
関連するQ&A
- vbaでの右クリックのチェックについて
いつもお世話になります vbaで下記のようにkeycodeをチェックして作業するプログラムを作成しています If KeyCode=vbKeyX Then 今、右クリックを使って処理するプログラムを作りたいのですが KeyCode定数一覧表から If KeyCode=vbKeyRbutton then とプログラムを 記述しましたが認識されません KeyCode定数一覧表の備考欄には、引数 Shiftとありますが どのような意味なのか分かりません その意味と右クリックの認識の仕方を教えて頂ければ幸いです 以上、よろしくお願い申し上げます
- 締切済み
- その他MS Office製品
- アクセスVBAについて教えてください。
Private Sub Form_ApplyFilter If ApplyType = acShowAllRecords Then フィルタオプション = 1 ElseIf Filter <> “都道府県 = ‘東京都’” Then フィルタオプション = Null End if End Sub アクセスVBAの次の２行について教えてください。 よろしくお願いします。 ApplyType = acShowAllRecords ElseIf Filter <> “都道府県 = ‘東京都’” Then
- ベストアンサー
- オフィス系ソフト
- エクセルBVAのフォーム式のKeyCode～の意味がわかりません
エクセルBVAです Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyDown Then KeyCode = 0 End If End Sub ヘルプをみると キーを押したとき、およびキーを離したときに続いて発生します。KeyDown イベントはキーを押すと発生し、KeyUp イベントはキーを離すと発生します。 キーってenterのことですかね? なら、 If KeyCode = vbKeyDown Then KeyCode = 0 End If で、KeyCodeを0ににするってどういうことでしょうか?
- ベストアンサー
- オフィス系ソフト
- VBA ユーザーフォームの Keypreview について
いつもお世話になっています。 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）のユーザーフォームプロパティには、そのような項目が見当たりません。コード上で無理やり設定してみるとエラーになります。 どのようにすれば解決するでしょうか？ お知恵をお貸し下さい。
- ベストアンサー
- Visual Basic
- Alt+P,Alt+NをPostmessageで送るには
あるアプリがあり、そのハンドルを取得してからメッセージを送るプログラムを作っています。 PageUp,PageDownをそれぞれAlt+P,Alt+Nに変換して送るものです。 関数・定数宣言部は省略しています。 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim hTest As Long hTest = FindWindow(vbNullString, "Test") If KeyCode = 33 Then 'PageUp PostMessage MPL, WM_SYSKEYDOWN, VK_ALT, 0 PostMessage MPL, WM_KEYDOWN, VK_N, 0 PostMessage MPL, WM_KEYUP, VK_N, 0 PostMessage MPL, WM_SYSKEYUP, VK_ALT, 0 ElseIf KeyCode = 34 Then 'PageDown PostMessage MPL, WM_SYSKEYDOWN, VK_ALT, 0 PostMessage MPL, WM_KEYDOWN, VK_P, 0 PostMessage MPL, WM_KEYUP, VK_P, 0 PostMessage MPL, WM_SYSKEYUP, VK_ALT, 0 End If End Sub 送り先(Test.exe)では、 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim L As String L = "" If Shift = 4 Then L = "Alt + " Label1.Caption = L & KeyCode End Sub ラベルで「Alt+P」などが来ているかどうか見ています。こちらのウィンドウで「Alt+P」を押すとちゃんと表示されます。 しかし、この２つを組み合わせるとPのみやNのみしか送られてきません。どこかおかしいのでしょうか。 Alt+PなどをPostMessageで送る方法でよい方法があれば、お教え下さい。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- Altを使ったショートカットキー無効の方法
いつもお世話になってます。 javascriptで、IEのショートカットキーのいくつかを無効にしているのですが、 Altと組み合わせて使うショートカットキーの無効化ができずに困ってます。 例えば、Ctrl＋Iでお気に入りを開く処理の無効化はこう実現できました。 function keydown() { if(event.ctrlKey & event.keyCode == 73){ event.keyCode = 0; return false; } } document.onkeydown = keydown; ですが、Alt＋Dでアドレスバー選択の無効化は以下では実現できませんでした。 function keydown() { if(event.altKey & event.keyCode == 68){ event.keyCode = 0; return false; } } document.onkeydown = keydown; どうすれば実現できるのか、教えてください。
- 締切済み
- JavaScript
- F2+Ctrl押下時のイベント記述方法
VB6を使用しています。 F2+Ctrlを同時に押下した場合の処理の記述がうまくいきません。 Form_KeyDownイベントで下記のように記述しようと考えたのですが、KeyCodeに17が入ってしまいうまくいきません。 アドバイスをお願いします。 ----------------------- select case KeyCode case vbKeyF2 If Shift = 2 Then 'Ctrl+F2押下時 ***処理 End If ※他のファンクションボタンの処理もあるのでcase文にしています。
- ベストアンサー
- Visual Basic
- 特定のキーを入力すると、visible=falseからtrueになるよ
特定のキーを入力すると、visible=falseからtrueになるようにコーディングしたいのですがうまくいきません。次のようにalt+F12でFrameを表示させたいのですが全く反応しません。何故でしょう。 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF12 If Shift = vbAltMask Then Frame2.Visible = True End If End Select End Sub アドバイス願いますm(_ _)m
- ベストアンサー
- Visual Basic
- エクセル VBA タブストップに対する質問2
下記の「エクセル VBA タブストップに対する質問」に書き込みした者ですが、一難去ってまた一難です。又、暗雲が漂ってきました。 条件は下記といっしょで テキストボックスが1～5まであり、テキストボックス2～4まではデータが入っています。 全てのTabStopはTrue、TabIndexは順に1～5が入っています。 テキストボックス1に何もデータを入れないで、Enterが押された場合、 テキストボックス1をアクティブにしたいのですが、下記で質問した回答で動かしても、きちんと動いてくれません。 どうかご指導よろしくお願いいたします。 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then 'ENTER If TextBox1.Value = "" Then TextBox1.SetFocus End If End If End Sub このコードでテキストボックス1に何も入れずにEnterを押すとテキストボックス2がアクティブになってしまいます。
- ベストアンサー
- Visual Basic
- VB6.0 KeyDownイベントの対応
VB6.0を使ってプログラム中ですが、下記の Command10_KeyDown で、複合キー「 Ctrl + ↓」 だとイベント KeyDown を受信できるのですが、単純な キー「↓」だと、イベント KeyDown を受信でず、他のボタンにフォーカスが移ってしまいます。 Comman10_GotFocus に何か対応策を入れて、単純な キー「↓」のイベント KeyDown を受信する方法はないでしょうか？ Private Sub Command10_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 40 Then execsub001() End If End Sub Private Sub Commnad10_Click() execsub001() End Sub Private Sub Comman10_GotFocus() 上記問題への対応策を此処に記述したい End If Private Sub execsub110() 内容は省略 End Sub
- ベストアンサー
- その他（プログラミング・開発）
