|
▼みなみ さん:
>順番に下の行に書き込みされるようにするには どのようなコードを追加すればいいのでしょうか?
一例です
Private Sub demoEntry_Click()
Dim r As Range
Set r = Cells(Rows.Count, 1).End(xlUp).Offset(1)
If r.Row < 6 Then Set r = Range("A6")
r.Range("A1").Value = TextBox1.Value
r.Range("B1").Value = ComboBox1.Value
r.Range("C1").Value = ComboBox2.Value
r.Range("D1").Value = TextBox2.Value
r.Range("E1").Value = TextBox3.Value
r.Range("F1").Value = TextBox4.Value
r.Range("G1").Value = TextBox5.Value
r.Range("H1").Value = TextBox6.Value
r.Range("I1").Value = TextBox7.Value
Unload Me
End Sub
|
|