限制一列表格中只能输入数据

1、在工作表标签上右击，选择查看代码，或按Alt+F11

2、进入VBE编辑界面，点击插入-->模块

3、在新建的模块中输入代码

Private Sub Worksheet_Change(ByVal Target As Range)

 

 

Col = "A"  '把A列修改为限制列，此处为A列

 

isMatch = 0

 

tVal = Target.Value

 

If Target.Count = 1 Then

 

If Target.Column = 1 And tVal <> "" Then

 

   If IsNumeric(tVal) = False Then

 

       MsgBox "请输入数字"

 

       Target.Value = ""

 

       Target.Select

 

   End If

 

   For i = 1 To Cells(65536, Col).End(xlUp).Row

 

       If Cells(i, Col) = tVal Then isMatch = isMatch + 1

 

   Next

 

   If isMatch > 3 Then

 

       MsgBox "数据重复超过3个，请重新输入"

 

       Target.Value = ""

 

       Target.Select

 

   End If

 

   

 

End If

 

End If

 

 

End Sub

4、如果在A列输入非数值内容，则会弹出提示"请输入数字"。

5、如果在A列输入相同数据超过三个，则会弹出提示 "数据重复超过3个，请重新输入"。