Van egy ötletem, de nem biztos, hogy működni fog.
Function CF_Color(Target As Range) As Long
Dim Bln(1 To 3) As Boolean, i As Long
On Error Resume Next
For i = 1 To 3
Bln(i) = Evaluate(Target.FormatConditions(i).Formula1)
Next
On Error GoTo 0
If Bln(1) Then
CF_Color = Target.FormatConditions(1).Interior.Color
ElseIf Bln(2) Then
CF_Color = Target.FormatConditions(2).Interior.Color
ElseIf Bln(3) Then
CF_Color = Target.FormatConditions(3).Interior.Color
Else
CF_Color = Target.Interior.Color
End If
End Function
Na most, ez egy olyan kód, ami kiértékeli a feltételes formázás képletét.
Eleve tehát csak akkor működhet, ha a feltételes formázás képlet típusú.
A másik problémám, hogy a
FormatConditions(i).Formula1 kifejezés a magyar Excelben magyar nyelvű képleteket ad vissza, amivel az
Evaluate nem tud mit kezdeni, tehát hibára fut.
Gyanítom, hogy angol Excelben működni fog, de momentán nincs ilyen a közelemben, és ezért nem tudom letesztelni.