在Excel中將特定單詞輸入單元格時彈出消息

Question

我試圖創建一個彈出消息，該消息僅在某個單詞出現在電子表格的單元格範圍內時纔會顯示。目前我寫的宏顯示彈出消息，只要輸入任何內容。這裏是我的代碼有：

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Range("G10:G40")) Is Nothing Then 
     MsgBox "Exact dimensions needed for ceramic pipe due to required shop fabrication. This can affect both pipe costs and leadtime." 
    End If 
End Sub 

同樣，我只想彈出這個詞的時候DURA-CORE II出現在單元格的範圍內出現。我現在承認，我幾乎不知道VBA，所以我相信這個解決方案非常簡單。

任何幫助表示讚賞。

Answer 1

這樣的事情？

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Range("G10:G40")) Is Nothing Then 
     If Target = "DURA-CORE II" Then 
      MsgBox "Exact dimensions needed for ceramic pipe due to required shop fabrication. This can affect both pipe costs and leadtime." 
     End If 
    End If 
End Sub 

Answer 2

，你可以通過這種方式，用戶將總是在Range("G10:G40")只要告知任何電池使用

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Range("G10:G40").Find(what:="DURA-CORE II", LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True) Is Nothing Then 
     MsgBox "Exact dimensions needed for ceramic pipe due to required shop fabrication. This can affect both pipe costs and leadtime." 
    End If 
End Sub 

有內容「DURA-CORE II」