Question

我的if语句需要帮助。在下面的代码中显示：第一个if ... then部分按预期工作，但第二部分创建运行时错误“13”。有人可以解释一下如何解决这个问题吗？ /我做错了什么？

Sub ASN_BaaN3()
Dim i As Integer
i = 0

ThisWorkbook.Sheets("BaaN").Activate

Do While ThisWorkbook.Sheets("BaaN").Cells(2 + i, 1) <> ""

    'CHECK NON SERIALIZED
    If Range("J" & 2 + i).Value = "N" Then
        Range("P" & 2 + i).Value = "Ok, Non Serialized"
        Range("P" & 2 + i).EntireRow.Interior.Color = RGB(198, 239, 206)
    End If

    If Range("J" & 2 + i).Value = "Y" And _
    Range("M" & 2 + i).Value = "ACK" And _
    Range("o" & 2 + i).Value = "TRUE" Then
        Range("P" & 2 + i).Value = "Ok, Non Serialized"
        Range("P" & 2 + i).EntireRow.Interior.Color = RGB(198, 239, 206)
    End If

    i = i + 1
Loop

End Sub

当键入这样的代码时，我得到同样的错误：

    If Range("J" & 2 + i).Value = "Y" Then
    If Range("M" & 2 + i).Value = "ACK" Then
    If Range("O" & 2 + i).Value = "TRUE" Then
        Range("P" & 2 + i).Value = "Ok, Non Serialized"
        Range("P" & 2 + i).EntireRow.Interior.Color = RGB(198, 239, 206)
    End If
    End If
    End If

同样输入这样的代码

    If Range("J" & 2 + i).Value = "Y" Then
    If Range("M" & 2 + i).Value = "Y" Then

请帮忙！

IF ...（AND）语句运行时错误“13”

0 个答案: