Color name know easily.

In Ms excel by VB very easy know color name. Some time it is very important to us whats name is color .So
, I include here very easy VB code for know color name and work smoothly.Enjoy!

Function CellColor(rCell As Range, Optional ColorName As Boolean)
Dim strColor As String, iIndexNum As Integer
'Written by shaiful
Select Case rCell.Interior.ColorIndex
   Case 1
    strColor = "Black"
    iIndexNum = 1
   Case 53
    strColor = "Brown"
    iIndexNum = 53
   Case 52
    strColor = "Olive Green"
    iIndexNum = 52
   Case 51
    strColor = "Dark Green"
    iIndexNum = 51
   Case 49
    strColor = "Dark Teal"
    iIndexNum = 49
   Case 11
    strColor = "Dark Blue"
    iIndexNum = 11
   Case 55
    strColor = "Indigo"
    iIndexNum = 55
   Case 56
    strColor = "Gray-80%"
    iIndexNum = 56
   Case 9
    strColor = "Dark Red"
    iIndexNum = 9
   Case 46
    strColor = "Orange"
    iIndexNum = 46
   Case 12
    strColor = "Dark Yellow"
    iIndexNum = 12
   Case 10
    strColor = "Green"
    iIndexNum = 10
   Case 14
    strColor = "Teal"
    iIndexNum = 14
   Case 5
    strColor = "Blue"
    iIndexNum = 5
   Case 47
    strColor = "Blue-Gray"
    iIndexNum = 47
   Case 16
    strColor = "Gray-50%"
    iIndexNum = 16
   Case 3
    strColor = "Red"
    iIndexNum = 3
   Case 45
    strColor = "Light Orange"
    iIndexNum = 45
   Case 43
    strColor = "Lime"
    iIndexNum = 43
   Case 50
    strColor = "Sea Green"
    iIndexNum = 50
   Case 42
    strColor = "Aqua"
    iIndexNum = 42
   Case 41
    strColor = "Light Blue"
    iIndexNum = 41
   Case 13
    strColor = "Violet"
   iIndexNum = 13
   Case 48
    strColor = "Gray-40%"
    iIndexNum = 48
   Case 7
    strColor = "Pink"
    iIndexNum = 7
   Case 44
    strColor = "Gold"
    iIndexNum = 44
   Case 6
    strColor = "Yellow"
    iIndexNum = 6
   Case 4
    strColor = "Bright Green"
    iIndexNum = 4
   Case 8
    strColor = "Turqoise"
    iIndexNum = 8
   Case 33
    strColor = "Sky Blue"
    iIndexNum = 33
   Case 54
    strColor = "Plum"
    iIndexNum = 54
   Case 15

    strColor = "Gray-25%"

    iIndexNum = 15

   Case 38

    strColor = "Rose"

    iIndexNum = 38

   Case 40

    strColor = "Tan"

    iIndexNum = 40

   Case 36

    strColor = "Light Yellow"

    iIndexNum = 36

   Case 35

    strColor = "Light Green"

    iIndexNum = 35

   Case 34

    strColor = "Light Turqoise"

    iIndexNum = 34

   Case 37

    strColor = "Pale Blue"

    iIndexNum = 37

   Case 39

    strColor = "Lavendar"

    iIndexNum = 39

   Case 2

    strColor = "White"

    iIndexNum = 2

  Case Else

    strColor = "Custom color or no fill"

End Select



    If ColorName = True Or _
 strColor = "Custom color or no fill" Then

        CellColor = strColor

    Else

        CellColor = iIndexNum

    End If
End Function

'To use this UDF push Alt+F11 and go Insert>Module and paste in the code. Push Alt+Q and save. The Function will appear under "User Defined" in the Paste Function dialog box (Shift+F3). Use the Function in any cell as shown below.

'=CellColor(A1,TRUE)
'Where cell A1 has a fill color of dark red the result would be "Dark Red"

'=CellColor(A1,FALSE) OR CellColor(A1)
'Where cell A1 has a fill color of dark red the result would be 9
'By Md.shaiful islam talukder

Download the Workbook.

Tweet