Πώς να ορίσετε μια προεπιλεγμένη τιμή στην αναπτυσσόμενη λίστα επικύρωσης δεδομένων στο 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:
Σχετικά άρθρα:
- Πώς να συμπληρώσετε αυτόματα κατά την πληκτρολόγηση στην αναπτυσσόμενη λίστα του Excel;
- Πώς να δημιουργήσετε ένα ημερολόγιο αναπτυσσόμενης λίστας στο Excel;
- Πώς να δημιουργήσετε μια αναπτυσσόμενη λίστα με δυνατότητα αναζήτησης στο Excel;
- Πώς να δημιουργήσετε αναπτυσσόμενη λίστα με πολλές επιλογές ή τιμές στο Excel;
- Πώς να συμπληρώσετε αυτόματα άλλα κελιά όταν επιλέγετε τιμές στην αναπτυσσόμενη λίστα του Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!