ExcelBanter - Colors

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Colors (https://www.excelbanter.com/excel-programming/330723-colors.html)

Geoff

Colors

Hi
I have put the hex values of colors into Range("A1:A5").
&H0&
&HFFFFFF&
&HFF&
&HFF00&
&HFF0000&

How can i iterate through the range and use the hex value? The code below
fails with 'Mismatch'

Dim frm,frmcolor
For i =1 to 5
frmcolor = Sheets(1).Cells(i , 1).Value
frm.BackColor = frmcolor
Next

Appreciate any help.

T.I.A.

Geoff

Peter T

Colors

Hi Geoff,

You need to coerce the Hex string to a value

frmcolor = Val(Sheets(1).Cells(i, 1).Value)

Be aware that in vba colours are read from Hex as BGR, not RGB as in html
#RRGGBB. However your sample colours correctly define pure black, white,
red, green & blue.

Regards,
Peter T

"Geoff" wrote in message
...
Hi
I have put the hex values of colors into Range("A1:A5").
&H0&
&HFFFFFF&
&HFF&
&HFF00&
&HFF0000&

How can i iterate through the range and use the hex value? The code below
fails with 'Mismatch'

Dim frm,frmcolor
For i =1 to 5
frmcolor = Sheets(1).Cells(i , 1).Value
frm.BackColor = frmcolor
Next

Appreciate any help.

T.I.A.

Geoff

Bob Phillips[_7_]

Colors

You can use RGB to be consistent

Activecell.Interior.Color = RGB(&hff,&h0,&h0)

3 questions on colour today already :-)

--
HTH

Bob Phillips

"Peter T" <peter_t@discussions wrote in message
...
Hi Geoff,

You need to coerce the Hex string to a value

frmcolor = Val(Sheets(1).Cells(i, 1).Value)

Be aware that in vba colours are read from Hex as BGR, not RGB as in html
#RRGGBB. However your sample colours correctly define pure black, white,
red, green & blue.

Regards,
Peter T

"Geoff" wrote in message
...
Hi
I have put the hex values of colors into Range("A1:A5").
&H0&
&HFFFFFF&
&HFF&
&HFF00&
&HFF0000&

How can i iterate through the range and use the hex value? The code
below
fails with 'Mismatch'

Dim frm,frmcolor
For i =1 to 5
frmcolor = Sheets(1).Cells(i , 1).Value
frm.BackColor = frmcolor
Next

Appreciate any help.

T.I.A.

Geoff

Geoff

Colors

Hi Peter T
Thanks, thats great. Just knew it had to be simple.

Geoff

"Peter T" wrote:

Hi Geoff,

You need to coerce the Hex string to a value

frmcolor = Val(Sheets(1).Cells(i, 1).Value)

Be aware that in vba colours are read from Hex as BGR, not RGB as in html
#RRGGBB. However your sample colours correctly define pure black, white,
red, green & blue.

Regards,
Peter T

"Geoff" wrote in message
...
Hi
I have put the hex values of colors into Range("A1:A5").
&H0&
&HFFFFFF&
&HFF&
&HFF00&
&HFF0000&

How can i iterate through the range and use the hex value? The code below
fails with 'Mismatch'

Dim frm,frmcolor
For i =1 to 5
frmcolor = Sheets(1).Cells(i , 1).Value
frm.BackColor = frmcolor
Next

Appreciate any help.

T.I.A.

Geoff

All times are GMT +1. The time now is 04:14 PM.