Note: The other languages of the website are Google-translated. Back to English
Σύνδεση  \/ 
x
or
x
Εγγραφή  \/ 
x

or

Πώς να αυξήσετε το μέγεθος της γραμματοσειράς της αναπτυσσόμενης λίστας στο Excel;

doc αναπτυσσόμενη λίστα μεγέθους γραμματοσειράς 1

Η αναπτυσσόμενη λίστα είναι μια πολύ χρήσιμη λειτουργία στο Excel, όταν δημιουργείτε αναπτυσσόμενη λίστα στο φύλλο εργασίας σας, έχετε προσπαθήσει ποτέ να αυξήσετε το μέγεθος γραμματοσειράς της αναπτυσσόμενης λίστας για να κάνετε την επιλεγμένη εγγραφή μεγαλύτερη και πιο ευανάγνωστη όπως φαίνεται στο αριστερό στιγμιότυπο οθόνης; Αυτό το άρθρο θα μιλήσει για μια λύση για την επίλυσή του.

Αυξήστε το μέγεθος της γραμματοσειράς της αναπτυσσόμενης λίστας με τον κωδικό VBA για να μεγεθύνετε το ζουμ


Αυξήστε το μέγεθος της γραμματοσειράς της αναπτυσσόμενης λίστας με τον κωδικό VBA για να μεγεθύνετε το ζουμ

Στην πραγματικότητα, δεν υπάρχει άμεσος τρόπος για να αυξήσουμε το μέγεθος της γραμματοσειράς της αναπτυσσόμενης λίστας, αλλά, μπορείτε να εφαρμόσετε τον ακόλουθο κώδικα VBA για να αλλάξετε τη ρύθμιση ζουμ της αναπτυσσόμενης λίστας για να κάνετε το κείμενο να εμφανίζεται μεγαλύτερο. Κάντε τα εξής:

1. Μεταβείτε στο φύλλο εργασίας που περιέχει την αναπτυσσόμενη λίστα που θέλετε να αυξήσετε το μέγεθος της γραμματοσειράς του.

2. Κάντε δεξί κλικ στην καρτέλα φύλλων και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος, στο αναδυόμενο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στο κενό Μονάδα μέτρησης παράθυρο:

Κωδικός VBA: Αυξήστε το μέγεθος της γραμματοσειράς της αναπτυσσόμενης λίστας για να μεγεθύνετε το ζουμ του κελιού

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. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κώδικα, τώρα, όταν κάνετε κλικ στα κελιά της αναπτυσσόμενης λίστας, το ζουμ του κελιού θα διευρυνθεί και η αναπτυσσόμενη λίστα θα εμφανίζεται μεγαλύτερη, αλλά, όταν κάνετε κλικ σε άλλα κελιά που δεν περιέχουν την αναπτυσσόμενη λίστα, το το ζουμ κυττάρων θα είναι φυσιολογικό.

Note: Στον παραπάνω κώδικα, xZoom = 130 θα αλλάξει την αναπτυσσόμενη λίστα τα μεγέθη των κυττάρων 130, μπορείτε να αλλάξετε αυτόν τον αριθμό ζουμ στις ανάγκες σας.


Δημιουργία αναπτυσσόμενης λίστας με πλαίσια ελέγχου στο Excel

Εάν πρέπει να δημιουργήσετε μια αναπτυσσόμενη λίστα με πολλά πλαίσια ελέγχου για να επιλέξετε πολλά στοιχεία από τη λίστα σε ένα κελί, ίσως δεν υπάρχει άμεσος τρόπος για να επιλύσετε αυτήν την εργασία. Αλλά, Kutools για Excel υποστηρίξτε ένα καταπληκτικό χαρακτηριστικό - Αναπτυσσόμενη λίστα με πλαίσια ελέγχου, με αυτήν τη δυνατότητα, μπορείτε να δημιουργήσετε γρήγορα αναπτυσσόμενη λίστα με πλαίσια ελέγχου σε ένα καθορισμένο εύρος, τρέχον φύλλο εργασίας, τρέχον βιβλίο εργασίας ή όλα τα ανοιχτά βιβλία εργασίας με βάση τις ανάγκες σας.  Κάντε κλικ για λήψη του Kutools για Excel!


Επίδειξη: Αύξηση μεγέθους γραμματοσειράς αναπτυσσόμενης λίστας με κωδικό VBA για μεγέθυνση του ζουμ


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2019 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Say something here...
symbols left.
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.

  • 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?
    • 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.
  • 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?
  • 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 ?
    • 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!
      • To post as a guest, your comment is unpublished.
        ITALO BELMONTE · 2 years ago
        Can you explain it step by step for dummies pls?
        • 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!
      • 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!
  • 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?
  • 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
  • To post as a guest, your comment is unpublished.
    Ahmed Sobhy · 3 years ago
    Thanks, it works well
  • 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?
    • 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.
  • 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.
    • 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
  • 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!
  • 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.
    • 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%.