Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target = Range("A1") Then
If Not (Target >= 1 And Target <= 10) Then
Application.Undo
MsgBox "Please enter value between 1 to 10", vbOKOnly + vbCritical
End If
End If
Application.EnableEvents = True
End Sub
1 回答
这是一个例子: