microsoft_excel:macros:check_color
This is an old revision of the document!
Microsoft Excel - Macros - Check Color
Function CheckColour(range)
If range.Interior.ColorIndex = 6 Then
CheckColour = 1
ElseIf range.Interior.ColorIndex = 43 Then
CheckColour = 2
ElseIf range.Interior.ColorIndex = 19 Then
CheckColour = 3
ElseIf range.Interior.ColorIndex = 47 Then
CheckColour = 4
ElseIf range.Interior.ColorIndex = 24 Then
CheckColour = 5
ElseIf range.Interior.ColorIndex = -4142 Then
CheckColour = 6
ElseIf range.Interior.ColorIndex = 33 Then
CheckColour = 7
Else
CheckColour = "Unknown"
End If
End Function
microsoft_excel/macros/check_color.1628085828.txt.gz ยท Last modified: 2021/08/04 14:03 by peter