Tại sao vba doesnt xử lý Lỗi 2042

Question

Tôi có một biến fila với một dòng đầy đủ với các giá trị của Excel

Vấn đề là khi trong Excel Tôi có #N/A, VBA có giá trị như Error 2042.

Tôi không thể gán giá trị đó cho valorvà gây lỗi. Cho đến thời điểm này tất cả mọi thứ là ok, bây giờ tôi đang cố gắng để xác định một On Error Goto để đi đến vòng lặp tiếp theo trong vòng lặp For, nhưng tôi không biết tại sao VBA không xử lý lỗi.

Do While Not IsEmpty(ActiveCell) 

    txt = ActiveCell.Value2 
    cell = ActiveCell.Offset(0, 1).Value2  
    fila = Range("C20:F20") 

    For j = 1 To UBound(fila, 2) 
     On Error GoTo Siguiente 
     If Not IsEmpty(fila(1, j)) Then    
      valor = fila(1, j) 
      cmd = Cells(1, j + 2).Value2 
      devolver = function1(cmd, txt, cell, valor) 
      arrayDevolver(p) = devolver 
      p = p + 1     
     End If 
Siguiente: 
    Next 
Loop 

Answer 1

Đây không phải lỗi VBA - do đó việc xử lý lỗi sẽ không bắt được. Để phát hiện vấn đề này sử dụng IsError trước bằng văn bản cho mảng của bạn

Mã đơn giản dưới đây xử lý các Lỗi 2042 vấn đề với thử nghiệm này

Sub Test() 
    Dim varIn As Variant 
    [a1].FormulaR1C1 = "=NA()" 
    If IsError([a1].Value2) Then 
     varIn = "skip record" 
    Else 
     varIn = [a1].Value2 
    End If 
End Sub