优先考虑条件格式规则

时间:2017-09-18 03:09:28

标签: excel-vba vba excel

如何确定此条件格式设置规则的优先级,使其优先于任何其他规则?

If Not Intersect(Target, oTbl_1.DataBodyRange) Is Nothing Then
    oTbl_2.DataBodyRange.Interior.ColorIndex = xlNone
    oTbl_1.DataBodyRange.Interior.ColorIndex = xlNone
    sFind = oTbl_1.ListColumns(1).Range(Target.Row).Value
    Set rCL = oTbl_2.ListColumns(1).DataBodyRange.Find(sFind)
    If Not rCL Is Nothing Then Cells(rCL.Row, Target.Column).Interior.Color = RGB(184, 204, 228)
End If

0 个答案:

没有答案