Msgbox с двумя разными критериями

Question

У меня есть лист Excel, с колонкой A, B, C, D.

Оба C & Число D изменяется постоянно (они имеют разные критерии), так как он вычисляет данные запаса, которые извлекаются в режиме реального времени.

Мне нужно окно с сообщением для всплывающего окна, когда C & D соответствует моему целевому значению и показывает тикер в столбце A, имя в столбце B и номер в C/D.

С помощью я знаю код, когда есть только колонка C:

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.column = 3 And Target.value >= -4 And Target.value <= 4 Then 
    Call MsgBoxMacro(Target.value, Target.column, Target.row) 
    End If 
End Sub 

Sub MsgBoxMacro(value, column, row) 
    MsgBox "Ticker: " & Cells(row, column - 2) & vbNewLine & "Stock Name: " & Cells(row, column - 1) & vbNewLine & "Variable Value: " & value 
End Sub 

---

Я не знаю, что делать, когда я хочу добавить данные столбца D в код. (так что я могу открыть окно сообщения, когда число D достигнет критериев), пожалуйста, помогите.

Спасибо!

Answer 1

Пропустив другой параметр функции MsgBoxMacro будет решить вашу проблему:

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.column = 32 And Target.value >= -4 And Target.value <= 4 Then 
    Call MsgBoxMacro(Target.value, Target.column, Target.row, 0) 
    End If 
    If Target.column = 33 And Target.value >= -4 And Target.value <= 4 Then 
    Call MsgBoxMacro(Target.value, Target.column, Target.row, 1) 
    End If 
End Sub 

Sub MsgBoxMacro(value, column, row, counter) 
    MsgBox "Ticker: " & Cells(row, column - 31 - counter) & vbNewLine & "Stock Name: " & Cells(row, column - 30 - counter) & vbNewLine & "Variable Value: " & value 
End Sub 

Надеется, что это помогает.

Answer 2

Что-то вроде этого, недалеко от того, что у вас было. Это будет отображаться на листе, где должны быть сделаны изменения.

Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Column = 4 Then 
    If ((Target.Offset(0, -1).Value > -4 And Target.Offset(0, -1).Value < 4) And _ 
         (Target.Value > -4 And Target.Value < 4)) Then 
     ' Msgbox here 
    Else 

    End If 

End If 
End Sub