用VBA吧,步骤如下:
ALT+F11,输入如下代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column() <> 3 Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value > 5 Then
MsgBox "输入的数值大于5,请重新输入!", vbOKOnly + vbCritical, "警告!"
Target = ""
Target.Select
End If
End Sub
注意:我此处是对C列进行检查,如果你要对别的列进行检查,请更改If Target.Column() <> 3这条语句,A列代表1,B列代表2,C列代表3,依此类推。以下是动画:
找到数据有效性这项,研究一下
设置好数据有效性,圈释无效数据