コントロールをEnterキーで移動するには？ (ID:79964)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Tabとほぼ同じ働きをさせたいなら、たとえばこう。 Option Explicit Private Sub Form_KeyPress(KeyAscii As Integer) Dim obj As Object If KeyAscii = Asc(vbCr) Then Set obj = Me.ActiveControl Me.ActiveControl.Enabled = False obj.Enabled = True Set obj = Nothing End If End Sub Private Sub Form_Load() Me.KeyPreview = True End Sub