ユーザーフォーム入門
Enterキーで次のコントロールに移動する

Excelマクロのユーザーフォームの基礎、エクセルVBAの入門解説
最終更新日:2019-12-17

第17回.Enterキーで次のコントロールに移動する


ユーザーフォーム入門として基礎から解説します。
Enterキーの押下で、(タブ順が)次のコントロールに順々に移動してほしいものです。


ユーザーフォームでのEnterキー動作について

テキストボックスは、Enterキー押下で次のコントロールに進みます。
(MultiLineの場合は、テキスト内の改行となります。)
しかし、他のコンボボックス・リストボックス・チェックボックス・オプションボタンでは、
Enterキーでは、次のコントロールに進みません。
実際に操作してみると、やはり違和感がありますね。

Windowsの規定では、Tabキーで次に進む事になっていますが、
やはり、Enterキーで進んだ方が操作性が良いと思います。
では、そのコードを実装してみましょう。

テキストボックスは、元々Enterキー押下で次のコントロールに進みますので、
その他のコントロールについてのみ記述を追加します。


KeyDownイベント

Private Sub cmb区分_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = vbKeyReturn Then
    Me.lst都道府県.SetFocus
  End If
End Sub
Private Sub lst都道府県_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = vbKeyReturn Then
    Me.opt企業.SetFocus
  End If
End Sub
Private Sub opt企業_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = vbKeyReturn Then
    Me.opt個人.SetFocus
  End If
End Sub
Private Sub opt個人_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = vbKeyReturn Then
    Me.chk休止.SetFocus
  End If
End Sub
Private Sub chk休止_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = vbKeyReturn Then
    Me.btnOk.SetFocus
  End If
End Sub

特に解説も必要ないでしょう。

KeyDownイベントで、KeyCodeがEnterキー(Returnキー)か判定をし、
Enterキーの場合は、次のコントロールにSetFocusrする。
これだけです。

細かい話としては、Shiftキー押下を判定して、Shiftキーが押されている場合は、
前のコントロールに戻るようにしてやる事もありますが、
その場合は、テキストボックスにも同様に、
Shiftキーが押されている場合の処理を書く必要があります。
試しにやってみるのも良いでしょう。

KeyPressイベント

キー押下の判定を、
KeyPressイベントに入れているコードを見かける事もあります。



Private Sub cmb区分_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii = 13 Then
    Me.lst都道府県.SetFocus
  End If
End Sub

このような感じのVBAですね。
まあ、これでも正しく動作しますが、KeyPressイベントではShiftキー押下の判定ができません。
先々の機能拡張を考慮した場合、KeyDownイベントで処理しておいた方が良いでしょう。



同じテーマ「ユーザーフォーム入門」の記事

第14回.オプションボタン(OptionButton)の追加
第15回.ここまでの整理と全VBA
第16回.アクティブコントロールに色を付ける
第17回.Enterキーで次のコントロールに移動する
第18回.2段階のコンボボックス
第19回.数値専用のテキストボックス
第20回.テキストボックスの各種イベント
第21回.ユーザーフォームの各種イベント
第22回.コントロールの動的作成
第23回.イベントプロシージャーの共通化
第24回.イベントプロシージャーの共通化(Enter,Exit)


新着記事NEW ・・・新着記事一覧を見る

シート関数のCOUNTIFS,SUMIFS,MAXIFSと同じ処理|Power Query(M言語)入門(2023-02-28)
新旧マスタの差異比較|Power Query(M言語)入門(2023-02-28)
有効な最新単価の取得|Power Query(M言語)入門(2023-02-26)
有効な最新単価の取得|Power Query(M言語)入門(2023-02-21)
グルーブ内の最小・最大|Power Query(M言語)入門(2023-02-17)
2つのテーブルのマージ|Power Query(M言語)入門(2023-02-15)
「売上」が数値の行のみ取り込む|Power Query(M言語)入門(2023-02-13)
A列のヘッダー名を変更する|Power Query(M言語)入門(2023-02-11)
CSVのA列が日付の行だけを取り込む|Power Query(M言語)入門(2023-02-10)
列数不定のCSVの取り込み|Power Query(M言語)入門(2023-02-09)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.繰り返し処理(For Next)|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.マクロって何?VBAって何?|VBA入門
7.並べ替え(Sort)|VBA入門
8.エクセルVBAでのシート指定方法|VBA技術解説
9.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
10.ブックを閉じる・保存(Close,Save,SaveAs)|VBA入門




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ