kiểm tra giá trị "# N/A" trong vba thành một phạm vi

Question

Tôi muốn kiểm tra giá trị #N/A thành excel với VBA. Vì vậy, sau khi một số nghiên cứu, tôi đã thực hiện mã này:

Set MyTab = Range(name) 
If (Not IsEmpty(MyTab.value)) And (MyTab(i, j).value <> CVErr(xlErrNA)) Then 
    Call BuildRequest(False, id, MyTab, i, j) 
End If 

Nhưng khi nó truyền MyTab(i, j).value <> CVErr(xlErrNA) Tôi có một lỗi 13(type error) và tôi không tìm thấy lý do tại sao.

Bất kỳ ai cũng có thể giúp tôi?

Answer 1

Trước tiên, bạn cần phải kiểm tra rằng các tế bào có chứa một lỗi:

If IsError(MyTab(i, j).Value) Then 
    If MyTab(i, j).Value <> CVErr(xlErrNA) Then 

Trừ khi bạn muốn biết các loại lỗi (# N/A, # DIV/0 !, vv), bạn cũng có thể thay thế thử nghiệm của bạn với:

If (Not IsEmpty(MyTab.value)) And (Not IsError(MyTab(i, j).value)) Then 

Nếu bạn cần phải kiểm tra các loại lỗi, bạn có thể viết:

Dim shouldBuildRequest As Boolean 

shouldBuildRequest = Not IsEmpty(MyTab.value) 
If IsError(MyTab(i, j).Value) Then 
    shouldBuildRequest = shouldBuildRequest AND (MyTab(i, j).Value <> CVErr(xlErrNA)) 
End If 

If shouldBuildRequest Then 
    Call BuildRequest(False, id, MyTab, i, j) 
End If 

Answer 2

Một w ay để kiểm tra lỗi

If CVErr(MyTab(i, j).Value) = CVErr(xlErrNA)