VBA新手入门: Block if without if

Question

我想根据excel工作表上的两个不同值向用户发送错误消息。我一直收到"Block if without end if“错误。

Sub Cellname()
'
' Cellname Macro

    If Range("E1").Value <> Range("G1").Value Then
        MsgBox "All Tier 2 Escalated Incidents are tracked."

    If Range("E1").Value > Range("G1").Value Then
        MsgBox "More Tier 2 Escalated ideas are currently being tracked than are present on the datasheet. Check Tracked Status."

    If Range("E1").Value < Range("G1").Value Then
        MsgBox "New Tier 2 Escalated ideas may be available. Check the datasheet"

    End If

End Sub

Answer 1

如果您正在执行一个If语句，但没有其他语句，并且只有一个命令，则根本不需要END IF。尽管如此，我相信你可能希望ElseIF's在逻辑上做到这一点。只需为每个If语句保留一行代码，如下所示：

 If Range("E1").Value <> Range("G1").Value Then MsgBox "All Tier 2 Escalated Incidents are tracked."

    If Range("E1").Value > Range("G1").Value Then MsgBox "More Tier 2 Escalated ideas are currently being tracked than are present on the datasheet. Check Tracked Status."

    If Range("E1").Value < Range("G1").Value Then MsgBox "New Tier 2 Escalated ideas may be available. Check the datasheet"

Answer 2

需要使用ElseIf将多个条件添加到单个IF-THEN语句中。

If Range("E1").Value <> Range("G1").Value Then
    MsgBox "All Tier 2 Escalated Incidents are tracked."

ElseIf Range("E1").Value > Range("G1").Value Then
    MsgBox "More Tier 2 Escalated ideas are currently being tracked than are present on the datasheet. Check Tracked Status."

ElseIf Range("E1").Value < Range("G1").Value Then
    MsgBox "New Tier 2 Escalated ideas may be available. Check the datasheet"

End If

否则，在每个If语句后添加End If。