| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| All colors in Office documents are grayscale, how do I see colors | Excel Discussion (Misc queries) | |||
| Used drawing colors in shapes....lost default colors for "Fill Col | Excel Discussion (Misc queries) | |||
| Worksheet formatting (fill colors & text colors) disappeared | Excel Discussion (Misc queries) | |||
| Lost highlighting and font colors; background colors on web pages | Excel Discussion (Misc queries) | |||
| Can't format font colors or cell fill-in colors | Excel Discussion (Misc queries) | |||
Hybrid Mode
