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

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

本质上，如果满足条件，您需要将变量设置为'remember'。

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

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

For each Loop but Without Looping in Message Box

excel

vba

for-loop

msgbox