在数据录入过程中,为了防止录入重复数据,我们除了使用数据有效性中的自定义公式外,利用工作表的Worksheet_Change事件结合工作表CountIf函数可以达到同样的目的,并可根据需要进行其他操作,比数据有效性更加方便灵活。附件中对A到E列进行了设置,同列中不能输入重复值,代码如下: Private Sub Worksheet_Change(ByVal Target As Range) Dim a As Integer Dim k As Byte If Target.Column < 6 And Target.Row > 1 Then If Target.Count = 1 Then a = Cells(65536, Target.Column).End(xlUp).Row k = Application.WorksheetFunction.CountIf(Range(Cells(2, Target.Column), Cells(a, Target.Column)), Target.Text) If Trim(Target.Text) <> "" And k > 1 Then Target.Value = "": Target.Select MsgBox "输入重复!", 64, "提示" End If End If End If End Sub
X2HOCpWY.rar
(6.32 KB, 下载次数: 34)
|