Direkt zum Inhalt

Wie kann ich die Schriftgröße der Dropdown-Liste in Excel erhöhen?

doc Dropdown-Liste für Schriftgröße erhöhen 1

Dropdown-Liste ist eine sehr hilfreiche Funktion in Excel. Haben Sie beim Erstellen einer Dropdown-Liste in Ihrem Arbeitsblatt jemals versucht, die Schriftgröße der Dropdown-Liste zu erhöhen, um den ausgewählten Datensatz größer und lesbarer zu machen, wie im linken Screenshot gezeigt? In diesem Artikel wird eine Problemumgehung zur Lösung dieses Problems beschrieben.

Erhöhen Sie die Schriftgröße der Dropdown-Liste mit VBA-Code, um den Zoom zu vergrößern


Erhöhen Sie die Schriftgröße der Dropdown-Liste mit VBA-Code, um den Zoom zu vergrößern

Tatsächlich gibt es für uns keine direkte Möglichkeit, die Schriftgröße der Dropdown-Liste zu erhöhen. Sie können jedoch den folgenden VBA-Code anwenden, um die Zoomeinstellung für Dropdown-Listenzellen zu ändern und den Text größer erscheinen zu lassen. Bitte gehen Sie wie folgt vor:

1. Gehen Sie zum Arbeitsblatt, das die Dropdown-Liste enthält, deren Schriftgröße Sie erhöhen möchten.

2. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt und wählen Sie Code anzeigen aus dem Kontextmenü in der herausgesprungenen Microsoft Visual Basic für Applikationen Fenster, bitte kopieren Sie den folgenden Code und fügen Sie ihn in das Feld ein Modul Fenster:

VBA-Code: Erhöhen Sie die Schriftgröße der Dropdown-Liste, um den Zellenzoom zu vergrößern

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
    On Error GoTo LZoom
    Dim xZoom As Long
    xZoom = 100
    If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

3. Speichern und schließen Sie diesen Code. Wenn Sie jetzt auf die Dropdown-Listenzellen klicken, wird der Zoom der Zelle vergrößert und die Dropdown-Liste wird größer angezeigt. Wenn Sie jedoch auf andere Zellen klicken, die die Dropdown-Liste nicht enthalten, wird die Der Zellenzoom ist normal.

Note: Im obigen Code, xZoom = 130 ändert den Zoom der Dropdown-Listenzellen 130können Sie diese Zoomnummer nach Ihren Wünschen ändern.


Erstellen Sie eine Dropdown-Liste mit Kontrollkästchen in Excel

Wenn Sie eine Dropdown-Liste mit mehreren Kontrollkästchen erstellen müssen, um mehrere Elemente aus der Liste in einer Zelle auszuwählen, gibt es möglicherweise keine direkte Möglichkeit, diese Aufgabe zu lösen. Aber, Kutools for Excel unterstütze eine erstaunliche Funktion - Dropdown-Liste mit KontrollkästchenMit dieser Funktion können Sie schnell eine Dropdown-Liste mit Kontrollkästchen in einem bestimmten Bereich, einem aktuellen Arbeitsblatt, einer aktuellen Arbeitsmappe oder allen geöffneten Arbeitsmappen erstellen, je nach Ihren Anforderungen.  Klicken Sie hier, um Kutools für Excel herunterzuladen!


Demo: Erhöhen Sie die Schriftgröße der Dropdown-Liste mit VBA-Code, um den Zoom zu vergrößern

Beste Office-Produktivitätstools

Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

kte tab 201905


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (29)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks so much!
This comment was minimized by the moderator on the site
I have multiple drop down buttons. The VBA code was working fine at the first attempt. But i had to change the layout of the form requiring movement of all the cells. Now, all the drop down cells works except for one. I tried deleting and repasting the code. The problem persist, all cells works except for that one. Please help.
This comment was minimized by the moderator on the site
Ale po zamknięciu pliku i ponownym go otwarciu to rozwiązanie już nie działa.
This comment was minimized by the moderator on the site
OKI. Trzeba zapisać plik z obsługą makra.
This comment was minimized by the moderator on the site
Hello friend,
You are right. We need to save the macro-enabled file so the solution can work. Have a great day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
Can we do this for multiple drop box? If not, then what is procedure for multiple drop box.
This comment was minimized by the moderator on the site
Ocurre al revés. Al dar clic en cualquiera celda se agranda, pero no en la lista desplegable y no vuelve al tamaño original. Uso Excel 2010. ¿Solución?It happens the other way around. Clicking on any cell enlarges it, but not the dropdown list and it does not return to the original size. I use Excel 2010. Solution?
This comment was minimized by the moderator on the site
Thank You for the tip to zoom the size of the font in the drop down box. It did the trick.
This comment was minimized by the moderator on the site
Hi, Just question i have pasted the code onto blank Module window (Right click in view code). Once i save, is function well that was good. But when i close the file and re-open it, the code was gone and no more enlarge for the drop down list. Can i know how to set for permanent use?
This comment was minimized by the moderator on the site
Hello, Ace,
To save the code, you should save the Excel file as Excel Macro-Enabled Workbook format. Please try it.
This comment was minimized by the moderator on the site
I have multiple dropdowns and only need one bigger as the rest are yes/no. But the code you shared is doing this for all of them. How do I only this to be used for one dropdown only?
This comment was minimized by the moderator on the site
Hello, Yvonne
To apply the code only to one cell, the following code may help you: (Note: in the code, change the cell I2 to your own cell reference.)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
    On Error GoTo LZoom
    Dim xZoom As Long
    Dim xRg As Range
    xZoom = 100
    Set xRg = Range("I2")
    If Not Intersect(Target, xRg) Is Nothing Then
        If Target.Validation.Type = xlValidateList Then xZoom = 130
    End If
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

Please try, hope it can help you!
This comment was minimized by the moderator on the site
How can I apply this font change size to only one column? I have several columns with drop-down boxes and I only want one specific column to change font size?
This comment was minimized by the moderator on the site
This zooms the whole sheet to 130%
How do I increase only the drop menu ?
This comment was minimized by the moderator on the site
Hello, Dave,
To only increase the drop down menu, here is a workaround to solve it.

First, after inserting the drop down list in your worksheet, then you should insert an Combo Box (ActiveX Controls),and then apply the following VBA code into the sheet module code:

Dim xRg As Range
Private Sub ComboBox1_Change()
On Error Resume Next
xRg.Value = Me.ComboBox1.Text
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo LblExit
With Me.ComboBox1
.Visible = False
If Target.Validation.Type = xlValidateList Then
Target.Validation.InCellDropdown = False
.ListWidth = 120
.ListFillRange = ""
.ListFillRange = Target.Validation.Formula1
.Left = Target.Left
.Top = Target.Top
.Width = Target.Width
.Height = Target.Height
.Font.Size = 16
.Visible = True
Set xRg = Target
End If
End With
LblExit:
End Sub

After inserting the code, now when you click the drop down list cell, a combo box will be displayed, and font size in the drop down menu is increased as you need. And the inserted combo box will be hidden automatically.

Please try it, hope it can help you!
This comment was minimized by the moderator on the site
Can you explain it step by step for dummies pls?
This comment was minimized by the moderator on the site
Hello, ITALO,
1. Insert the drop down you need in your worksheet;
2. Then insert a Combo Box (ActiveX Controls) by clicking Developer > Insert > Combo Box (ActiveX Controls), and then drag the mouse to draw a Combo Box object;
3. And then, right click your current used worksheet, choose View Code, and paste the above code into the module;
4. At last, click Design Mode under the Developer tab to disable it.
5. Now when you click the drop down list cell, a combo box will be displayed, and font size in the drop down menu is increased as you need.
Please try, hope it can help you!
This comment was minimized by the moderator on the site
GENIUS! Thank you Skyyang! So grateful for your method! Works like a charm!
This comment was minimized by the moderator on the site
After using this code, I can't use return key on Excel. How can I code (install) return key?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations