|
▼ponponさん neptune さん:
ご指摘頂き有難うございます。
Userformを使った方が入力がシンプルですね。
ピント来ませんでした。
同じ処理を別のプロシージャにする、言葉の理解はできますが
コードのイメージが湧いてきません。もう少し勉強してみます…
日付をセルの書式設定を…これをコードで、っと考えていたのですが
UserFormで検討しました。こんな感じでしょうか。
Private Sub CommandButton1_Click()
Range("A" & Rows.Count).End(xlUp).Offset(1).Value = TextBox1.Value
TextBox1 = ""
Range("B" & Rows.Count).End(xlUp).Offset(1).Value = TextBox2.Value
TextBox2 = ""
Range("C" & Rows.Count).End(xlUp).Offset(1).Value = TextBox3.Value
TextBox3 = ""
Range("D" & Rows.Count).End(xlUp).Offset(1).Value = TextBox4.Value
TextBox4 = ""
TextBox1.SetFocus
End Sub
|
|