[已解决]求助如何用VBA生成出把每行单元格不相同的值填充不同的颜色

qinhuan66

求助如何用VBA生成出把每行单元格不相同的值填充不同的颜色
工资发放登记.rar (11.95 KB, 下载次数: 12)

2013-11-14 12:09 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2013-11-14 16:16

If x.Count = 1 Then Exit Do
把这句删掉




Sub Test()
    Dim r%, i%, x
   
    r = Range("a65536").End(xlUp).Row
    Range("d3:m65536").Interior.ColorIndex = xlNone
    On Error Resume Next
    For i = 3 To r
        Set x = Range(Cells(i, "d"), Cells(i, "m"))
        Do
            Err.Clear
            Set x = x.RowDifferences(x(1))
            If Err.Number Then Exit Do
            x.Interior.Color = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
        Loop
    Next i
End Sub

跳转到最佳答案楼层

我心飞翔410

条件可以可以啊  干嘛v啊

cxloen

飞翔说得对

qinhuan66

我心飞翔410 发表于 2013-11-14 12:15
条件可以可以啊  干嘛v啊

谢谢你！我想还是用VBA的好。因为大家都可以学习学习。谢谢

爱疯

Sub Test()
    Dim r%, i%, x
   
    r = Range("a65536").End(xlUp).Row
    Range("d3:m65536").Interior.ColorIndex = xlNone
    On Error Resume Next
    For i = 3 To r
        Set x = Range(Cells(i, "d"), Cells(i, "m"))
        Do
            Err.Clear
            Set x = x.RowDifferences(x(1))
            If Err.Number Then Exit Do
            If x.Count = 1 Then Exit Do
            x.Interior.Color = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
        Loop
    Next i
End Sub
工资发放登记2.rar (18.32 KB, 下载次数: 10)

2013-11-14 16:00 上传

点击文件名下载附件

qinhuan66

爱疯 发表于 2013-11-14 16:01
Sub Test()
    Dim r%, i%, x
   

谢谢您！爱疯老师。经测试真的很好用。不过还是出现不同的数字出现相同颜色

爱疯

If x.Count = 1 Then Exit Do
把这句删掉




Sub Test()
    Dim r%, i%, x
   
    r = Range("a65536").End(xlUp).Row
    Range("d3:m65536").Interior.ColorIndex = xlNone
    On Error Resume Next
    For i = 3 To r
        Set x = Range(Cells(i, "d"), Cells(i, "m"))
        Do
            Err.Clear
            Set x = x.RowDifferences(x(1))
            If Err.Number Then Exit Do
            x.Interior.Color = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
        Loop
    Next i
End Sub

victory610

这个非常有意思，赞一个。