[求助]有条件格式的单元格的背景色是不是不能取得颜色代码

[求助]如何用VBA删除條件格式定義的行？
http://www.officefans.net/cdb/viewthread.php?tid=44804&pid=360656&page=1&sid=56f4XE#pid360656

找格式化的顏色 ( Font 及 Interior)

http://www.officefans.net/cdb/viewthread.php?tid=29249&fpage=1&highlight=%2BEmily

Function ConditionalColor(rg As Range, FormatType As String) As Long
'Returns the color index (either font or interior) of the first cell in range rg. If no _
    conditional format conditions apply, then returns the regular color of the cell. _
    FormatType is either "Font" or "Interior"
Dim cel As Range
Dim tmp As Variant
Dim boo As Boolean
Dim frmla As String, frmlaR1C1 As String, frmlaA1 As String
Dim i As Long

'Application.Volatile    'This statement required if Conditional Formatting for rg is determined by the _
    value of other cells

Set cel = rg.Cells(1, 1)
Select Case Left(LCase(FormatType), 1)
Case "f"    'Font color
    ConditionalColor = cel.Font.ColorIndex
Case Else   'Interior or highlight color
    ConditionalColor = cel.Interior.ColorIndex
End Select

If cel.FormatConditions.Count > 0 Then
    'On Error Resume Next
    With cel.FormatConditions
        For i = 1 To .Count     'Loop through the three possible format conditions for each cell
            frmla = .Item(i).Formula1
            If Left(frmla, 1) = "=" Then    'If "Formula Is", then evaluate if it is True
                'Conditional Formatting is interpreted relative to the active cell. _
                This cause the wrong results if the formula isn't restated relative to the cell containing the _
                Conditional Formatting--hence the workaround using ConvertFormula twice in a row. _
                If the function were not called using a worksheet formula, you could just activate the cell instead.
                frmlaR1C1 = Application.ConvertFormula(frmla, xlA1, xlR1C1, , ActiveCell)
                frmlaA1 = Application.ConvertFormula(frmlaR1C1, xlR1C1, xlA1, xlAbsolute, cel)
                boo = Application.Evaluate(frmlaA1)
            Else    'If "Value Is", then identify the type of comparison operator and build comparison formula
                Select Case .Item(i).Operator
                Case xlEqual  ' = x
                    frmla = cel & "=" & .Item(i).Formula1
                Case xlNotEqual ' <> x
                    frmla = cel & "<>" & .Item(i).Formula1
                Case xlBetween  'x <= cel <= y
                    frmla = "AND(" & .Item(i).Formula1 & "<=" & cel & "," & cel & "<=" & .Item(i).Formula2 & ")"
                Case xlNotBetween   'x > cel or cel > y
                    frmla = "OR(" & .Item(i).Formula1 & ">" & cel & "," & cel & ">" & .Item(i).Formula2 & ")"
                Case xlLess ' < x
                    frmla = cel & "<" & .Item(i).Formula1
                Case xlLessEqual    ' <= x
                    frmla = cel & "<=" & .Item(i).Formula1
                Case xlGreater  ' > x
                    frmla = cel & ">" & .Item(i).Formula1
                Case xlGreaterEqual ' >= x
                    frmla = cel & ">=" & .Item(i).Formula1
                End Select
                boo = Application.Evaluate(frmla)   'Evaluate the "Value Is" comparison formula
            End If
            
            If boo Then 'If this Format Condition is satisfied
                On Error Resume Next
                Select Case Left(LCase(FormatType), 1)
                Case "f"    'Font color
                    tmp = .Item(i).Font.ColorIndex
                Case Else   'Interior or highlight color
                    tmp = .Item(i).Interior.ColorIndex
                End Select
                If Err = 0 Then ConditionalColor = tmp
                Err.Clear
                On Error GoTo 0
                Exit For    'Since Format Condition is satisfied, exit the inner loop
            End If
        Next i
    End With
End If

End Function