如何获取Excel中的单元格值？

我想比较我的单元格值与Excel VBA中的文本框，但我得到的是对象定义的错误。我不知道为什么？请帮忙？如何获取Excel中的单元格值？

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

如果ws.Cells（计数器，3）。价值= txtStaffCode.Value然后 “这是错误线。请帮助

来源

2017-02-27 Sophart Phun

细胞采集在Excel中以1为基础，你是它是基于假设0，因此错误。所以，counter应该从1开始，而不是0。请仔细阅读https://superuser.com/questions/988321/which-excel-objects-are-zero-based-and-which-are-one-based

希望这有助于

来源

2017-02-27 05:15:30

谢谢。它现在的作品:) –

好。祝你有美好的一天！ –

尝试：If ws.Cells(counter, 3).Value = Val(txtStaffCode.Text) Then

来源

2017-02-27 05:07:25

仍然出现错误。无论如何感谢您的回答:) –

如何获取Excel中的单元格值？

回答

相关问题