Question

我有一个Userform，里面有Textboxes。

当我尝试单击表单中的Submit按钮时，出现错误Error 1004 "Application-defined or Object-defined error"。为什么会出现该错误？

这是代码

Private Sub btnSubmit_Click()
    Sheet2.Activate
    Dim lastRow2 As Long
    lastRow2 = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1

    Sheets("Sheet2").Range("A" & lr4).Value = CDate(Me.tbDate).Value
    Sheets("Sheet2").Range("B" & lr4).Value = Me.tbProduct.Value
    Sheets("Sheet2").Range("C" & lr4).Value = Me.tbQty.Value
    Sheets("Sheet2").Range("D" & lr4).Value = Me.tbPrice.Value        
End Sub

Private Sub UserForm_Initialize()
    Me.tbDate.Value = Date
    Me.tbProduct.Value = ""
    Me.tbQty.Value = ""
    Me.tbPrice.Value = ""
End Sub

Answer 1

因为fun onClickItem(view : View, yourItem : YourItem){ Log.e(TAG,"$view is clicked with $yourItem") }是lr4，所以您收到该错误。

更多说明

一旦您固定了Sheets("Sheet2").Range("A" & lr4).Value = CDate(Me.tbDate).Value的值，您将不会获得问题中提到的lr4。但是，您将在Applicaiton Defined Error中得到.Value的语法错误。删除它或将其更改为Cdate

错误1004“应用程序定义或对象定义的错误

1 个答案: