如何通過VBA添加新記錄-有解無憂

我正在嘗試通過 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

uj5u.com熱心網友回復：

你應該只在保證總是有一個值的列上使用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

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/494354.html

標籤：擅长 vba

上一篇：如何獲得形狀中的表格單元格范圍（VBAWord）？

下一篇：我們如何將表格排序為服裝排序值？