ACCESS VBAでファンクションキーを割り当てる

コマンドボタンクリックではなく、ファンクションキーを押下することで処理を実行したいことがあります。

マウスでコマンドボタンまでカーソルを移動してクリックする数秒を考えると、ボタン１つ押下するだけで処理が実行できた方が効率的です。

今回はVBAでファンクションキー押下時の処理を制御する方法をご紹介します。

ACCESSのキー定数

まずはAccessでキー割り当てによく使う定数を確認します。
数字やアルファベットなどの入力にもそれぞれキー定数が割り当てられています。

キー	定数
F1キー　～　F16キー	vbKeyF1　～　vbKeyF16
A　～　Z	vbKeyA　～　vbKeyZ
０　～　９	vbKey0　～　vbKey9
[テンキー] ０　～　９	vbKeyNumpad0　～　vbKeyNumpad9
マウスの左ボタン	vbKeyLButton
マウスの右ボタン	vbKeyRButton
マウスの中央ボタン	vbKeyMButton
Cancelキー	vbKeyCancel
BackSpaceキー	vbKeyBack
Tabキー	vbKeyTab
Clearキー	vbKeyClear
Enterキー	vbKeyReturn
Shiftキー	vbKeyShift
Ctrlキー	vbKeyControl
Menuキー	vbKeyMenu
Pauseキー	vbKeyPause
CapsLockキー	vbKeyCapital
Escキー	vbKeyEscape
Spaceキー	vbKeySpace
PageUpキー	vbKeyPageUp
PageDownキー	vbKeyPageDown
Endキー	vbKeyEnd
Homeキー	vbKeyHome
←	vbKeyLeft
↑	vbKeyUp
→	vbKeyRight
↓	vbKeyDown
Selectキー	vbKeySelect
PrintScreenキー	vbKeyPrint
Executeキー	vbKeyExecute
Snapshotキー	vbKeySnapshot
Insキー	vbKeyInsert
Delキー	vbKeyDelete
Helpキー	vbKeyHelp
NumLockキー	vbKeyNumlock
*（乗算記号）	vbKeyMultiply
+（加算記号）	vbKeyAdd
Enterキー（テンキー）	vbKeySeparator
-（減算記号）	vbKeySubtract
.（小数点記号）	vbKeyDecimal
/（除算記号）	vbKeyDivide

フォームのキーイベント取得プロパティをONにする

VBAでキーイベントの処理を記載しているのにキー押下に反応しない場合は、フォームのプロパティ【キーイベント取得】が「いいえ」になっていないか確認してください。

このプロパティが「はい」になっていないと、キークリック時イベントに処理を記載していても動作しません。

ファンクションキーイベントを取得する

以下はF２～F１２までのキー押下イベントでそれぞれのメッセージを表示するサンプルプログラムです。

KeyDownイベントの引数KeyCodeをファンクションキーイベントの定数と比較して処理を記述します。

処理したいファンクションキーが１つや２つならIF文で処理してもOKです。

数が多ければSELECT CASE文で処理してください。

尚、F1キーにはAccessのヘルプが割り当てられているので通常は使用しません。

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    Select Case KeyCode
        Case vbKeyF2:
            MsgBox "F2キー押下"
        Case vbKeyF3:
            MsgBox "F3キー押下"
        Case vbKeyF4:
            MsgBox "F4キー押下"
        Case vbKeyF5:
            MsgBox "F5キー押下"
        Case vbKeyF6:
            MsgBox "F6キー押下"
        Case vbKeyF7:
            MsgBox "F7キー押下"
        Case vbKeyF8:
            MsgBox "F8キー押下"
        Case vbKeyF9:
            MsgBox "F9キー押下"
        Case vbKeyF10:
            MsgBox "F10キー押下"
        Case vbKeyF11:
            MsgBox "F11キー押下"
        Case vbKeyF12:
            MsgBox "F12キー押下"
    End Select
    
End Sub

補助キーとの組み合わせでイベントを取得する

KeyDownイベントではKeyCodeの他にもう一つ引数を持っています。

Shift変数です。この変数で「Shift」「Ctrl」「Alt」などの補助キーが同時に押下されているかどうかを判断できます。

以下のサンプルプログラムではF５キーの押下処理で、全ての補助キーの組み合わせでメッセージを出し分けるようにしています。

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    Select Case KeyCode
        Case vbKeyF2:
            MsgBox "F2キー押下"
        Case vbKeyF3:
            MsgBox "F3キー押下"
        Case vbKeyF4:
            MsgBox "F4キー押下"
        Case vbKeyF5:
            Select Case Shift
                Case 0:
                    MsgBox "F5キー単独押下"
                Case 1
                    MsgBox "SHIFT＋F5キー押下"
                Case 2
                    MsgBox "CTRL＋F5キー押下"
                Case 3
                    MsgBox "SHIFT+CTRL＋F5キー押下"
                Case 4
                    MsgBox "ALT＋F5キー押下"
                Case 5
                    MsgBox "SHIFT+CTRL＋F5キー押下"
                Case 6
                    MsgBox "CTRL＋ALT＋F5キー押下"
                Case 7
                    MsgBox "SHIFT＋CTRL＋ALT＋F5キー押下"
            End Select
        Case vbKeyF6:
            MsgBox "F6キー押下"
        Case vbKeyF7:
            MsgBox "F7キー押下"
        Case vbKeyF8:
            MsgBox "F8キー押下"
        Case vbKeyF9:
            MsgBox "F9キー押下"
        Case vbKeyF10:
            MsgBox "F10キー押下"
        Case vbKeyF11:
            MsgBox "F11キー押下"
        Case vbKeyF12:
            MsgBox "F12キー押下"
    End Select
    
End Sub

引数Shiftはビットフィールドになっています。

補助キー	ビット	定数
なし	０	なし
Shiftキー	1	acShiftMask
Ctrlキー	２	acCtrlMask
Altキー	４	acAltMask

これらのキーを組み合わせる（合計する）ことにより、複数のキーの組み合わせも判断できます。

複合キーの組み合わせは0を含めて全部で8通りになります。

先のサンプルプログラムではShift変数の８通りのCASEを全て（０～７まで）記述しています。

このように補助キーを組み合わせて入力されたキーを取得できますので、隠しコマンドを記述することもできますね。