Data Validation List font is too small

[jtoms]

I can't seem to figure how to increase the font size of my dropdown list. I am choosing from a list of about 40 values and I have tried to increase the size of the cell, merge it with other cells, and change the font size of the cell.

I am using XL2002, Win XP.

Please let me know if you can help.

Thank you.

-j

 

[Bubbis Thedog]

I don't believe you can change the font of data validation contents. You can, however, replace the data validation list with a combobox in which you can do so. If any of the experts on here know how to change DV fonts, I'd like to know, too!

 

[acw]

Hi

One thing to check is the zoom on the sheet. If it is too small, it will impact.


Tony

 

[Tom Urtis]

Data Validation does not have the functionality you are asking for.

One blue collar workaround is to adjust the zoom when you select the cell that is data validated. It makes me dizzy so I never do this for myself, but some people like it so here it is.

Assuming your cell is D12 (you didn't say, so modify the code accordingly), right-click on your sheet tab, left click on View Code, and paste the following procedure into the large white area that is the worksheet module. Press Alt+Q to return to the worksheet.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveWindow
If ActiveCell.Address = "$D$12" Then
.Zoom = 250
Else
.Zoom = 100
End If
End With
End Sub


Modify also for desired zooms (normal if not 100, and 250 if too big or too small).

 

[jtoms]

Awesome! I like it. Thank you!

I have more than one list...Could I use an if....else...if...else to add more zoomed in cells? I tried but got a compile error.

Here is the code again:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveWindow
If ActiveCell.Address = "$A$4" Then
.Zoom = 250
Else
.Zoom = 50
End If
End With
End Sub

I propose something like:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveWindow
If ActiveCell.Address = "$A$4" Then
.Zoom = 250
Else IF ActiveCell.Address = "$B$4" Then
.Zoom = 250
Else
.Zoom = 50
End If
End With
End Sub

etc....etc.

 

[Tom Urtis]

Maybe this is what you want?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveWindow
If Intersect(Target, Range("A4:B4")) Is Nothing Then
.Zoom = 50
Else
.Zoom = 250
End If
End With
End Sub