[已解决]求助禁止录入重复数据的VBA代码

安全网 · 发表于 2015-12-31 10:27

有高手知道么？怎么结合

金樽空对月 · 发表于 2015-12-31 11:06

本帖最后由金樽空对月于 2015-12-31 11:08 编辑

安全网发表于 2015-12-28 13:47
Range("b" & J & ":e" & J).Interior.ColorIndex = 6
Range("b" & i & ":e" & i).Interior.ColorI ...

你没有说清楚重复多少个数据才提示，或者删除，尽量把你的要求一次性提出来，别人才会整体来做思路分析，才能给你一个比较周全的答案的，时间是很宝贵的，造吗？

安全网 · 发表于 2015-12-31 13:52

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Or Target.Column = 5 Then
      W = Target.Row
      If Len(Cells(W, 2)) * Len(Cells(W, 3)) * Len(Cells(W, 4)) * Len(Cells(W, 5)) <> 0 And Target.Count = 1 Then
         Application.EnableEvents = False
         ARR = Range("B1:E" & Range("B65536").End(3).Row - 1)
         For I = 1 To UBound(ARR)
            If ARR(I, 1) = Cells(W, 2) Or ARR(I, 2) = Cells(W, 3) Or ARR(I, 3) = Cells(W, 4) Or ARR(I, 4) = Cells(W, 5) Then
                  MsgBox "输入数据已经存在！"
                  Rows(W).Delete
                  Exit For
            End If
         Next
         Application.EnableEvents = True
      End If
End If
End Sub在这个基础上提示与那行或者多行单元格的数据重复，并用颜色填充，也直接选中这些单元格

安全网 · 发表于 2016-1-2 08:20

金樽空对月发表于 2015-12-31 11:06
你没有说清楚重复多少个数据才提示，或者删除，尽量把你的要求一次性提出来，别人才会整体来做思路分析， ...

我的这个想法能否实现

金樽空对月 · 发表于 2016-1-2 22:37

安全网发表于 2016-1-2 08:20
我的这个想法能否实现

你这个问题是在输入的时候进行判断，还是对一个区域内的数据进行判断呀？
如果是输入的时候就判断，理论上讲是不会出现多次重复的现象的。
你这个想法理论上讲应该可以实现的，有点复杂。

安全网 · 发表于 2016-1-3 08:32

金樽空对月发表于 2016-1-2 22:37
你这个问题是在输入的时候进行判断，还是对一个区域内的数据进行判断呀？
如果是输入的时候就判断，理论 ...

输入时就提示，提示可以删掉也可以保留，只是对输入的数据进行提示

zjdh · 发表于 2016-1-3 09:03

本帖最后由 zjdh 于 2016-1-3 09:05 编辑

禁止重复数据的录入.rar (12.17 KB, 下载次数: 12)

安全网 · 发表于 2016-1-3 09:34

zjdh 发表于 2016-1-3 09:03

这样好像不行

zjdh · 发表于 2016-1-3 12:53

本帖最后由 zjdh 于 2016-1-3 12:55 编辑

你不是有4列数据吗？怎么又是3列了？

zjdh · 发表于 2016-1-3 12:54

重新描述一下要求吧！

		自动登录	找回密码
密码			注册