Wie erhält man den Zellenwert in Excel?

Question

Ich möchte meinen Zellenwert mit der Textbox in Excel VBA vergleichen, aber was ich bekomme, ist Objekt definierten Fehler. Ich weiß nicht warum? Bitte helfen Sie?

Private Sub btnPayment_Click() 
    Dim ws As Worksheet 
    For Each ws In Excel.Worksheets 
     If ws.Name = "Payroll" Then 
      Set ws = Worksheets("Payroll") 
       For counter = 0 To ws.UsedRange.Rows.Count 
        If ws.Cells(counter, 3).Value = txtStaffCode.Value Then 
         lblStatus.Caption = "Paid" 
        Else 
         i = ws.UsedRange.Rows.Count 
         j = ws.UsedRange.Rows.Count + 1 
         ws.Cells(i + 1, 1).Value = i 
         ws.Cells(i + 1, 2).Value = Format(Now, "[$-409]m/d/yyyy h:mm AM/PM;@") 
         ws.Cells(i + 1, 3).Value = txtStaffCode.Value 
         ws.Cells(i + 1, 4).Value = txtName.Value 
         ws.Cells(i + 1, 5).Value = Val(txtBaseSalary.Text) 
        End If 
       Next counter 
      Exit For 
     End If 
    Next 
End Sub 

Wenn ws.Cells (Zähler, 3) .Value = txtStaffCode.Value Dann ‚Dies ist die Fehlerzeile. Bitte helfen

Answer 1

Die Sammlung Zellen in Excel ist 1-basiert, Sie davon aus, es ist 0-basiert, daher der Fehler. So sollte counter bei 1 beginnen, nicht 0. Bitte lesen https://superuser.com/questions/988321/which-excel-objects-are-zero-based-and-which-are-one-based

Hope this

Answer 2

Versuch: If ws.Cells(counter, 3).Value = Val(txtStaffCode.Text) Then