|
ユーザフォームを使いデータをエクセルの表に転記しています。
テキストボックスを4個使用していますが、4データを入力後
エクセルの表に転記させるとき、EnterKeyを使用していますが、
3回叩かないと、転記できません。コマンドボタンですと1回で済みますが。
コードに問題があるかと思いますが、チェックいただければ
幸いなのですが、お願いします。
Private Sub CommandButton1_Click()
If TextBox1.Value = "" Or TextBox2.Value = "" _
Or TextBox3.Value = "" Or TextBox4.Value = "" Then
MsgBox "入力に空きがあります"
Else
With Cells(65536, 1).End(xlUp).Offset(1, 0)
.Value = TextBox1.Value
.Offset(, 1).Value = TextBox2.Value
.Offset(, 2).Value = TextBox3.Value
.Offset(, 3).Value = TextBox4.Value
End With
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox1.SetFocus
End If
End Sub
|
|