錯誤 1004“應用程序定義或對象定義的錯誤

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

您收到該錯誤是因為lr4是0 。

Sheets("Sheet2").Range("A" & lr4).Value = CDate(Me.tbDate).Value

更多說明

修復lr4的值后，您將不會收到問題中提到的Applicaiton Defined Error 。 但是， Cdate的.Value ，您將收到語法錯誤。 刪除它或將其更改為CDate(Me.tbDate.Value)