如果滿足某些條件，則彈出消息框

Question

我正在制作成本單。 我輸入的每個成本行項目都有一個有效日期，需要更新成本。 我正在嘗試彈出一個消息框，以便在費用超過其有效日期時通知我。 在我的電子表格中，有效日期在D欄的“報價表”中，我在單元格B2中的“數據輸入”表上有實際日期。 我也有復選框來選擇您想要包含哪些成本項目，當選中時，使用True或False填充Q列。 我要做的是做一個在選擇項目時運行的宏。 因此，如果列Q = True，如果列D小於“數據輸入”中的單元格B2，則MsgBox“Price已過期！”“我也有小計，其中包含日期空白所以如果列D為空，我需要說些什么，然后忽略它。 謝謝你的幫助！ 我在網上找到了以下內容並嘗試了但是它沒有用。

Private Sub Worksheet_Change(ByVal Target As Range)
'Only run if change made to D3, and D2 and D3 are not = ""
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub

If Range("D:D").Value < Sheets("Data Entry").Range("B2").Value Then
MsgBox "Cost is out of date!"
End If

End Sub

Answer 1

您需要在第一個IF構造中添加一個條件以檢查空白單元格，並將第二個IF構造中的Range（“D：D”）添加到Target：

Private Sub Worksheet_Change(ByVal Target As Range)
'Only run if change made to D3, and D2 and D3 are not = ""
If Intersect(Target, Range("D:D")) Is Nothing or IsEmpty(Target) Then Exit Sub

If Target.Value < Sheets("Data Entry").Range("B2").Value Then
   MsgBox "Cost is out of date!"
End If