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