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

安全网

zjdh 发表于 2016-1-4 08:05
求助者是说录入，要解决你的要求，简单：
将
If Len(Cells(W, 3)) * Len(Cells(W, 4)) * Len(Cells(W, 5) ...

ARR(I, 6) = Cells(W, 8) 能否解释下为什么事6/8有时候是7/8，是什么规则

zjdh

你数一下从B列到H列共几列？
你数一下从C列到H列共几列？
H列是工作表中第几列？

安全网

zjdh 发表于 2016-1-4 09:16
你数一下从B列到H列共几列？
你数一下从C列到H列共几列？
H列是工作表中第几列？

哦，我明白了。因为我设置的时候总是从第1列开始，所以参数就是错得

安全网

zjdh 发表于 2016-1-4 09:16
你数一下从B列到H列共几列？
你数一下从C列到H列共几列？
H列是工作表中第几列？

现在是如果输第5行的数据时，如果与第3/4行都重复，都提示，但只删除当前的第5行

zjdh

对啊，当然是当前输入的数据啦，第四行是上一次输入的应该已经处理过啦！

安全网

zjdh 发表于 2016-1-4 18:43
对啊，当然是当前输入的数据啦，第四行是上一次输入的应该已经处理过啦！

就是输入第5行数据时，提示栏提示与3/4行数据重复，3/4行数据用黄色颜色填充

我不知道呀

学习一下!!

zjdh

安全网 发表于 2016-1-4 20:37
就是输入第5行数据时，提示栏提示与3/4行数据重复，3/4行数据用黄色颜色填充

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column > 2 And Target.Column < 9 Then
        W = Target.Row
        If Len(Cells(W, 3)) * Len(Cells(W, 4)) * Len(Cells(W, 5)) * Len(Cells(W, 8)) <> 0 And Target.Count = 1 Then
            Application.EnableEvents = False
            ARR = Range("C1:H" & Range("C65536").End(3).Row - 1)
            For I = 1 To UBound(ARR)
                If ARR(I, 1) = Cells(W, 3) And ARR(I, 2) = Cells(W, 4) And ARR(I, 3) = Cells(W, 5) And ARR(I, 6) = Cells(W, 8) Then
                    Range("C" & I & ":H" & I).Interior.ColorIndex = 6
                    If MsgBox("输入数据与第 " & I & " 行相同！是否需要删除？", 4 + 32 + 256) = 6 Then
                        Rows(W).Delete
                        Range("C2:H" & I).Interior.ColorIndex = 0
                    End If
                    'Exit For
                End If
            Next
            Application.EnableEvents = True
        End If
    End If
End Sub

安全网

zjdh 发表于 2016-1-5 08:03
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column > 2 And Target.Column <  ...

谢谢！正是我所需求的

安全网

zjdh 发表于 2016-1-5 08:03
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column > 2 And Target.Column <  ...

                   Range("C" & I & ":H" & I).Interior.ColorIndex = 6
                    If MsgBox("输入数据与第 " & I & " 行相同！是否需要删除？", 4 + 32 + 256) = 6 Then
                        Rows(W).Delete
                        Range("C2:H" & I).Interior.ColorIndex = 0这一行的是否能设置只将 Range("C" & I & ":H" & I).Interior.ColorIndex = 6填充颜色的单元格，其他单元格有填充就不改变