根据条件设置单元格背景色

sunshuangzhong

需求：根据此表班级的背景色，设置sheet2表中各班级的背景色！感谢各位网友帮助！

3190496160

Sub 设置背景色()
Dim ar As Variant, br As Variant
Dim i As Long, r As Long, rs As Long
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Set sh = Sheets("sheet1")
With sh
    r = .Cells(Rows.Count, 14).End(xlUp).Row
    ar = .Range("n1:n" & r)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            d(Trim(ar(i, 1))) = i
        End If
    Next i
End With
With Sheets("sheet2")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    br = .Range("a1:a" & rs)
    .Range("a1:a" & rs).Interior.ColorIndex = 2
    For i = 2 To UBound(br)
        If Trim(br(i, 1)) <> "" Then
            xh = d(Trim(br(i, 1)))
            If xh <> "" Then
                ys = sh.Cells(xh, 14).Interior.ColorIndex
                .Cells(i, 1).Interior.ColorIndex = ys
            End If
        End If
    Next i
End With
MsgBox "ok!"
End Sub

3190496160

3190496160

根据条件设置单元格背景色20230506.rar (17.47 KB, 下载次数: 2)

2023-5-6 10:01 上传

点击文件名下载附件

3190496160

纯粹是华而不实的东西，代码仅供参考

杨建营

请楼主参考。

ykcbf1100

有条件标色。

yuyubiao

看一下 根据条件设置单元格背景色20230506.zip (20.31 KB, 下载次数: 3)

2023-5-6 10:13 上传

点击文件名下载附件

sunshuangzhong

感谢各位的帮助，都运行顺畅！主要是各类统计报表由于数据太多，不同类型的有了底色之后看起来方便！