VBA能不能实现按数据顺序作为条件进行条件格式设置

sky45698

想实现用VBA进行数据排序，并按连续顺序进行判断并填充颜色，想请教下各位大佬有没有办法能够实现，感谢

lcluck2002

文件里好像只是说根据出现次数来标颜色，和排序没有关系啊？

sky45698

lcluck2002 发表于 2023-2-14 11:21
文件里好像只是说根据出现次数来标颜色，和排序没有关系啊？

根据数据连续出现的次数来

笨鸟飞不高

示列.zip (13.67 KB, 下载次数: 4)

2023-2-14 14:31 上传

点击文件名下载附件

填色的猜一个！排序的不明白！！

grf1973

看看行不行。

grf1973

里面有句Mid(s, p, 9) = "YYYY"
应改为  Mid(s, p, 4) = "YYYY"。不过不改也不影响结果

grf1973

可能原来的单元格内容会跟替换的Y，G相同，那么在代码里把Y\G改成跟单元格内容不会重复的字符

sky45698

grf1973 发表于 2023-2-14 16:01
可能原来的单元格内容会跟替换的Y，G相同，那么在代码里把Y\G改成跟单元格内容不会重复的字符

感谢！再请教一下，能不能不需要控件，输入数据后自动判断？

grf1973

sky45698 发表于 2023-2-14 16:18
感谢！再请教一下，能不能不需要控件，输入数据后自动判断？

在工作表事件里调用此程序即可

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, i&, n&, r&
   
    With [A1].CurrentRegion
        ar = .Value
        For i = 1 To UBound(ar)
            If ar(i, 1) = "A" Then
                n = n + 1: r = IIf(n Mod 9 = 0, 9, n Mod 9)
                If r > 4 Then
                    .Cells(i).Interior.ColorIndex = 43
                Else
                    .Cells(i).Interior.Color = vbYellow
                End If
            Else
                .Cells(i).Interior.Color = vbRed
            End If
        Next i
    End With
End Sub