Условное форматирование VBA не применяется

Question

У меня есть обычная программа, которая перебирает все столбцы на всех листах книги, чтобы применить правило условного форматирования для всех из них. Правило сохраняется в каждом столбце, а правило, которое я использовал, работает, но цвет не изменяется после запуска подпрограммы. Затем я могу войти в рабочий лист, выбрать условное форматирование, нажать «изменить правило»> «ok»> «ok», а форматирование затем обновится на листе, не изменяя ничего о правиле. Что мне не хватает, чтобы заставить правило фактически внести изменения в рабочий лист?

For Each ws In ThisWorkbook.Worksheets 

If ws.Name Like "*Management*" Then Exit Sub 

lastRow = ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1 
lastCol = ws.UsedRange.Column + ws.UsedRange.Columns.Count - 1 

ws.Cells.FormatConditions.Delete 

For col = 1 To lastCol 

    Set rng = ws.Range(ws.Cells(2, col), ws.Cells(lastRow, col)) 
    formulaStr = "=BITWISE_AND(2^INDEX(" & wsSchema.Name & "!$" & schemaLastCol & "$2" & _ 
     ":$" & schemaLastCol & "$" & schemaLastRow & ", MATCH(1, (" & wsSchema.Name & "!$A$2:$A$" & _ 
     schemaLastRow & "=""" & ws.Name & """)*(" & wsSchema.Name & "!$B$2:$B$" & schemaLastRow & "=$" & _ 
     XLCol(col) & "$1),0)), INDEX($" & XLCol(lastCol) & "$1:$" & XLCol(lastCol) & "$" & lastRow & ",ROW()))" 

    With rng 
     .FormatConditions.Add xlExpression, , formulaStr & " = 0" 
     With .FormatConditions(1) 
      .Interior.PatternColorIndex = xlAutomatic 
      .Interior.Color = RGB(255, 0, 0) 
      .Interior.TintAndShade = 0 
      .StopIfTrue = False 
      .SetFirstPriority 
     End With 
     .FormatConditions.Add xlExpression, , formulaStr & " > 0" 
     With .FormatConditions(2) 
      .Interior.PatternColorIndex = xlAutomatic 
      .Interior.Color = RGB(0, 255, 0) 
      .Interior.TintAndShade = 0 
      .StopIfTrue = False 
      .SetFirstPriority 
     End With 
    End With 

Next 

Следующей

Answer 1

ПопробуйтеThisWorkbook.RefreshAllилиApplication.Calculate