Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to pass interior colours of specified range to a control.
Is is possible to load the interior colours of a range of cells into control?
That is I have a range A1:A5 -all of which have different interior cell colours. I want to be able to pass these actual interiour colours (not their interior colour numbers) to a control and choose them for search criteria. So effectively, upon displaying the colours, I decide that I want the colour of cell A1 (cell.InteriorColour = Yellow), and I search for other cells with that colour. I know I can also use the John Walkenbach colour palette and potentially load it with the colours from this range and then turn the enable propertly of the remaining buttons to FALSE if need be. Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to pass interior colours of specified range to a control.
How about the color property, rather than the colorindex?
-- HTH Bob Phillips "ExcelMonkey" wrote in message ... Is is possible to load the interior colours of a range of cells into control? That is I have a range A1:A5 -all of which have different interior cell colours. I want to be able to pass these actual interiour colours (not their interior colour numbers) to a control and choose them for search criteria. So effectively, upon displaying the colours, I decide that I want the colour of cell A1 (cell.InteriorColour = Yellow), and I search for other cells with that colour. I know I can also use the John Walkenbach colour palette and potentially load it with the colours from this range and then turn the enable propertly of the remaining buttons to FALSE if need be. Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to pass interior colours of specified range to a control.
Good afternoon Excel monkey The code below will pass the colours from a selected range to a variable (b) and then display these in a msgbox. The msgbox is just to prove that it works. Sub colours() Dim UsrRnge, a(), b, c, d b = Selection.Cells.Count c = 1 ReDim a(b) For Each UsrRnge In Selection a(c) = UsrRnge.Interior.ColorIndex c = c + 1 Next UsrRnge For d = 1 To b MsgBox a(d) Next d End Sub This code could be streamlined, but I've left it as simple as possible with individual steps to show exactly how it has been done. HTH DominicB -- dominicb ------------------------------------------------------------------------ dominicb's Profile: http://www.excelforum.com/member.php...o&userid=18932 View this thread: http://www.excelforum.com/showthread...hreadid=390149 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to pass interior colours of specified range to a control.
The OP will need the actual colour rather than the ColorIndex
colorVal = activeworbook.colors(cIndex) Regards, Peter T "dominicb" wrote in message ... Good afternoon Excel monkey The code below will pass the colours from a selected range to a variable (b) and then display these in a msgbox. The msgbox is just to prove that it works. Sub colours() Dim UsrRnge, a(), b, c, d b = Selection.Cells.Count c = 1 ReDim a(b) For Each UsrRnge In Selection a(c) = UsrRnge.Interior.ColorIndex c = c + 1 Next UsrRnge For d = 1 To b MsgBox a(d) Next d End Sub This code could be streamlined, but I've left it as simple as possible with individual steps to show exactly how it has been done. HTH DominicB -- dominicb ------------------------------------------------------------------------ dominicb's Profile: http://www.excelforum.com/member.php...o&userid=18932 View this thread: http://www.excelforum.com/showthread...hreadid=390149 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to pass interior colours of specified range to a control.
Sounded more to me like he wanted names like Pink, Yellow and Blue. But who
knows. -- Regards, Tom Ogilvy "Peter T" <peter_t@discussions wrote in message ... The OP will need the actual colour rather than the ColorIndex colorVal = activeworbook.colors(cIndex) Regards, Peter T "dominicb" wrote in message ... Good afternoon Excel monkey The code below will pass the colours from a selected range to a variable (b) and then display these in a msgbox. The msgbox is just to prove that it works. Sub colours() Dim UsrRnge, a(), b, c, d b = Selection.Cells.Count c = 1 ReDim a(b) For Each UsrRnge In Selection a(c) = UsrRnge.Interior.ColorIndex c = c + 1 Next UsrRnge For d = 1 To b MsgBox a(d) Next d End Sub This code could be streamlined, but I've left it as simple as possible with individual steps to show exactly how it has been done. HTH DominicB -- dominicb ------------------------------------------------------------------------ dominicb's Profile: http://www.excelforum.com/member.php...o&userid=18932 View this thread: http://www.excelforum.com/showthread...hreadid=390149 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to pass interior colours of specified range to a control.
Sounded more to me like he wanted names like Pink, Yellow and Blue. But
who knows. You might be right, but it looks like we are not destined to know either way. Regards, Peter T "Peter T" <peter_t@discussions wrote in message ... The OP will need the actual colour rather than the ColorIndex colorVal = activeworbook.colors(cIndex) Regards, Peter T "dominicb" wrote in message ... Good afternoon Excel monkey The code below will pass the colours from a selected range to a variable (b) and then display these in a msgbox. The msgbox is just to prove that it works. Sub colours() Dim UsrRnge, a(), b, c, d b = Selection.Cells.Count c = 1 ReDim a(b) For Each UsrRnge In Selection a(c) = UsrRnge.Interior.ColorIndex c = c + 1 Next UsrRnge For d = 1 To b MsgBox a(d) Next d End Sub This code could be streamlined, but I've left it as simple as possible with individual steps to show exactly how it has been done. HTH DominicB -- dominicb ------------------------------------------------------------------------ dominicb's Profile: http://www.excelforum.com/member.php...o&userid=18932 View this thread: http://www.excelforum.com/showthread...hreadid=390149 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Pass control back to Excel window | Excel Worksheet Functions | |||
color the interior of a range | Excel Worksheet Functions | |||
How to Pass Control from VBA to user and return | Excel Programming | |||
Clearing Interior Colours or all sheets | Excel Programming | |||
Select All Sheets and clear Interior Cell colours | Excel Programming |