microsoft_excel:macros:check_color
Differences
This shows you the differences between two versions of the page.
| microsoft_excel:macros:check_color [2021/08/04 14:03] – created peter | microsoft_excel:macros:check_color [2021/08/04 14:37] (current) – removed peter | ||
|---|---|---|---|
| Line 1: | Line 1: | ||
| - | ====== 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 = " | ||
| - | End If | ||
| - | End Function | ||
| - | </ | ||
microsoft_excel/macros/check_color.1628085828.txt.gz · Last modified: 2021/08/04 14:03 by peter