excel_pl, нет встроенного события "на изменение цвета". Если запускать по нажатию кнопкой - то так:
Код
Sub findColor()
Dim monitoringRn As Range
Set monitoringRn = [G5:I7]
For Each el In monitoringRn.Cells
colorVal = Cells(el.Row, el.Column).Interior.Color
el.Value = (colorVal Mod 256) & ", " & ((colorVal \ 256) Mod 256) & ", " & (colorVal \ 65536)
Next el
End Sub
Sub ColorRGB()
Dim aRGB(0 To 2), i As Byte
With ActiveCell
If .Interior.ColorIndex Then
aRGB(2) = .Interior.Color
For i = 0 To 2
aRGB(i) = Fix(aRGB(2) / 256 ^ i) Mod 256
Next
.Font.ColorIndex = 2 - Fix((aRGB(0) * 0.3 + aRGB(1) * 0.59 + aRGB(2) * 0.11) / 128)
.Value = Join(aRGB, ", ")
End If
End With
End Sub