vba - Excel VBA 类型不匹配 #N/A

Question

我有这段代码

    With Data.Cells(rowMatch, GWECol)
        .Value = Cmp.Cells(i, GWENetPr)
        .AddComment
        .Comment.Text Text:=UCase(Environ("UserName")) & ":" & vbNewLine _
            & "Comment: " & Cmp.Cells(i, CommCol) & vbNewLine _
            & "Transaction: " & Cmp.Cells(i, QRTran) & vbNewLine _
            & "QR Pr: " & Cmp.Cells(i, QRPr) & vbNewLine _
            & "QR WD: " & Cmp.Cells(i, QRWD) & vbNewLine _
            & "QR WD All: " & Cmp.Cells(i, QRWDA) & vbNewLine _
            & "QR XPr: " & Cmp.Cells(i, QRXPr) & vbNewLine _
            & "QR XAll: " & Cmp.Cells(i, QRXAll) & vbNewLine _
            & "GWE Pr: " & Cmp.Cells(i, GWEPr) & vbNewLine _
            & "GWE All: " & Cmp.Cells(i, GWEAll) & vbNewLine _
            & "GWE XPr: " & Cmp.Cells(i, GWEXPr) & vbNewLine _
            & "GWE XAll: " & Cmp.Cells(i, GWEXAll)
        .Comment.Shape.TextFrame.AutoSize = True
    End With

其中 Cmp.Cells(i, X) 引用可能存在 #N/A 错误(失败的 VLOOKUP)的单元格。

是否可以让代码将 #N/A 作为字符串接收或将其留空？现在，只要引用的单元格之一是#N/A，该 block 就会失败，并且根本不会添加任何注释文本。

谢谢!

Answer 1

您正在使用单元格的默认属性，

调试.Print Cmp.Cells(i, QRXAll)

例如，这始终引用单元格 .Value 属性。 .Value 实际上是一种错误类型，Error 2042 我认为您可以通过检查来避免

CLng(Cmp.Cells(i,QRXA11))

但这将导致 2042 而不是 #N/A 文本。

如果您想获取字符串#N/A:请尝试使用Cmp.Cells(i, QRXAll).Text，它依赖于单元格的。 Text 属性而不是其 .Value。

调试.Print Cmp.Cells(i, QRXAll).Text