- Home
- Premium Memberships
- Lottery Results
- Forums
- Predictions
- Lottery Post Videos
- News
- Search Drawings
- Search Lottery Post
- Lottery Systems
- Lottery Charts
- Lottery Wheels
- Worldwide Jackpots
- Quick Picks
- On This Day in History
- Blogs
- Online Games
- Premium Features
- Contact Us
- Whitelist Lottery Post
- Rules
- Lottery Book Store
- Lottery Post Gift Shop
The time is now 8:08 am
You last visited
May 2, 2024, 5:59 am
All times shown are
Eastern Time (GMT-5:00)
Color by Numbers
Published:
Scale
Samples
Comments
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