Сравните значения из диапазона ячеек с другой ячейкой и отобразите msgbox для определенных критериев?

Question

У меня есть значение в B4 Мне нужно выдать сообщение, если значения в C7:C10 выше, чем значение в B4. Мне также нужен другой msgbox для всплывающего окна, если любое из значений ячейки = 20. У меня оно работает в первой ячейке C7, но я не знаю, как заставить работать диапазон.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ExitSub
    Dim One As Long
    Dim Two As Long

    One = Range("B4").Value
    Two = Range("C7").Value

    If Not (Application.Intersect(Range("B1:D10"), Target) Is Nothing) Then
        If (Two = 20) Then
            MsgBox "This requires a SOW!"
        ElseIf (One < Two) Then
            MsgBox "The Number Exceeds the Package!" & vbNewLine & "Change the package or decrease the number."
        End If
    End If

ExitSub:

End Sub

Я не знаю, как изменить код для просмотра диапазона, а не только одной ячейки.

Answer 1

Это не выглядит очень полезным для меня, поэтому я предполагаю, что вы хотите, чтобы больше происходило, но это должно вас начать.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim r As Range

If Not (Application.Intersect(Range("B1:D10"), Target) Is Nothing) Then
    For Each r In Range("C7:C10")
        If r.Value > Range("B4").Value Then MsgBox r.Address & " is bigger than B4"
        If r.Value = 20 Then MsgBox r.Address & " is 20"
    Next r
End If

End Sub