VBA ユーザーフォームでデーターの入力

質問

いつもお世話になります。
WIN7 EXCELL2010 です。

現在は
ユーザーフォームを起動し、
日時　　　は自動で今日の日付
ID　　　　入力
売上金額　入力
を順次エンターキー　クリックをクリックして
「入力」ボタンをクリックすると　B C K列にデーターが入力されます。

この現状からいちいち「入力」ボタンをマウスに持ち替えるのはたくさんのデーターを
入力するに面倒で、キーボード上で作業が可能ならば改善したいと思っています。

「入力」ボタンのクリックを「キーボード」のエンター変えたいのですがどうマクロを記述すればいいかご指導いただけませんか。

　※併用が可能ならば「入力」ボタンでのデーター入力もできるのならありがたいのです。

よろしくお願いします。

参考
UserForm1
Private Sub CommandButton1_Click()
'
y = 2
Do While Cells(y, 2) <> ""
y = y + 1
Loop
Cells(y, 2) = TextBox1.Text
Cells(y, 3) = TextBox2.Text
Cells(y, 4) = TextBox3.Text
Cells(y, 11) = TextBox4.Text

TextBox1.Text = Format(Date, "mm/dd")
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox1.SetFocus
End Sub

Module1
Sub FormDisp()
UserForm1.Show vbModeless

End Sub

回答No.1

mt2008 · ベストアンサー

CommandButton1のプロパティでTabIndexの値をTextBox4のTabindexの次の値にするだけでは駄目ですか？
TextBox4の入力が終わるとCommandButton1にフォーカスされますからEnterでCommandButton1を押したことになるはずです。

お礼

早速ご回答をありがとうございました。
「登録」ボタン及びエンターキーでの入力ができました。

追伸
先日は大変お世話になりました。
重ねてありがとうございました。