Question

我正在尝试使用表单将记录添加到我的工作表中。当我单击命令按钮（添加记录）时，它提示我“必需的对象”。

Private Sub CommandButton2_Click()
    Dim wks As Worksheet
    Dim AddNew As Range
    Set wks = Sheet1
    Set AddNew = wks.Range("A65356").End(xlUp).Offset(1, 0)

    AddNew.Offset(0, 0).Value = TextBoxProductCode.Text 
    AddNew.Offset(0, 1).Value = TextBoxProductName.Text
    AddNew.Offset(0, 2).Value = TextBoxDescription.Text
    AddNew.Offset(0, 3).Value = TextBoxCustomerName.Text
    AddNew.Offset(0, 4).Value = TextBoxBottlesRequested.Text
    AddNew.Offset(0, 5).Value = TextBoxDateReceived.Text
    AddNew.Offset(0, 6).Value = TextBoxRequestedETD.Text
    AddNew.Offset(0, 7).Value = TextBoxEnteredBy.Text
    AddNew.Offset(0, 8).Value = TextBoxDate.Text    
End Sub

Answer 1

您的代码无法“看到” TextBoxProductCode 之类的变量，因为它们不是Dim的变量，也不是Set的子变量。 / p>

Answer 2

@Joe，请确保检查文本框的名称。它应该与您的代码相同。另外，请尝试更改您的addnew的范围。

代替：

`Set AddNew = wks.Range("A65356").End(xlUp).Offset(1, 0)`

尝试以下代码：

`Set AddNew = wks.Range("A1").End(xlUp).Offset(1, 0)`

因此它将从A1列开始，并将值添加到第一个空白单元格中。

需要Excel对象

2 个答案: