vba相同单元格填充不同颜色?

如图,我想每次填写订单编号的时候自动区分不同的颜色,希望大佬们帮忙,最好注释下方便学习,谢谢。编号内容没用固定的,也不是递增,没有规律数据,会日积月累的

代码思路:从第2开始往下判断直到结束,如果当前数据与上一个数据相同,则赋予相同颜色,如果不同,则颜色序号+1变成不同颜色。

代码文本:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

n = 3

For i = 2 To [b65536].End(3).Row

    If Cells(i, 2) = Cells(i - 1, 2) Then

        Cells(i, 2).Interior.ColorIndex = n

    Else

        n = n + 1

        Cells(i, 2).Interior.ColorIndex = n

    End If

Next

End Sub

温馨提示:答案为网友推荐,仅供参考

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网