Excel VBA 조건부 서식 수식 제거

Question

특정 수식이있는 경우에만 셀에서 조건부 서식을 제거 할 수 있습니까?

는 지금은

Cells(r, 4).Select  
With Selection 
.FormatConditions.Item(1).Delete 
End With 

이 그러나 나는 단지 그것을 서식을 삭제할 경우 공식

="=ISBLANK(A19)=TRUE" 

그 가능성이있는 경우

사람이 알고 있나요?

Answer 1

Sub Tester() 

    ClearFormulaCF Range("A1:A5"), "=ISBLANK(A19)=TRUE" 

End Sub 

'Remove any CF rule from cells in rng where the CF formula 
' matches the one provided 
Sub ClearFormulaCF(rng As Range, sFormula As String) 
    Dim rngCF As Range, c As Range, fc As FormatCondition 

    On Error Resume Next 
    'any cells with CF? 
    Set rngCF = rng.SpecialCells(xlCellTypeAllFormatConditions) 
    On Error GoTo 0 
    If rngCF Is Nothing Then Exit Sub 'no CF found 

    For Each c In rngCF.Cells 
     For Each fc In c.FormatConditions 
      If fc.Formula1 = sFormula Then 
       fc.Delete 
       Exit For 
      End If 
     Next fc 
    Next c 
End Sub