Message box pop up

Question

Мне нужно создать код, чтобы дать мне всплывающее сообщение, если значение ячейки (Цена) больше, чем другая ячейка (Target). Если PRICE> TARGET, то появится окно (в идеале со звуком).

Кроме того, если я ударил нормально мне нужен регистра «истинный» в другую клетку или если я ударил отменить вставки в ячейку FALSE

Моей ПЕРВАЯ УВА поэтому, пожалуйста, показать некоторое понимание , Заранее большое спасибо.

Private Sub CommandButton1_Click() 

Sub userinput() 

Dim ireply As Integer 

If Range("C6").Value > Range("E6").Value Then 

ireply = MsgBox(prompt:="Price" & Range("F6").Value & " Reached target. Stop tracking ?", Buttons:=vbYesNoCancel, Title:="Tracking") 

If ireply = vbYes Then 

Range("B6").Value = "TRUE" 

ElseIf ireply = vbNo Then 

Range("B6").Value = "FALSE" 

End Ifs 

If Range("C7").Value > Range("E7") Then 

End If 

If Range("C8").Value > Range("E8") Then 

End If 

Exit Sub 

End Sub 

Answer 1

Чтобы сделать это возможным непосредственно при вводе данных в Excel, вам нужно поместить это в модуль листа листа, который вы хотите, чтобы работать на:

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim iReply As Integer 

If Target.Count > 1 Then Exit Sub 

If Application.Intersect(Target, Columns(3)) Is Nothing Then 
Else 
    If Range("C" & Target.Row).Value > Range("E" & Target.Row).Value Then 
     Beep 
     iReply = MsgBox("Price" & Range("F" & Target.Row).Value & " Reached target. Stop tracking ?", vbOKCancel + vbCritical, "Tracking") 
     If iReply <> vbCancel Then 
      Range("B" & Target.Row).Value = "TRUE" 
     Else 
      Range("B" & Target.Row).Value = "FALSE" 
     End If 
    Else 
    End If 
End If 

End Sub