Sub 登録フォーム呼出()
登録フォーム.Show
End Sub
Private Sub CommandButton1_C;ick()
最終行 = Cells(Rows.Count, 2).End(xlUp).Row
Cells(最終行 + 1,2).Value =TextBox1.Value
Cells(最終行 + 1,3).Value =TextBox2.Value
Cells(最終行 + 1,4).Value =TextBox3.Value
Cells(最終行 + 1,5).Value =TextBox4.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""