Sub
Test()
Debug.Print fColor(Selection, 1), fColor(Selection, 2), fColor(Selection, 3)
End
Sub
Function
fColor(rng
As
Range,
Optional
formatType
As
Integer
= 0)
As
Variant
Dim
colorVal
As
Variant
colorVal = Cells(rng.Row, rng.Column).Font.Color
Select
Case
formatType
Case
1
fColor = Hex(colorVal)
Case
2
fColor = (colorVal
Mod
256) &
", "
& ((colorVal \ 256)
Mod
256) &
", "
& (colorVal \ 65536)
Case
3
fColor = Cells(rng.Row, rng.Column).Font.ColorIndex
Case
Else
fColor = colorVal
End
Select
End
Function