出现设置字符有提醒框提示

1049062491

这个图片显示的只能点击配件或者是文件的单元格才有提示出来，要怎么改才能让D列只要有文件/配件字眼都有提示出来呢？或者从其他表格复制品名粘贴到D列都有提示呢？


Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D" & Target.Row) = "配件" And Range("D" & Target.Row) <> "" Then
MsgBox ("！！！！！！出现“配件”字符请返回检查更正")
Else: If Range("D" & Target.Row).Value = "文件" And Range("D" & Target.Row) <> "" Then MsgBox ("！！！！！！出现“文件”字符请返回检查更正")
End If
End Sub