コントロールでキーを押したり離したりしたときに発生するイベント(KeyDown,KeyUp,KeyPressイベント)

ユーザーフォームに設置したコントロールでキーを押したときに発生するイベントが KeyDown イベントおよび KeyPress イベント、そしてキーを離したときに発生するイベントが KeyUp イベントです。ここでは Excel のユーザーフォームで KeyDown、 KeyUp および KeyPress イベントがどのようなときに発生するのかやイベントが発生したときに呼び出されるイベントプロシージャの記述方法について解説します。

(Last modified: 2023年02月13日)

ユーザーフォームにおけるKeyDownおよびKeyUpイベントとは

ユーザーフォームにおける KeyDown イベントおよび KeyUp イベントがどのような時に発生するのか、また発生したときのイベントプロシージャの記述方法について解説します。

どのようなときにイベントが発生するのか

KeyDown イベントはユーザーフォームまたはコントロールにフォーカスがあるときにキーを押すと発生します。

KeyUp イベントはユーザーフォームまたはコントロールにフォーカスがあるときにキーを離すと発生します。

このイベントは ANSI キーを押したときにも発生しますが、主にファンクションキーなどの拡張キーや HOME や矢印などの移動キー、数字キーなどのキーが押されたかどうかを検出するのに使用されます。 ANSI キーを押したときの処理は KeyPress イベントが使用されます。

KeyDownおよびKeyUpイベントのイベントプロシージャ

KeyDown イベントおよび KeyUp イベントに対するイベントプロシージャは次のような形式となっています。

Private Sub オブジェクト_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

End Sub

Private Sub オブジェクト_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

End Sub

イベントプロシージャの引数である KeyCode には押されたキーのコードを表す数値が入力されています。イベントプロシージャの中で 0 を設定することでキーが押されていないことにすることができます。

引数の Shift の値を参照することで Shift キー、 Ctrl キー、および Alt キーが押されているかどうか参照できます。いずれも押されていない場合は 0 となります。

対象のコントロールにフォーカスがある状態でキーが押されると KeyDown イベントが発生し、キーが離されると KeyUp イベントが発生し、それぞれのイベントに対するイベントプロシージャが呼び出されます

それでは簡単なサンプルで試してみます。ユーザーフォームにテキストボックスを設置しました。

テキストボックスに対する KeyDown イベントのイベントプロシージャの中で、入力されたキーのキーコードを調べ、数字の 0 から 9 の文字のキー、または BackSpace キー以外のキーが押された場合はキーの入力を無効にします。( Excel では文字毎のキーコードを定数で定義しており、その定数と比較しています。定数の一覧はこのページの最後に記載しています)。

Option Explicit

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode <> vbKeyBack And (KeyCode < vbKey0 Or KeyCode > vbKey9) Then
        KeyCode = 0
    End If
End Sub

これでコードの記述は完了です。では実際に試してみます。「Sub/ユーザーフォームの実行」をクリックしてください。

ユーザーフォームが表示されました。

このテキストボックスには、キーボードに表示されている数字キーを押して数字をの文字を入力することはできますが、それ以外の文字のキーを押しても入力されません。( BackSpace キーだけは押すと文字を削除できます)。

今回は KeyDown イベントのイベントプロシージャだけを使用しましたが、フォーカスがあるコントロールに対してキーを押したときに何らかの処理を行うことができました。

ユーザーフォームにおけるKeyPressイベントとは

ユーザーフォームにおける KeyPres イベントがどのような時に発生するのか、また発生したときのイベントプロシージャの記述方法について解説します。

どのようなときにイベントが発生するのか

KeyPres イベントはユーザーフォームまたはコントロールにフォーカスがあるときに ANSI キーを押すと発生します。 KeyDown イベントと異なり ANSI キーを押したときだけイベントが発生します。

KeyPresイベントのイベントプロシージャ

KeyPres イベントに対するイベントプロシージャは次のような形式となっています。

Private Sub オブジェクト_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

End Sub

イベントプロシージャの引数である KeyAscii には押されたキーのコードを表す数値が入力されています。イベントプロシージャの中で 0 を設定することでキーが押されていないことにすることができます。

対象のコントロールにフォーカスがある状態で ASCII キーが押されると KeyPress イベントが発生しイベントプロシージャが呼び出されます

それでは簡単なサンプルで試してみます。ユーザーフォームにテキストボックスを設置しました。

テキストボックスに対する KeyPress イベントのイベントプロシージャの中で、入力されたキーを大文字に変換して表示します(キーコードを文字に変換したあと、文字を大文字に変換し、変換した文字をキーコードに変換して KeyAscii に設定しています)。

Option Explicit

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = Asc(StrConv(Chr(KeyAscii), vbUpperCase))
End Sub

これでコードの記述は完了です。では実際に試してみます。「Sub/ユーザーフォームの実行」をクリックしてください。

ユーザーフォームが表示されました。

このテキストボックスにフォーカスがあるときにアルファベットの文字をキーボードで押すと、大文字に変換されてテキストボックスに表示されます。

KeyDown、KeyUp、KeyPressイベントの発生する順番

コントロールにフォーカスがあるときにキーを押すと、 KeyDown イベント、 KeyUp イベント、 KeyPress イベントが発生します。どの順番にイベントが発生するのかを確認してみます。

ユーザーフォームにテキストボックスを設置しました。

テキストボックスに対する 3 つのイベントのイベントプロシージャをそれぞれ次のように記述しました。イベントが発生するとイミディエイトウィンドウにでイベントの種類を出力します。

Option Explicit

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Debug.Print "KeyDown"
End Sub

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Debug.Print "KeyUp"
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Debug.Print "KeyPress"
End Sub

何かキーを押してください。( KeyPress イベントが発生するように ASCII 文字のキーを押してください)。

イミディエイトウィンドウを確認すると、 KeyDown 、 KeyPress 、 KeyUp の順番でイベントが発生することが確認できます。

キーコード毎に定義されている定数

Excel ではキーコードで表される数値毎に定数が定義されており、キーコードの値がどの文字を表すのか調べる場合に数値を比較する代わりにキーコードの値と定数を比較することができます。

次の定数は A から Z までのキーを表します。

次の定数はキーボードの数字キーを表します。

次の定数はテンキーの数字キーを表します。

次の定数はファンクションキーを表します。

-- --

Excel のユーザーフォームで KeyDown および KeyUp イベントがどのようなときに発生するのかやイベントが発生したときに呼び出されるイベントプロシージャの記述方法について解説しました。

著者 / TATSUO IKURA

プログラミングや開発環境構築の解説サイトを運営しています。