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

zjdh

将
Range("C2:H" & I).Interior.ColorIndex = 0
改成
Range("C" & I & ":H" & I).Interior.ColorIndex =0

安全网

zjdh 发表于 2016-1-7 09:04
将
Range("C2:H" & I).Interior.ColorIndex = 0
改成

谢谢！我自己也就是这样弄好了！

安全网

zjdh 发表于 2016-1-7 09:04
将
Range("C2:H" & I).Interior.ColorIndex = 0
改成

能否给重复的数据加上边框和字体变粗

zjdh

自己录制一个宏，把相关语句放进去。

安全网

zjdh 发表于 2016-1-7 10:19
自己录制一个宏，把相关语句放进去。

这样的没有录制过不知道怎么写

zjdh

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
                    With Range("C" & I & ":H" & I)
                        .Font.FontStyle = "加粗"
                        .Borders(xlEdgeLeft).Weight = xlMedium
                        .Borders(xlEdgeTop).Weight = xlMedium
                        .Borders(xlEdgeBottom).Weight = xlMedium
                        .Borders(xlEdgeRight).Weight = xlMedium
                        .Interior.ColorIndex = 6
                    End With
                    If MsgBox("输入数据与第 " & I & " 行相同！是否需要删除？", 4 + 32 + 256) = 6 Then
                        Rows(W).Delete
                        Range("C2:H" & I).Interior.ColorIndex = 0
                    End If
                End If
            Next
            Application.EnableEvents = True
        End If
    End If
End Sub

安全网

zjdh 发表于 2016-1-7 10:41
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column > 2 And Target.Column < 9  ...

这样的如果删掉了重复的，前面几个填充的颜色只能取消一行填充，是什么原因不能全部取消了

zjdh

不是你要求的吗？？

安全网

zjdh 发表于 2016-1-7 12:51
不是你要求的吗？？

那怎么样在删除了新录入的数据后，取消所有重复数据的填充颜色

zjdh

我原来的宏不就是吗？？