FORMATING ITEMS IN A COMBOBOX !!

[jay dean]

Hello -

I have implemented a combobox on a form and it works great. It loads its
items from "SheetB". On "SheetB", I have formatted some of the items the
way I want but they lose that format after loading into the combobox.

What code do I use to keep the format as is when it is loaded into the
combobox?

OR, what code do I use to change the color, size, and font of some
"SPECIFIC" items (not all) in a combobox?

Any help would be appreciated.

Thanks
Jay


*** Sent via Developersdex http://www.developersdex.com ***

 

[FSt1]

hi
if you are using the rowsorce property to load the combo box, all this does
is bring the data into the combo box, not the sheet formating. you format the
combo box through the combo property box. you can set the back color, font
color, borders etc but its a all or nothing thing. you can't format each
individual item in the combobox differently regardless of how you format the
data on the sheet. sorry.

Regards
FSt1

 

[HelpExcel.com]

Jay,

Following are some of the properties of the combobox that you can adjust:

Private Sub UserForm_Initialize()
Me.ComboBox1.BackColor = 1
Me.ComboBox1.Font = "Verdana"
Me.ComboBox1.Width = 100
Me.ComboBox1.Height = 100
End Sub

 

[Patrick Molloy]

formatting a cell just changes the way that the cell's content appears...it
doesn't alter the content itself.

so for a date, the cell's value might appear to be 12/3/2008 but it's actual
value is 39519
when loaded to a combo box, the actual value is loaded.

what you may need to do is use the form's load procedure to load the values
rather than use the rowsource property...see the following example where i
have a table of dates range named 'MyData'

The following is the code behind the form:

Option Explicit
Private Sub UserForm_Initialize()
LoadComboDates
End Sub
Sub LoadComboDates()
Dim cell As Range
For Each cell In Range("MyData")
ComboBox1.AddItem Format(cell.Value, "dd-mmm-yy")
Next
End Sub