Excel VBA: Không thể nhận được kết quả phù hợp, lỗi "Không thể có được thuộc tính Match của lớp WorksheetFunction"

Question

Vì tình yêu của tất cả những điều đó là tốt, tôi dường như không làm được điều này. Tôi tiếp tục nhận được lỗi được đề cập ở trên.

Tôi có bảng này và tôi đang cố gắng tìm hiểu xem mã có khớp với mã phụ của riêng nó ở đâu đó trong cột khác không, tuy nhiên nó đang bị lỗi. Giúp đỡ của bạn được đánh giá rất cao.

Sub testing() 

    Dim m1 As long 
    Dim myrange As Range 

    Set myrange = Worksheets("Sheet1").Range("B2:B23") 

    For e = 2 To 23 
     m1= Application.WorksheetFunction.Match(Cells(e, 1).Value, myrange, 0) 

     If m1 > 0 Then 
      Cells(e, 3).Value = "Yes" 
     Else 
      Cells(e, 3).Value = "No" 
     End If 
    Next e 

MsgBox "Complete!" 

End Sub 

Answer 1

Sử dụng Application.Match chức năng cho phép đối với khả năng tốt hơn để lỗi bẫy. Khi sử dụng WorksheetFunction.Match, khi không tìm thấy kết quả phù hợp, nó sẽ trả về lỗi, đó là những gì bạn đang gặp phải.

If Not IsError(Application.Match(Cells(e, 1).Value, myrange, 0)) Then 
    'Do stuff when the match is found 
    Cells(e, 3).Value = "Yes" 
Else: 
    Cells(e, 3).Value = "No" 
End If 

Bạn cũng có thể có khả năng sử dụng CountIf chức năng:

If Application.WorksheetFunction.CountIf(myRange, Cells(e,1).Value) > 0 Then 
    Cells(e,3).Value = "Yes" 
Else: 
    Cells(e,3).Value = "No" 
End If 

Không phải của các phương pháp đòi hỏi bạn phải sử dụng biến m1, bạn có thể gán biến này trong True một phần của báo cáo kết quả If/Then, nếu bạn cần phải xác định số trong đó kết quả phù hợp.

Answer 2

Cũng giống như một tùy chọn khác, điều này cũng có thể được thực hiện bằng cách đặt công thức bên dưới vào ô C2 và kéo nó xuống C23.

=IF(COUNTIF($A$2:$A$23,B2)>=1,"YES","NO")