多条件和动态单元格区域变色

天边2021

如图所示，单元格数值随机、变色的区域不定，如何实现、请大神赐教

liulang0808

Sub 按钮2_Click()
    Application.ScreenUpdating = False
    For j = 2 To 9
        For i = 3 To 8
            If Len(Cells(i, "k")) > 0 Then
                str1 = Replace(Cells(i, "k"), "Y", Cells(3, j))
                t = Application.Evaluate(str1)
                If t Then
                    arr = Split("、" & Cells(i, "l"), "、")
                    For Z = 1 To UBound(arr)
                        r = 4 - Val(arr(Z))
                        Cells(r, j).Interior.Color = Cells(i, "n").Interior.Color
                    Next
                    For k = i + 1 To 8
                        If Cells(k, "k") = "" Then
                            arr = Split("、" & Cells(k, "l"), "、")
                            For Z = 1 To UBound(arr)
                                r = 4 - Val(arr(Z))
                                Cells(r, j).Interior.Color = Cells(k, "n").Interior.Color
                            Next
                        Else
                            Exit For
                        End If
                    Next k
                    Exit For
                End If
            End If
        Next i
    Next j
    Application.ScreenUpdating = True
End Sub

liulang0808

多条件和动态单元格区域变色.zip (23.69 KB, 下载次数: 7)

2023-5-17 21:36 上传

点击文件名下载附件

代码有些罗嗦了

天边2021

liulang0808 发表于 2023-5-17 21:36
代码有些罗嗦了

谢谢  那些条件可以不用写进代码里面去吧，用单元格的值和那些数值比较，用循环和多重判断 应改可以了，思路应该是这样