Differences

This shows you the differences between two versions of the page.

--- microsoft_excel:macro_check_color [2020/11/15 21:01] – created peter
+++ microsoft_excel:macro_check_color [2021/08/04 14:03] (current) – removed peter
@@ Line 1: / Line 1: @@
-====== Microsoft Excel - Macro Check Color ======
-<code>
-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
-</code>