Font Color change on random Keno cardExcel 2003 VBA - Method to duplicate this code that select and colors rowsExcel VBA - read cell value from codeVBA copying information from a listbox to a different columnrandom selection of cells in column VBAVBA in Excel, loop continues to runExcel Find a sheet based on namePick a specific tab for a copy rangehow to read same data from two sheet then subtract the data using vbaError 1004 when tried to change data in secondary worksheetInsert Data Validation in ever changing sheets using CountA and Offset in VBA
Pressure to defend the relevance of one's area of mathematics
What happened to Rhaegal?
Is lying to get "gardening leave" fraud?
If Earth is tilted, why is Polaris always above the same spot?
What happened to Ghost?
How do you center multiple equations that have multiple steps?
Why is the SNP putting so much emphasis on currency plans?
How did Arya manage to disguise herself?
Can commander tax be proliferated?
How to creep the reader out with what seems like a normal person?
A non-technological, repeating, phenomenon in the sky, holding its position in the sky for hours
Does hiding behind 5-ft-wide cover give full cover?
How to scale a verbatim environment on a minipage?
How could a planet have most of its water in the atmosphere?
Disabling Resource Governor in SQL Server
Attending a conference where my ex-supervisor and his collaborator are present, should I attend?
How to implement float hashing with approximate equality
Feels like I am getting dragged into office politics
What was the state of the German rail system in 1944?
Why are there synthetic chemicals in our bodies? Where do they come from?
What happens if I start too many background jobs?
Selecting a secure PIN for building access
Why was Germany not as successful as other Europeans in establishing overseas colonies?
Unidentified items in bicycle tube repair kit
Font Color change on random Keno card
Excel 2003 VBA - Method to duplicate this code that select and colors rowsExcel VBA - read cell value from codeVBA copying information from a listbox to a different columnrandom selection of cells in column VBAVBA in Excel, loop continues to runExcel Find a sheet based on namePick a specific tab for a copy rangehow to read same data from two sheet then subtract the data using vbaError 1004 when tried to change data in secondary worksheetInsert Data Validation in ever changing sheets using CountA and Offset in VBA
.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty height:90px;width:728px;box-sizing:border-box;
I made a program that randomizes the 20 numbers picked on the keno card. However I am having some issues changing the font color on numbers that are picked.
Sub GetRandomCell()
Range("A1:J10").Select
Dim i As Integer
Dim RNG As Range
Set RNG = Range("A1:J10")
Dim randomCell As Long
i = 1
RNG.Interior.Color = vbWhite
Do While i < 21
Randomize
randomCell = Int(Rnd * RNG.Cells.Count) + 1
If RNG.Cells(randomCell).Interior.Color <> vbGrey Then
RNG.Cells(randomCell).Interior.Color = vbGrey
i = i + 1
End If
Loop
End Sub
What am I doing wrong?
excel vba
edited Mar 25 at 7:21
Pᴇʜ
25.6k63052
asked Mar 22 at 20:21
Gehn47Gehn47
568
add a comment |
I made a program that randomizes the 20 numbers picked on the keno card. However I am having some issues changing the font color on numbers that are picked.
Sub GetRandomCell()
Range("A1:J10").Select
Dim i As Integer
Dim RNG As Range
Set RNG = Range("A1:J10")
Dim randomCell As Long
i = 1
RNG.Interior.Color = vbWhite
Do While i < 21
Randomize
randomCell = Int(Rnd * RNG.Cells.Count) + 1
If RNG.Cells(randomCell).Interior.Color <> vbGrey Then
RNG.Cells(randomCell).Interior.Color = vbGrey
i = i + 1
End If
Loop
End Sub
What am I doing wrong?
excel vba
edited Mar 25 at 7:21
Pᴇʜ
25.6k63052
asked Mar 22 at 20:21
Gehn47Gehn47
568
vbGrayisn't a built in color. You could create a variable, and use that.
– BruceWayne
Mar 22 at 20:24
That actually should be vbBlack. It was vbYellow but we don't use a color printer so I was changing it to a darker color. However since the text is black.
– Gehn47
Mar 22 at 20:25
add a comment |
I made a program that randomizes the 20 numbers picked on the keno card. However I am having some issues changing the font color on numbers that are picked.
Sub GetRandomCell()
Range("A1:J10").Select
Dim i As Integer
Dim RNG As Range
Set RNG = Range("A1:J10")
Dim randomCell As Long
i = 1
RNG.Interior.Color = vbWhite
Do While i < 21
Randomize
randomCell = Int(Rnd * RNG.Cells.Count) + 1
If RNG.Cells(randomCell).Interior.Color <> vbGrey Then
RNG.Cells(randomCell).Interior.Color = vbGrey
i = i + 1
End If
Loop
End Sub
What am I doing wrong?
excel vba
edited Mar 25 at 7:21
Pᴇʜ
25.6k63052
asked Mar 22 at 20:21
Gehn47Gehn47
568
I made a program that randomizes the 20 numbers picked on the keno card. However I am having some issues changing the font color on numbers that are picked.
Sub GetRandomCell()
Range("A1:J10").Select
Dim i As Integer
Dim RNG As Range
Set RNG = Range("A1:J10")
Dim randomCell As Long
i = 1
RNG.Interior.Color = vbWhite
Do While i < 21
Randomize
randomCell = Int(Rnd * RNG.Cells.Count) + 1
If RNG.Cells(randomCell).Interior.Color <> vbGrey Then
RNG.Cells(randomCell).Interior.Color = vbGrey
i = i + 1
End If
Loop
End Sub
What am I doing wrong?
excel vba
excel vba
edited Mar 25 at 7:21
Pᴇʜ
25.6k63052
asked Mar 22 at 20:21
Gehn47Gehn47
568
edited Mar 25 at 7:21
Pᴇʜ
25.6k63052
asked Mar 22 at 20:21
Gehn47Gehn47
568
edited Mar 25 at 7:21
Pᴇʜ
25.6k63052
edited Mar 25 at 7:21
Pᴇʜ
25.6k63052
edited Mar 25 at 7:21
Pᴇʜ
25.6k63052
25.6k63052
asked Mar 22 at 20:21
Gehn47Gehn47
568
asked Mar 22 at 20:21
Gehn47Gehn47
568
asked Mar 22 at 20:21
Gehn47Gehn47
568
568
vbGrayisn't a built in color. You could create a variable, and use that.
– BruceWayne
Mar 22 at 20:24
That actually should be vbBlack. It was vbYellow but we don't use a color printer so I was changing it to a darker color. However since the text is black.
– Gehn47
Mar 22 at 20:25
add a comment |
vbGrayisn't a built in color. You could create a variable, and use that.
– BruceWayne
Mar 22 at 20:24
That actually should be vbBlack. It was vbYellow but we don't use a color printer so I was changing it to a darker color. However since the text is black.
– Gehn47
Mar 22 at 20:25
vbGray isn't a built in color. You could create a variable, and use that.– BruceWayne
Mar 22 at 20:24
vbGray isn't a built in color. You could create a variable, and use that.– BruceWayne
Mar 22 at 20:24
That actually should be vbBlack. It was vbYellow but we don't use a color printer so I was changing it to a darker color. However since the text is black.
– Gehn47
Mar 22 at 20:25
That actually should be vbBlack. It was vbYellow but we don't use a color printer so I was changing it to a darker color. However since the text is black.
– Gehn47
Mar 22 at 20:25
add a comment |
1 Answer
1
active
oldest
votes
You could instead check the RGB Value, which allows you to be more specific:
If RNG.Cells(randomCell).Interior.Color <> RGB(211, 211, 211) Then
RNG.Cells(randomCell).Interior.Color = RGB(211, 211, 211)
i = i + 1
End If
answered Mar 22 at 20:26
BruceWayneBruceWayne
18.2k113464
Good idea. I will use that to set the specific color of the cell, but how then do i change the color of the font?
– Gehn47
Mar 22 at 20:27
@Gehn47 - should just be like,Cells(#, #).Font.Color = RGB(107, 100, 0)
– BruceWayne
Mar 22 at 20:33
add a comment |
Your Answer
StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");
StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);
else
createEditor();
);
function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);
);
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55307269%2ffont-color-change-on-random-keno-card%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
You could instead check the RGB Value, which allows you to be more specific:
If RNG.Cells(randomCell).Interior.Color <> RGB(211, 211, 211) Then
RNG.Cells(randomCell).Interior.Color = RGB(211, 211, 211)
i = i + 1
End If
answered Mar 22 at 20:26
BruceWayneBruceWayne
18.2k113464
Good idea. I will use that to set the specific color of the cell, but how then do i change the color of the font?
– Gehn47
Mar 22 at 20:27
@Gehn47 - should just be like,Cells(#, #).Font.Color = RGB(107, 100, 0)
– BruceWayne
Mar 22 at 20:33
add a comment |
You could instead check the RGB Value, which allows you to be more specific:
If RNG.Cells(randomCell).Interior.Color <> RGB(211, 211, 211) Then
RNG.Cells(randomCell).Interior.Color = RGB(211, 211, 211)
i = i + 1
End If
answered Mar 22 at 20:26
BruceWayneBruceWayne
18.2k113464
Good idea. I will use that to set the specific color of the cell, but how then do i change the color of the font?
– Gehn47
Mar 22 at 20:27
@Gehn47 - should just be like,Cells(#, #).Font.Color = RGB(107, 100, 0)
– BruceWayne
Mar 22 at 20:33
add a comment |
You could instead check the RGB Value, which allows you to be more specific:
If RNG.Cells(randomCell).Interior.Color <> RGB(211, 211, 211) Then
RNG.Cells(randomCell).Interior.Color = RGB(211, 211, 211)
i = i + 1
End If
answered Mar 22 at 20:26
BruceWayneBruceWayne
18.2k113464
You could instead check the RGB Value, which allows you to be more specific:
If RNG.Cells(randomCell).Interior.Color <> RGB(211, 211, 211) Then
RNG.Cells(randomCell).Interior.Color = RGB(211, 211, 211)
i = i + 1
End If
answered Mar 22 at 20:26
BruceWayneBruceWayne
18.2k113464
answered Mar 22 at 20:26
BruceWayneBruceWayne
18.2k113464
answered Mar 22 at 20:26
BruceWayneBruceWayne
18.2k113464
answered Mar 22 at 20:26
BruceWayneBruceWayne
18.2k113464
18.2k113464
Good idea. I will use that to set the specific color of the cell, but how then do i change the color of the font?
– Gehn47
Mar 22 at 20:27
@Gehn47 - should just be like,Cells(#, #).Font.Color = RGB(107, 100, 0)
– BruceWayne
Mar 22 at 20:33
add a comment |
Good idea. I will use that to set the specific color of the cell, but how then do i change the color of the font?
– Gehn47
Mar 22 at 20:27
@Gehn47 - should just be like,Cells(#, #).Font.Color = RGB(107, 100, 0)
– BruceWayne
Mar 22 at 20:33
Good idea. I will use that to set the specific color of the cell, but how then do i change the color of the font?
– Gehn47
Mar 22 at 20:27
Good idea. I will use that to set the specific color of the cell, but how then do i change the color of the font?
– Gehn47
Mar 22 at 20:27
@Gehn47 - should just be like,
Cells(#, #).Font.Color = RGB(107, 100, 0)– BruceWayne
Mar 22 at 20:33
@Gehn47 - should just be like,
Cells(#, #).Font.Color = RGB(107, 100, 0)– BruceWayne
Mar 22 at 20:33
add a comment |
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55307269%2ffont-color-change-on-random-keno-card%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
vbGrayisn't a built in color. You could create a variable, and use that.– BruceWayne
Mar 22 at 20:24
That actually should be vbBlack. It was vbYellow but we don't use a color printer so I was changing it to a darker color. However since the text is black.
– Gehn47
Mar 22 at 20:25