|
こんにちは。
>If TextBox1.Value Or TextBox2.Value Or TextBox3.Value = "" Then
>MsgBox "入力に空きがあります"
>End If
と最後に判定していますが、
>TextBox1.Value = ""
>TextBox2.Value = ""
>TextBox3.Value = ""
の後では、いつも "入力に空きがあります"となるのでは?
コードを私なりに整理してみました。
Private Sub CommandButton1_Click()
If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Then
MsgBox "入力に空きがあります"
Else
With Range("A65536").End(xlUp).Offset(1, 0)
.Value = TextBox1.Value
.Offset(, 1).Value = TextBox2.Value
.Offset(, 2).Value = TextBox3.Value
End With
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox1.SetFocus
End If
End Sub
|
|