如何通过VBA添加新记录

Question

我正试图通过Vba用户输入表单添加新记录，但我正在获得运行时错误1004运行时错误1004 vba应用程序定义或对象定义错误。有人能帮帮我吗?请在下面找到我的代码

Private Sub CommandButton1_Click()
Sheet7.Activate
Range("a1").End(x1Down).Offset(1, 0).Value = Range("a1").End(x1Down).Value + 1
Range("b1").End(x1Down).Offset(1, 0).Value = TextBox27.Value
Range("c1").End(x1Down).Offset(1, 0).Value = ComboBox8.Value
Range("d1").End(x1Down).Offset(1, 0).Value = ComboBox3.Value
Range("e1").End(x1Down).Offset(1, 0).Value = TextBox50.Value
Range("f1").End(x1Down).Offset(1, 0).Value = ComboBox1.Value
Range("g1").End(x1Down).Offset(1, 0).Value = TextBox48.Value
Range("h1").End(x1Down).Offset(1, 0).Value = TextBox47.Value
Range("i1").End(x1Down).Offset(1, 0).Value = TextBox46.Value
Range("j1").End(x1Down).Offset(1, 0).Value = ComboBox7.Value
Range("k1").End(x1Down).Offset(1, 0).Value = TextBox44.Value
Range("l1").End(x1Down).Offset(1, 0).Value = TextBox43.Value
Range("m1").End(x1Down).Offset(1, 0).Value = TextBox42.Value
Range("n1").End(x1Down).Offset(1, 0).Value = TextBox41.Value
Range("o1").End(x1Down).Offset(1, 0).Value = TextBox40.Value
Range("p1").End(x1Down).Offset(1, 0).Value = TextBox39.Value
Range("q1").End(x1Down).Offset(1, 0).Value = TextBox38.Value
Range("r1").End(x1Down).Offset(1, 0).Value = TextBox37.Value
Range("s1").End(x1Down).Offset(1, 0).Value = TextBox36.Value
Range("t1").End(x1Down).Offset(1, 0).Value = TextBox35.Value
Range("u1").End(x1Down).Offset(1, 0).Value = TextBox34.Value
Range("v1").End(x1Down).Offset(1, 0).Value = TextBox28.Value
Range("w1").End(x1Down).Offset(1, 0).Value = TextBox32.Value
Range("x1").End(x1Down).Offset(1, 0).Value = TextBox31.Value

Answer 1

你应该只使用End()一次，在保证总是有一个值的列上:如果你对每个值使用End()，那么你的数据可能最终在不同的行上。

,

Private Sub CommandButton1_Click()
Dim rw As Range
'Find the next empty row
Set rw = Sheet7.Cells(rows.count, "A").end(xlUp).offset(1).EntireRow

'Add the form date
With rw
.Columns(1).value = .Columns(1).Offset(-1).value + 1
.Columns(2).value = TextBox27.Value 
.Columns(3).value = ComboBox8.Value
.Columns(4).value = ComboBox3.Value
'etc etc
End with