如何修复 Excel VBA 中所需的调试错误 424 对象答案

【问题标题】：How to fix debugging error 424 object required in Excel VBA如何修复 Excel VBA 中所需的调试错误 424 对象
【发布时间】：2019-08-08 16:46:17
【问题描述】：

我正在使用 Excel VBA 设置一个注册表，使用一个命令按钮，我可以将新数据添加到数据库中。但是，我不断收到所需的错误 424 对象，但我的代码没有发现任何问题。

我已尝试更改 Range 值并创建空值。

Private Sub CommandButton6_Click()
Dim wks As Worksheet
Dim NewPatient As Range
Set wks = Sheet1
Set NewPatient = wks.Range("A65356").End(xlUp).Offset(1, 0)
NewPatient.Offset(0, 0).Value = txtPatientID.Text
NewPatient.Offset(0, 1).Value = txtFirstname.Text
NewPatient.Offset(0, 2).Value = txtLastname.Text
NewPatient.Offset(0, 3).Value = txtIntake.Text
NewPatient.Offset(0, 4).Value = txtLastppointment.Text
NewPatient.Offset(0, 5).Value = txtFollowup.Text
1 stDisplay.ColumnCount = 10
1 stDisplay.RowSource = "A1:J65356"

我希望这段代码能帮助我将新信息添加到数据条目中，但我收到了所需的错误 424 对象。

【问题讨论】：

1 stDisplay 这是什么？
我使用它是为了将数据输入到注册表中。
哪一行具体给出了错误？
@Cyril 给我错误的行是：NewPatient.Offset(0, 0).Value = txtPatientID.Text。
@IgnacioRamirez ...您确认txtPatientID 是用户表单中文本框的名称吗？在运行您的代码时，我得到的错误与您的 .text 对象有关。一旦我将名称添加到文本框，它就会移动到下一行并给出相同的错误，直到我将文本框命名为 txtFirstname

标签： excel vba

【解决方案1】：

您的文本框名称是您的问题。

确保已分配名称，以便它们显示在属性中：

在运行您的代码时（如前所述，注释掉最后两行），我在上面创建的用户窗体上收到一个错误，其中我没有一个名为的文本框：

Private Sub CommandButton6_Click()
    Dim wks As Worksheet
    Dim NewPatient As Range
    Set wks = Sheet1
    Set NewPatient = wks.Range("A65356").End(xlUp).Offset(1, 0)
    NewPatient.Offset(0, 0).Value = txtPatientID.Text
    NewPatient.Offset(0, 1).Value = txtFirstname.Text
    NewPatient.Offset(0, 2).Value = txtLastname.Text  'ERROR LINE FOR ME
    NewPatient.Offset(0, 3).Value = txtIntake.Text
    NewPatient.Offset(0, 4).Value = txtLastppointment.Text
    NewPatient.Offset(0, 5).Value = txtFollowup.Text
    'commenting out the 1 sections as they are giving me an unrelated issue
'1     stDisplay.ColumnCount = 10
'1     stDisplay.RowSource = "A1:J65356"
End Sub

错误信息是：

【讨论】：