Для каждого цикла, но без цикла в окне сообщения - PullRequest
Новая
       39

Для каждого цикла, но без цикла в окне сообщения

0 голосов
/ 03 июня 2019

Код ниже просто заявляет, что для моего диапазона, если он содержит значение 1 (или 100%) или больше, выделите его красным.

Но я хочу знать, ответить (в случае выполнения условия) на окно сообщения без необходимости проходить через следующую процедуру, которая будет выводить окно сообщения столько раз, сколько есть красных ячеек (сколько ячеек соответствует условию x> = 1)

Есть ли способ сделать это, чтобы всплыло только одно окно сообщения, если условие выполнено; если условие не выполнено, появится другое окно с сообщением, например, MsgBox («хорошо обработано»)

Я пытался зациклить окно сообщения, но не работает 

 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

1 Ответ

1 голос
/ 03 июня 2019

По сути, вам нужно установить переменную на «запоминание», если условие выполнено. 

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
...