Hogyan növelhető a legördülő lista betűmérete az Excelben?

doc betűméret növelése legördülő lista 1

A legördülő lista nagyon hasznos funkció az Excelben, amikor létrehoz egy legördülő listát a munkalapon, megpróbálta már növelni a legördülő lista betűméretét, hogy a kiválasztott rekord nagyobb és olvashatóbb legyen, ahogy a bal oldali képernyőkép látható? Ez a cikk egy megoldásról fog beszélni.

A nagyítás érdekében növelje a legördülő lista betűméretét VBA kóddal

A nagyítás érdekében növelje a legördülő lista betűméretét VBA kóddal

Valójában nincs közvetlen módja a legördülő lista betűméretének növelésére, de a következő VBA kódot alkalmazhatja a legördülő lista celláinak zoom beállításának megváltoztatására, hogy a szöveg nagyobb legyen. Kérjük, tegye a következőket:

1. Lépjen a munkalapra, amely a legördülő listát tartalmazza, és meg szeretné növelni a betűméretet.

2. Kattintson a jobb gombbal a lap fülre, és válassza a lehetőséget Kód megtekintése a helyi menüből, a kiugrottban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be a következő kódot az üresbe Modulok ablak:

VBA-kód: Növelje a legördülő lista betűméretét a cella nagyításához

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. Ezután mentse és zárja be ezt a kódot. Most, amikor a legördülő lista celláira kattint, a cella nagyítása megnövekszik, és a legördülő lista nagyobbnak tűnik, de ha rákattint más cellákra, amelyek nem tartalmazzák a legördülő listát, a a cellák nagyítása normális lesz.

Megjegyzések: A fenti kódban xZoom = 130 megváltoztatja a legördülő lista celláinak nagyítását 130, ezt a nagyítási számot az Ön igényeinek megfelelően módosíthatja.

Létrehozás létrehozása az Excel jelölőnégyzeteivel

Ha több jelölőnégyzettel rendelkező legördülő listát kell létrehoznia annak érdekében, hogy a listából több elemet egyetlen cellába válasszon, akkor valószínűleg nincs közvetlen módja ennek a feladatnak a megoldására. De, Kutools for Excel támogasson egy csodálatos funkciót - Legördülő lista jelölőnégyzetekkel, ezzel a szolgáltatással gyorsan létrehozhat egy legördülő listát egy meghatározott tartományban lévő jelölőnégyzetekkel, az aktuális munkalap, az aktuális munkafüzet vagy az összes megnyitott munkafüzettel az Ön igényei szerint. Kattintson a Kutools for Excel letöltéséhez!

Bemutató: A nagyítás növeléséhez növelje a legördülő lista betűméretét VBA kóddal

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Tovább ... Ingyenes letöltés... Vásárlás...

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
50% -kal növeli a termelékenységet, és minden nap több száz kattintással csökkenti az egér kattintását!

Tovább ... Ingyenes letöltés... Vásárlás...

19 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
David Frost · 1 years ago
Thank You for the tip to zoom the size of the font in the drop down box. It did the trick.
- Reply
To post as a guest, your comment is unpublished.
Ace · 2 years ago
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?
- Reply
- To post as a guest, your comment is unpublished.
  skyyang · 2 years ago
  
  Hello, Ace,
  To save the code, you should save the Excel file as Excel Macro-Enabled Workbook format. Please try it.
  
  Reply
To post as a guest, your comment is unpublished.
Paul612 · 3 years ago
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?
- Reply
To post as a guest, your comment is unpublished.
david.harlev@gmail.com · 3 years ago
This zooms the whole sheet to 130%
How do I increase only the drop menu ?
- Reply
- To post as a guest, your comment is unpublished.
  skyyang · 3 years ago
  
  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!
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  ITALO BELMONTE · 2 years ago
  
  Can you explain it step by step for dummies pls?
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  skyyang · 2 years ago
  
  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!
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  GJ · 2 years ago
  
  GENIUS! Thank you Skyyang! So grateful for your method! Works like a charm!
  
  Reply
To post as a guest, your comment is unpublished.
George · 3 years ago
After using this code, I can't use return key on Excel. How can I code (install) return key?
- Reply
To post as a guest, your comment is unpublished.
John Driscoll · 3 years ago
This does not work for me. I pasted the text as instructed. When i clicked on the drop down menu the font size was the same. When i then clicked on a different cell, the whole spreadsheet increased in size perhaps by 30%. Really would like a work around if possible
- Reply
To post as a guest, your comment is unpublished.
Ahmed Sobhy · 3 years ago
Thanks, it works well
- Reply
To post as a guest, your comment is unpublished.
Noel · 3 years ago
Hi, Just wondering why this feature disappear after the file is saved and re-open?
- Reply
- To post as a guest, your comment is unpublished.
  miemieyang005@gmail.com · 3 years ago
  
  Hi, Noel, you should save the Excel file as Excel Macro-Enabled Workbook format.
  
  Reply
To post as a guest, your comment is unpublished.
Travis · 4 years ago
Like the directions indicate, you must change the zoom from "100" to "130" or a different zoom to see any changes. However, the 1st comment is accurate in that it does not just change the drop down menu, but rather once you click on the cell it will zoom the entire sheet 130% to zoom in on that cell. Not very helpful because then you just have to zoom back out every time.
- Reply
- To post as a guest, your comment is unpublished.
  garth · 3 years ago
  
  or select an alternate cell in the workbook to return it to 100 as stated in the Macro
  
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)'updateby Extendoffice 20160530 On Error GoTo LZoom Dim xZoom As Long xZoom = 100 If Target.Validation.Type = xlValidateList Then xZoom = 130LZoom: ActiveWindow.Zoom = xZoomEnd Sub
  
  Reply
To post as a guest, your comment is unpublished.
Harlem Eins · 4 years ago
I'm running Office 2016 and using drop-down boxes. I tried the "Increase drop down list font size with VBA code to enlarge the zoom" but it does not work. Is there anything else I should do to make it work?

Thank you!
- Reply
To post as a guest, your comment is unpublished.
Michael · 4 years ago
So, this code makes the whole sheet zoom, not just the drop down box. It also says "cannot save...... VB Project in a macro disabled workbook". Blah blah blah. If I have to hunt all over hell's half acre to get a complete answer to this issue, this is not an answer.
- Reply
- To post as a guest, your comment is unpublished.
  Harlem Eins · 4 years ago
  
  [quote name="Michael"]So, this code makes the whole sheet zoom, not just the drop down box. It also says "cannot save...... VB Project in a macro disabled workbook". Blah blah blah. If I have to hunt all over hell's half acre to get a complete answer to this issue, this is not an answer.[/quote]
  
  Simply save the workbook as xlsm and follow the steps again. BTW I tried it and it does NOT work for me at all; zoom is still at 100%.
  
  Reply

Bejelentkezés a fiókjába

Jelszó visszaállítása