Color by Numbers

Published:

Scale

Samples

Entry #2,393

Comments

Avatar JADELottery -
#1
We made a little tweak to the colors.

So, what you may have seen before is not quite the same.

Also, below is the Excel VB Sub we came up with so you can do this yourself.

Just select the cells you want to add color and run the sub (macro).

__________

Sub Change0to9BackColor()
    Dim InsideColor(9) As Long
    Dim SelectedRange As String
    Dim RangeRowCount, RangeColumnCount, r As Long
    SelectedRange = ActiveWindow.RangeSelection.Address
    RangeRowCount = Range(SelectedRange).Rows.Count
    RangeColumnCount = Range(SelectedRange).Columns.Count
    InsideColor(0) = RGB(255, 64, 96)
    InsideColor(1) = RGB(255, 128, 0)
    InsideColor(2) = RGB(255, 196, 64)
    InsideColor(3) = RGB(255, 255, 0)
    InsideColor(4) = RGB(0, 255, 0)
    InsideColor(5) = RGB(0, 255, 128)
    InsideColor(6) = RGB(0, 192, 255)
    InsideColor(7) = RGB(128, 128, 255)
    InsideColor(8) = RGB(192, 64, 255)
    InsideColor(9) = RGB(255, 64, 192)
    For c = 1 To RangeColumnCount
        For r = 1 To RangeRowCount
            If Int(Range(SelectedRange).Cells(r, c).Value) >= 0 And Int(Range(SelectedRange).Cells(r, c).Value) <= 9 And Range(SelectedRange).Cells(r, c) <> "" Then
               Range(SelectedRange).Cells(r, c).Interior.Color = InsideColor(Int(Range(SelectedRange).Cells(r, c).Value))
            End If
        Next r
    Next c
End Sub

__________

Post a Comment

Please Log In

To use this feature you must be logged into your Lottery Post account.

Not a member yet?

If you don't yet have a Lottery Post account, it's simple and free to create one! Just tap the Register button and after a quick process you'll be part of our lottery community.

Register