HOME > 即効テクニック > Excel VBA > その他関連のテクニック > リストボックスでEnterキーを押して次のコントロールに移動する

即効テクニック

その他関連のテクニック

リストボックスでEnterキーを押して次のコントロールに移動する

(Excel 97)
次のコントロールに移動するようにします。
リストボックスの「KeyPress」イベントでEnterキーが押されたらSendKeysメソッドで「TAB」キーを押す処理をします。
Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    If KeyAscii = 13 And Not ListBox1.Value = "" Then
        Application.SendKeys ("{TAB}")
    End If

End Sub