Email:      Pass:    Pass?
Close Window   
Free Ebook
Get Your Free Excel
Our Top 15 Excel Tutorials
Instant Access!

Subscribe for Free Excel tips & more!

Free Excel Forum

Combo Box Font Format?

Forum Register
Search Excel Forum Posts, Tutorials, Macros, Tips, and More

Is there a way to format the displayed font in a Combo Box. Formatting the input ranges does not seem to work.


View Answers     

Similar Excel Tutorials

Copy one range and paste in another range
Below is a macro, just copy and paste it into a module in your workbook and go from there.This macro uses message b ...
How to Add Formatting to Cells and Data in Excel Styles, Fonts, Colors, & More
In this tutorial I will cover how to use the various formatting tools in Excel. The Formatting tools are located on ...
Hide Data Within a Worksheet in Excel
In Excel you can actually hide data that is stored within a worksheet. This allows you to show data that is useful ...
Quickly Add, Edit, & Manage Business Specific Diagrams in Excel (SmartArt)
In this tutorial I am going to show you how to add, edit, and manage Business oriented diagrams, charts, and shapes ...

Helpful Excel Macros

Format Cells as a Fraction in Excel Number Formatting
- This free Excel macro will automatically format a selected cell or many selected cells in the Fraction number format in
Format Cells in The General (default) Format in Excel Number Formatting
- This free Excel macro formats a selected cell or range of cells to the General number format in Excel. This is the defa
Format Cells as an Accounting Number in Excel Number Formatting
- This free Excel macro formats a selected cell as an Accounting number. This means that the accounting number format is
Format Cells as a Scientific Number in Excel Number Formatting
- This free Excel macro formats selected cells in the Scientific number format in Excel. This means the cell will be put
Format Cells as a Percentage in Excel Number Formatting
- This free Excel macro formats a selection of cells as a Percentage in Excel. This simply changes a cell's number format

Similar Topics

I have a combo box with a list of options from which the user can choose.
The problem is that I can't seem to change the font of the text in the combo
box. I want to make the text bigger or perhaps bold it. Right clicking on
the combo box only allows me to assign a macro or enter the format control.
There does not seem to be a way to change the format of the font in the combo
box. Any help greatly appreciated.

Hi, I am using Excel 2003, created an Activex control combo box and set font properties to Arial 11 pt. bold. The code for the combo box works fine and returns a value from another sheet.

Occaisionally when I click the drop down carat, the font size of the list displayed by the combo box increases or decreases. Once this starts, clicking the carat repeatedly will increment font size up or down continously to the point that the data in the box is unreadable.

Any ideas why this happens or how to lock the font size in some stronger way? Thanks!

I have a Combo Box and the font size is extremely small. I cannot adjust the
font size through the Format Control (right click) and the font does not
increase in relation to the Combo Box (i.e. if I enlarge the box, the font
size stays small).

Am trying to change font in a combo box in Excel 2003 but cant figure out how
to. The font appears to be a default size and style regardless of how large
I make the combo box. I have canged the size of font in the linked list but
this does not work. Any help welcomed.


I know combo-box from Control Toolbox can be formatted (change colour, font size....) from the properties window.

But can the combo-box from the forms toolbar be formatted. I just want to change the font size, font colour and the background colour.

I tried looking at various things but I cannot find anything that will change this combo-box.


I know I could use the combo box from the Control Toolbox, but I was having problems with dynamic ranges that I am using, it doesn't update properly. And using forms combo-box was easy, uses less VBA. (And it works)

All I need is to re-size font and colour the white area of the combo-box

Any suggestions?



I'm sure this is a simple question, Why can't I change the font size of a combo box?
I tried changing it in the drop down listFillrange, linked cell, and I've tried properties and format control.
Thanks for any help

I am trying to create an ActiveX Combo box which displays a list of dates formatted in the style "14-Mar-98". However, once you select a date from the combo box, what is displayed within the combo box is a text string (e.g. 37864).

Does anyone know how to format an ActiveX Combo box so that whatever you choose is displayed in a date form?


I first put in a format combo box which has 10%, 20%, 30% etc. When selected (it works fine) it has a formula to change the percent to 90%, 80%, 70% in the other cell (=1-(Criticial_Requirements_Weighting/10)). The only problem was the font on the selection in the combo box was very small and did not look good. I read that I could not change the appearance of this combo box. I changed it to an active x combo box, but now when I select an item in the drop down, it looks like 10%, 20%, 30% but when i click and view the selection in the cell it is displaying as 0.1, 0.2 or 0.3. I added the following


Private Sub ComboBox1_Change() 
    ComboBox1.Text = Format(ComboBox1.Value, "0 %") 
End Sub 

If you like these VB formatting tags please consider sponsoring me in support of injured Royal Marines

Now my formula does not work and it is still displaying 0.1. Is there a way to change the look of the cell and drop down selection using the combo box and not the active X combo box? I have been trying everything for a week now, but nothing is working, thanking you in advance.

How do i change the font of a combo Box depending on what is entered


There will be 4 status "", which will be black font, "R" which will require red font, "A", which will require yellow font & "G" which will require Green font

Thanks in advance



I am using Excel 2007 and I cannot get the text in my combo box to resize. Here is what I have done:

Gone to the Developer tab on the ribbon.
Under the Controls portion of the Developer tab I've clicked insert.
Selected the combo box from the drop down list.
Clicked on the page to insert the combo box; repositioned and resized to what I want.

I have clicked on design view and had the combo box selected and selected the properties button, however there is no font size option. I was just wondering if there is anyway to get the font size inside the combo box to be bigger.

Thanks for all your help!

I have a combo box that is linked to a list of dates ("dd/mm/yyyy") however what is the line of code to format these dates in the same format when they are displayed in the combo box?


This is only my second time here so be nice!!
I have a two questions regarding combo boxes on an Excel spreadsheet.

1) Using the form combo box can the font size be changed?
2) Using an active X combo box, how can I get it to work and how do you add anything to it. I add one go in to properties but I can't click on the box so it works??? confused!! ?

Is there a way to change the font displayed in pull down menus created with the combo box usign the forms toolbar. I am using the Mac excel.

Apprecaite any assistance.


Hi everyone,

I have some problem with the following code in excel ( a loop for solver )
In the last line, I want to set the solver answer by chaning the cells (I2:J2), and then(I3:J3)... till (I14539:J14539) but it doesn't work...

Here's the code:


[FONT=&#32048]Sub solverloop()[/FONT] 
[FONT=&#32048]    Dim iRow           As Long[/FONT] 
[FONT=&#32048] [/FONT] 
[FONT=&#32048]    For iRow = [/FONT][FONT=&#32048]2[/FONT][FONT=&#32048] To [/FONT][FONT=&#32048]14539[/FONT] 
[FONT=&#32048]        SolverOk SetCell:=Cells("[/FONT][FONT=&#32048]K[/FONT][FONT=&#32048]", iRow), [/FONT][FONT=&#32048][/FONT] 
[FONT=&#32048]                 MaxMinVal:=[/FONT][FONT=&#32048]3[/FONT][FONT=&#32048], [/FONT]ValueOf:="0",[FONT=&#32048][/FONT] 
[FONT=&#32048]                 ByChange:=[/FONT][FONT=&#32048]Range("I","iRow":"J","iRow")[/FONT] 
[FONT=&#32048]     [/FONT] 
[FONT=&#32048]    Next iRow[/FONT] 
[FONT=&#32048]End Sub[/FONT] 

If you like these VB formatting tags please consider sponsoring me in support of injured Royal Marines

Many Thanks

I am trying to populate combo box with system font list, found this code which should work but i get no values in the combo box!?!

Private Sub Form_Load()
Dim i As Long
For i = 0 To Screen.FontsCount - 1
Combo1.AddItem Screen.Fonts(i)
End Sub

If anyone can see where i am going wrong would be most appreciated.

Within the last day, the font in my all of my combo boxes has been shrinking every time I use them. I can barely see the font at this point. Any suggestions?

Hi Group,

How can I write some simple code to change the format on a range of Combo Boxes.
I want to change the Font Type & size, Background colour, & List size



I want to store data’s in selected sheet from drop down menu .suppose if I select sheet 1 data should be stored in sheet1 if I select sheet2 data’s should be stored in sheet2 . With the code below I can add sheet names in combo box. If someone helps me I shall be grateful to you.


[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] [/SIZE][/FONT] 
[SIZE=2][FONT=Courier New]Private Sub UserForm_Initialize()[/FONT][/SIZE] 
[SIZE=2][FONT=Courier New]Dim i As Integer[/FONT][/SIZE] 
[SIZE=2][FONT=Courier New]For i = 1 To Worksheets.Count[/FONT][/SIZE] 
[SIZE=2][FONT=Courier New]Me.ComboBox1.AddItem Worksheets(i).Name[/FONT][/SIZE] 
[SIZE=2][FONT=Courier New]Next i[/FONT][/SIZE] 
[SIZE=2][FONT=Courier New]End Sub[/FONT][/SIZE] 

If you like these VB formatting tags please consider sponsoring me in support of injured Royal Marines

I have a column range H13:H26

Starting at H13 I would like to format the cell font to RED if 2 conditions are met

eg: IF E13>1 AND F13>1 then format font to red.

I can get it to work using only 1 condition like

formula: =$E$13>1 then using the font conditional formatting,

but I cant figure out how to use AND to this process.

=IF(AND(E13>1,F13>1),) does not work

Any workable solutions appreciated.

this issueis from a project where I had an excel specialist help me program an audit report.
He helped me put in an combo box/drop down menu to filter out users I am auditing, after the project has finished I wanted to format the drop down menu (change font, expand selection of the worksheet..etc) but for some reason I was not able to do any change to it like other combo box. I tried right clicking the drop box but it doesn't work and I could not find any link in the macro/VBA that directly correlates to the combo box. am I just missing something completely obvious or this is put in with a special 3rd party program?

Hi there,

Sorry to flood the forums with multiple posts of the same type but I'm running a bit behind here...

I have a range of dates on a spreadsheet linked to a userform combo box. All dates are displayed "dd-mm-yyyy" on the spreadsheet.

When I select a date from the combo box dropdown the dates are displayed as "dd-mm-yyyy" HOWEVER when I select one is displays as a number format.

I was using the line

cboDate.Text = Format(cboDate.Text, "dd/mm/yyyy")
Worksheets("Data Extract").Range("B8").Value = cboDate.Value

in my code however by doing so, when it writes the date back to my worksheet it is no longer a valid date format (ie no numerical value) it shows as "01/03/2008" but I'm presuming it's being entered as text (as I can't change the formatting of it)

What am I doing wrong?

I've decided to learn a little about Access by using it to help me organize receipts, invoices, etc... One thing I'd like to do is set a format for receipts depending on the value chosen from a combo box. For example, if I choose "Home Depot" from a combo box then I'd like the default format for an invoice field to be "XXXX-XXX-ABCD-MMDDYYY". If I chose "Exxon" then I'd like the format of the invoice field to default to "A123XX"....for example.

Kind of like an "input mask" but it would depend on the value selected from the combo box.

Hope this makes sense and thanks in advance for any help with this!


I've created a combo box in excel using the Control Toolbox. I've created a list for the combo box and it seems to work fine. My problem is that every time I click on the combo box and make a selection, the font shrinks. And it just keeps shrinking and shrinking every time I click on the box until I can't even see what it says. What causes this?

Hi all, I have a combo box ActiveX control on my excel worksheet that I would like to have it's selection list populated with a Named Range that I have defined.

Under normal circumstances, I would just use Excel's data validation option to create assign my list to a cell. Of course I would specify it to ignore blank cells since I'm using a Dynamic Named Range. In this case there would be no need for an ActiveX control.

Alternatively, I could do this relatively simply through the form control as well. However, in both of these choices, I'm limited because I need to change the Font Size. I can easily do this by changing the font properties in the ActiveX control, but don't see a way possible to do this for form controls or in embedded cell list.

So my question, is there a way to change the font through some VBA code for a form control combo box? If not, is their a VBA function that I can assign to my ActiveX control combo box to populate its selection list with one of my defined Named Ranges? Thanks so much for any feedback on this!!!


Hi guys, I will appreciate your assistance on this:

I am trying to populate combo box 2 based on the input in combo box 1. Given the data set below:

Source 1 Source 2
AA 2
AA 2
AA 4
BB 10
BB 15
BB 20
CC 3
CC 6
CC 9

I want the results to show as follows:

Combo Box1 Combo Box 2 Combo Box1 Combo Box 2 Combo Box1 Combo Box 2
AA 2 BB 10 CC 3
4 15 6
20 9

If "AA" is selected in Combo box1, I will like Combo box 2 to display ("2" and "4"); If "BB" is selected in Combo box1, I will like Combo box 2 to display ("10", "15" and "20");

I have tried using this function: Me.Bn.Value = Application.VLookup(Me.Phs.Value, Worksheets("CycTA").Range("V5:W" & LastRow), 2, False) but it is not working.
In my code: Combo box 1 and 2 are named "Phs" and "Bn" respectively.

Pls find the attached file.

Thank you!