Μετάβαση στο κύριο περιεχόμενο

Πώς να ορίσετε μια προεπιλεγμένη τιμή στην αναπτυσσόμενη λίστα επικύρωσης δεδομένων στο Excel;

Ορισμός μιας προεπιλεγμένης τιμής στην αναπτυσσόμενη λίστα επικύρωσης δεδομένων βοηθά τους άλλους να αναγνωρίσουν εύκολα τα κελιά της αναπτυσσόμενης λίστας με μια ματιά σε ένα φύλλο εργασίας. Αυτό το άρθρο παρέχει μια μέθοδο VBA για τον ορισμό μιας προεπιλεγμένης τιμής στην αναπτυσσόμενη λίστα επικύρωσης δεδομένων.

Ορίστε μια προεπιλεγμένη τιμή στην αναπτυσσόμενη λίστα επικύρωσης δεδομένων με τον κώδικα VBA


Ορίστε μια προεπιλεγμένη τιμή στην αναπτυσσόμενη λίστα επικύρωσης δεδομένων με τον κώδικα VBA

Όπως παρακάτω το στιγμιότυπο οθόνης, υποθέτοντας ότι όλα τα κελιά στην περιοχή B2: C7 περιέχουν αναπτυσσόμενη λίστα και θέλετε να ορίσετε μια προεπιλεγμένη τιμή (λέει - Επιλέξτε από τη λίστα -) σε αυτήν την αναπτυσσόμενη λίστα πριν επιλέξετε τιμές από αυτές. Μπορείτε να δοκιμάσετε τον ακόλουθο κώδικα VBA.

1. Κάντε δεξί κλικ στην καρτέλα φύλλων με τις αναπτυσσόμενες λίστες που πρέπει να ορίσετε μια προεπιλεγμένη τιμή και, στη συνέχεια, κάντε κλικ Προβολή κωδικού από το μενού.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στο παράθυρο Code.

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

Sub DropDownListToDefault()
    Dim xCell As Range
    Dim xRg As Range
    Dim xAcCell As Range
    Dim xScreen As Boolean
    On Error Resume Next
    Set xAcCell = Application.ActiveCell
    Set xRg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
    If xRg Is Nothing Then
        MsgBox "No data validation drop-down lists in current worksheet", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell.Validation.Type = 3 Then
            If xCell.Value = "" Then xCell.Value = "'- Choose from the list -"
        End If
    Next
    xAcCell.Select
    Application.ScreenUpdating = xScreen
End Sub

Note: μπορείτε να αλλάξετε την προεπιλεγμένη τιμή στον κώδικα VBA σε αυτόν που χρειάζεστε.

6. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Μπορείτε να δείτε ότι οι προεπιλεγμένες τιμές προστίθενται σε όλα τα κελιά της αναπτυσσόμενης λίστας όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

Notes:

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


Σχετικά άρθρα:

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Love the code about 'VBA code: set a default value in data validation drop-down list', how do I use the same code for just one column with one dropdown?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations