Требуется объект Excel

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

@ Джо, обязательно проверь название своих текстовых полей.это должно быть то же самое в вашем коде.Также попробуйте изменить диапазон вашего дополнения.

вместо:

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

попробуйте следующий код:

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

, чтобы он начинался со столбца A1и добавьте значение в первую пустую ячейку.

Answer 2

Ваш код не может "видеть" переменные, такие как TextBoxProductCode , поскольку они не Dim 'ed или Set в области действия подпрограммы.