选a1----数据---有效性----设置--允许---序列（右边的去掉“提供下拉箭头”的钩），来源里面输入“好”字，在出错警告那里输入警告信息。自己试试，就知道了。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
If Target <> "好" Then Target = ""
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024