对于每个循环但在消息框中没有循环

Question

下面的代码简单地说明，对于我的范围，如果它包含 1（或 100%）或更大的值，则以红色突出显示。

但我想知道响应（如果满足条件）一个消息框而不必经过下一个过程，它将弹出消息框的次数与红色单元格一样多（有多少单元格满足条件x >= 1)

有没有办法做到这一点，如果满足条件，只弹出一个消息框；如果条件不满足，会弹出另一个消息框，比如 MsgBox("good to process")

我尝试循环显示消息框，但似乎不起作用

 Sub myCode()

    Dim iRow As Range, cell As Range

    Set iRow = Range("J16:M43")

    For Each cell In iRow

        If cell.Value >= 1 Then            'message box here will repeat

            cell.Interior.Color = 255

        End If

    Next

End Sub

Answer 1

基本上，如果满足条件，您需要设置一个变量来“记住”。

Sub myCode()
    Dim iRow As Range, cell As Range, conditionMet as Boolean
    conditionMet=False
    Set iRow = Range("J16:M43")
    For Each cell In iRow
        If cell.Value >= 1 Then            
            cell.Interior.Color = 255
            conditionMet = True
        End If
    Next
    If conditionMet Then
        'Message for condition met
    Else 
        'Message for condition not met
    End if
End Sub