Note: The other languages of the website are Google-translated. Back to English

Cum se mărește dimensiunea fontului listei drop-down în Excel?

doc crește dimensiunea fontului lista derulantă 1

Lista derulantă este o caracteristică foarte utilă în Excel, când creați o listă derulantă în foaia de lucru, ați încercat vreodată să măriți dimensiunea fontului din lista derulantă pentru a face înregistrarea selectată mai mare și mai ușor de citit pe măsură ce se afișează captura de ecran din stânga? Acest articol va vorbi despre o soluție pentru a o rezolva.

Măriți dimensiunea fontului listei drop-down cu codul VBA pentru a mări zoomul


Măriți dimensiunea fontului listei drop-down cu codul VBA pentru a mări zoomul

De fapt, nu există nicio modalitate directă de a crește dimensiunea fontului din lista derulantă, dar puteți aplica următorul cod VBA pentru a modifica setarea de zoom a celulelor listei derulante pentru a face textul să pară mai mare. Vă rugăm să faceți următoarele:

1. Accesați foaia de lucru care conține lista derulantă pe care doriți să o măriți dimensiunea fontului.

2. Faceți clic dreapta pe fila foaie și selectați Afișați codul din meniul contextual, în fereastra pop-out Microsoft Visual Basic pentru aplicații fereastra, copiați și lipiți următorul cod în spațiul gol Module fereastră:

Cod VBA: creșteți dimensiunea fontului din lista derulantă pentru a mări zoomul celulei

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. Apoi salvați și închideți acest cod, acum, când faceți clic pe celulele listei derulante, zoomul celulei va fi mărit, iar lista derulantă va apărea mai mare, dar, când faceți clic pe alte celule, nu conține lista derulantă, zoom-ul celulei va fi normal.

notițe: În codul de mai sus, xZoom = 130 va schimba lista de derulare a celulelor cu zoom 130, puteți modifica acest număr de zoom în funcție de nevoile dvs.


Creați o listă verticală cu casete de selectare în Excel

Dacă trebuie să creați o listă derulantă cu mai multe casete de selectare pentru a selecta mai multe elemente din listă într-o singură celulă, poate că nu există o modalitate directă de a rezolva această sarcină. Dar, Kutools pentru Excel acceptă o caracteristică uimitoare - Listă derulantă cu casete de selectare, cu această caracteristică, puteți crea rapid o listă derulantă cu casete de selectare într-un interval specificat, foaia de lucru curentă, registrul de lucru curent sau toate registrele de lucru deschise în funcție de nevoile dvs.  Faceți clic pentru a descărca Kutools pentru Excel!


Demo: Măriți dimensiunea fontului listei derulante cu codul VBA pentru a mări zoomul


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (27)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Deci, acest cod face ca întreaga foaie să fie mărită, nu doar caseta derulantă. De asemenea, scrie „nu se poate salva... Proiectul VB într-un registru de lucru cu macro-dezactivate”. Bla bla bla. Dacă trebuie să vânez peste jumătate de acru al iadului pentru a obține un răspuns complet la această problemă, acesta nu este un răspuns.
Acest comentariu a fost redus la minimum de moderatorul de pe site
[quote]Așadar, acest cod face ca întreaga foaie să fie mărită, nu doar caseta derulantă. De asemenea, scrie „nu se poate salva... Proiectul VB într-un registru de lucru cu macro-dezactivate”. Bla bla bla. Dacă trebuie să vânez peste jumătate de acru al iadului pentru a obține un răspuns complet la această problemă, acesta nu este un răspuns.De Michael[/quote] Pur și simplu salvați registrul de lucru ca xlsm și urmați din nou pașii. BTW l-am incercat si NU imi merge deloc; zoom-ul este încă la 100%.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Rulez Office 2016 și folosesc casetele drop-down. Am încercat „Măriți dimensiunea fontului listei derulante cu cod VBA pentru a mări zoomul”, dar nu funcționează. Mai ar trebui să fac ceva pentru ca să funcționeze? Mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
După cum indică indicațiile, trebuie să modificați zoomul de la „100” la „130” sau un alt zoom pentru a vedea orice modificări. Cu toate acestea, primul comentariu este corect prin faptul că nu schimbă doar meniul derulant, ci mai degrabă, odată ce faceți clic pe celulă, va mări întreaga foaie cu 1% pentru a mări acea celulă. Nu este foarte util pentru că atunci trebuie doar să micșorezi înapoi de fiecare dată.
Acest comentariu a fost redus la minimum de moderatorul de pe site
sau selectați o celulă alternativă din registrul de lucru pentru a o readuce la 100, așa cum se precizează în Macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)'updateby Extendoffice 20160530 La eroare GoTo LZoom Dim xZoom As Long xZoom = 100 Dacă Target.Validation.Type = xlValidateList Apoi xZoom = 130LZoom: ActiveWindow.Zoom = xZoomEnd Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Mă întreb de ce această funcție dispare după ce fișierul este salvat și redeschis?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Noel, ar trebui să salvați fișierul Excel în format Excel Macro-Enabled Workbook.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Dzięki za podpowiedź
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc, funcționează bine
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru nu funcționează pentru mine. Am lipit textul conform instrucțiunilor. Când am făcut clic pe meniul derulant, dimensiunea fontului era aceeași. Atunci când am făcut clic pe o altă celulă, întreaga foaie de calcul a crescut în dimensiune poate cu 30%. Chiar mi-ar plăcea să lucrez, dacă este posibil
Acest comentariu a fost redus la minimum de moderatorul de pe site
După ce am folosit acest cod, nu pot folosi tasta de retur pe Excel. Cum pot codifica (instala) cheia de retur?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru mărește întreaga foaie la 130%
Cum măresc doar meniul drop-down?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Dave,
Pentru a crește doar meniul drop-down, iată o soluție pentru a o rezolva.

În primul rând, după ce ați inserat lista derulantă în foaia de lucru, atunci ar trebui să introduceți o casetă combinată (Controale ActiveX) și apoi să aplicați următorul cod VBA în codul modulului de foaie:

Dim xRg As Range
Private Sub ComboBox1_Change()
La data de eroare CV următoare
xRg.Value = Me.ComboBox1.Text
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
La eroare GoTo LblExit
Cu Mine.ComboBox1
.Vizibil = Fals
Dacă Target.Validation.Type = xlValidateList Atunci
Target.Validation.InCellDropdown = Fals
.ListWidth = 120
.ListFillRange = ""
.ListFillRange = Target.Validation.Formula1
.Left = Target.Left
.Top = Target.Top
.Width = Target.Width
.Height = Target.Height
.Dimensiune.font = 16
.Vizibil = Adevărat
Setați xRg = țintă
Final, dacă
Se termina cu
LblExit:
End Sub

După introducerea codului, acum, când faceți clic pe celula listei derulante, va fi afișată o casetă combinată, iar dimensiunea fontului din meniul derulant este mărită după cum aveți nevoie. Și caseta combinată inserată va fi ascunsă automat.

Vă rugăm să încercați, sper că vă poate ajuta!
Acest comentariu a fost redus la minimum de moderatorul de pe site
GENIU! Multumesc Skyyang! Sunt atât de recunoscător pentru metoda ta! Funcționează ca un farmec!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Puteți explica pas cu pas pentru nenorociri, vă rog?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, ITALO,
1. Introduceți meniul drop-down de care aveți nevoie în foaia de lucru;
2. Apoi inserați o Casetă Combo (Controale ActiveX) făcând clic pe Dezvoltator > Inserare > Casetă Combo (Controale ActiveX), apoi trageți mouse-ul pentru a desena un obiect Casetă Combo;
3. Apoi, faceți clic dreapta pe foaia de lucru utilizată curent, alegeți Vizualizare cod și inserați codul de mai sus în modul;
4. În cele din urmă, faceți clic pe Design Mode sub fila Dezvoltator pentru a-l dezactiva.
5. Acum, când faceți clic pe celula listei derulante, va fi afișată o casetă combinată, iar dimensiunea fontului din meniul derulant este mărită după cum aveți nevoie.
Vă rugăm să încercați, sper că vă poate ajuta!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum pot aplica această dimensiune de modificare a fontului doar pe o singură coloană? Am mai multe coloane cu casete derulante și vreau doar o singură coloană specifică pentru a schimba dimensiunea fontului?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Întrebați că am lipit codul în fereastra necompletă a Modulului (clic dreapta în codul de vizualizare). Odată ce salvez, funcționează bine, a fost bine. Dar când închid fișierul și îl redeschid, codul a dispărut și nu se mai mărește pentru lista derulantă. Pot să știu cum să setez pentru utilizare permanentă?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, As,
Pentru a salva codul, ar trebui să salvați fișierul Excel în format Excel Macro-Enabled Workbook. Vă rugăm să încercați.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am mai multe meniuri derulante și am nevoie doar de unul mai mare, deoarece restul sunt da/nu. Dar codul pe care l-ați partajat face asta pentru toți. Cum fac asta pentru a fi folosit doar pentru un singur drop-down?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Yvonne
Pentru a aplica codul doar unei singure celule, următorul cod vă poate ajuta: (notițe: în cod, schimbați celula I2 la propria ta referință de celulă.)
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

Vă rugăm să încercați, sper că vă poate ajuta!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă mulțumim pentru sfatul de a mări dimensiunea fontului din caseta derulantă. A făcut șmecheria.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ocurre al revés. Al dar clic în orice celda se agranda, pero nu în lista desplegable și nu vuelve la dimensiunea originală. Utilizați Excel 2010. ¿Soluție? Se întâmplă invers. Făcând clic pe orice celulă, o mărește, dar nu și lista derulantă și nu revine la dimensiunea inițială. Folosesc Excel 2010. Soluție?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Putem face acest lucru pentru mai multe dropbox? Dacă nu, atunci care este procedura pentru mai multe casete dropbox.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ale po zamknięciu pliku i ponownym go otwarciu to rozwiązanie już nie działa.
Acest comentariu a fost redus la minimum de moderatorul de pe site
OKI. Trzeba zapisać plik z obsługą makra.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut prietene,
Ai dreptate. Trebuie să salvăm fișierul cu macro-activat, astfel încât soluția să poată funcționa. O zi bună.

Cu sinceritate,
Mandy
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL