参考代码：Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column2 And Target.Column3 Or Target.Count > 1 Then Exit Sub
If Cells(Target.Row, 1) = "口头警告" Then
If Target = "优秀" Then
MsgBox "口头警告者不得为优秀!"
End If
ElseIf Cells(Target.Row, 1) = "书面警告" Then
If Target = "优秀" Or Tar...
