| 
    
     |  | ▼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
 
 |  |