彈出消息框

Question

如果一個單元格（價格）的值大於另一個單元格（目標）的值，我需要構建一個代碼以給我彈出消息。 如果PRICE> TARGET，則彈出一個窗口 （理想情況下帶有聲音）。

另外，如果我打了好 ，我需要注冊“真”到另一個單元格，或者如果我打取消插入到細胞FALSE

我的第一個vba代碼，所以請表現出一些理解，在此先多謝。

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