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

Κατεβάστε το βιβλίο ασκήσεων

Κατεβάστε αυτό το τετράδιο ασκήσεων για να εξασκηθείτε ενώ διαβάζετε αυτό το άρθρο.

Αυτόματη συμπλήρωση δεδομένων Επικύρωση Drop-Down List.xlsm

2 Μέθοδοι για την αυτόματη συμπλήρωση δεδομένων Επικύρωση Drop-Down List στο Excel

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

1. Αυτόματη συμπλήρωση δεδομένων Επικύρωση Drop-Down List χρησιμοποιώντας κωδικούς VBA σε Combo Box Control

Θα εισάγουμε έθιμο VBA κώδικα με το Έλεγχος ActiveX εργαλείο για την αυτόματη εκτέλεση της επικύρωσης δεδομένων από την αναπτυσσόμενη λίστα στο Excel.

Βήμα 1:

• Πρώτα, πρέπει να προσθέσουμε το Προγραμματιστής στην κορδέλα. Πηγαίνετε στο Αρχείο> Επιλογές .
• Επιλέξτε Προσαρμογή κορδέλας επιλογή από το Επιλογές Excel .
• Σημειώστε το Προγραμματιστής επιλογή και πατήστε OK .

Βήμα 2:

• Επιλέξτε Εισαγωγή από το Προγραμματιστής καρτέλα.
• Τώρα, επιλέξτε Combo Box από το Έλεγχος ActiveX .

Βήμα 3:

• Βάλτε το Κουτί ελέγχου στο σύνολο δεδομένων.
• Κάντε κλικ στο δεξί κουμπί του ποντικιού και επιλέξτε Ιδιότητες από τη λίστα.

Βήμα 4:

• Αλλάξτε το Όνομα στο TempComboBox από το Ιδιότητες παράθυρο.

Βήμα 5:

• Πηγαίνετε στο Όνομα φύλλου πεδίο.
• Επιλέξτε το Προβολή κωδικού επιλογή από τη λίστα.

Τώρα, ένα Ενότητα εντολών VBA θα εμφανιστεί. Πρέπει να βάλουμε VBA κώδικα σε αυτή την ενότητα.

Βήμα 6:

• Αντιγράψτε και επικολλήστε τα ακόλουθα VBA κώδικα στη μονάδα.

 Private Sub Wrksht_SelectionChange(ByVal Target As Range) Dim combox_1 As OLEObject Dim str_1 As String Dim ws_1 As Worksheet Dim arr_1 Set ws_1 = Application.ActiveSheet On Error Resume Next Set combox_1 = ws_1.OLEObjects("TempComboBox") With combox_1 .ListFillRange = "" .LinkedCell = "" .Visible = False End With If Target.Validation.Type = 3 Then Target.Validation.InCellDropdown = False Cancel =True str_1 = Target.Validation.Formula1 str_1 = Right(str_1, Len(str_1) - 1) If str_1 = "" Then Exit Sub With combox_1 .Visible = True .Left = Target.Left .Top = Target.Top .Width = Target.Width + 5 .Height = Target.Height + 5 .ListFillRange = str_1 If .ListFillRange = "" Then arr_1 = Split(str_1, ",") Me.TempComboBox.List = arr_1 End If .LinkedCell = Target.Address End With combox_1.ActivateMe.TempComboBox.DropDown End If End Sub Private Sub TempComboBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Select Case KeyCode Case 9 Application.ActiveCell.Offset(0, 1).Activate Case 13 Application.ActiveCell.Offset(1, 0).Activate End Select End Sub 

Βήμα 7:

• Τώρα, αποθηκεύστε το VBA κώδικα και πηγαίνετε στο σύνολο δεδομένων. Απενεργοποιήστε το Λειτουργία σχεδιασμού από το Προγραμματιστής καρτέλα.

Βήμα 8:

• Επιλέξτε Κύτταρο C5 .
• Επιλέξτε το Εργαλεία δεδομένων ομάδα από το Δεδομένα καρτέλα.
• Επιλέξτε Επικύρωση δεδομένων από τη λίστα.

Βήμα 9:

• Επικύρωση δεδομένων θα εμφανιστεί το παράθυρο. Λίστα στο Επιτρέψτε το πεδίο.
• Στο Πηγή επιλέξτε το εύρος τιμών αναφοράς.
• Στη συνέχεια, πατήστε OK .

Βήμα 10:

• Πηγαίνετε σε οποιοδήποτε κελί του Επιλογή στήλη και πατήστε οποιοδήποτε πρώτο γράμμα.

Καθώς βάζουμε ένα γράμμα, η αντίστοιχη πρόταση θα εμφανιστεί σε αυτό το κελί.

Τώρα, συμπληρώστε όλα τα κελιά με την επιθυμητή επιλογή μας από την προτεινόμενη λίστα.

Διαβάστε περισσότερα: Επικύρωση δεδομένων Drop Down List με VBA στο Excel (7 εφαρμογές)

2. Αυτόματη συμπλήρωση επικύρωσης δεδομένων Drop-Down List με Combo Box από ActiveX Controls

Θα χρησιμοποιήσουμε μόνο το Έλεγχος ActiveX για αυτόματη επικύρωση δεδομένων.

Βήμα 1:

• Επιλέξτε Εισαγωγή ομάδα από το Προγραμματιστής καρτέλα.
• Επιλέξτε Combo Box από το Έλεγχος ActiveX .

Βήμα 2:

• Τοποθετήστε το Combo Box σε οποιοδήποτε κενό χώρο του συνόλου δεδομένων.
• Στη συνέχεια, πατήστε το δεξί κουμπί του ποντικιού.
• Επιλέξτε Ιδιότητες από τη λίστα.

Βήμα 3:

• Τώρα, βάλτε C5 στο Συνδεδεμένο κύτταρο πεδίο, καθώς τα δεδομένα θα εμφανίζονται στο Κύτταρο C5 .
• Βάλτε $B$5:$B$9 στο ListFillRange πεδίο.
• Επιλέξτε 1-fmMatchEntryComplete για το MatchEntry και αποθηκεύστε τις αλλαγές.

Βήμα 4:

• Τώρα, απενεργοποιήστε το Λειτουργία σχεδιασμού από το Προγραμματιστής καρτέλα.

Βήμα 5:

• Τώρα, βάλτε οποιοδήποτε γράμμα στο combo box και θα εμφανιστεί η πρόταση. Και τέλος, τα δεδομένα θα προβληθούν στο Κύτταρο C5 .

Διαβάστε περισσότερα: Πώς να δημιουργήσετε την αναπτυσσόμενη λίστα του Excel για επικύρωση δεδομένων (8 τρόποι)

Συμπέρασμα

Σε αυτό το άρθρο, πραγματοποιήσαμε επικύρωση δεδομένων από την αναπτυσσόμενη λίστα Προσθέσαμε την αυτόματη συμπλήρωση της επικύρωσης δεδομένων από την αναπτυσσόμενη λίστα του Excel. Ελπίζω ότι αυτό θα ικανοποιήσει τις ανάγκες σας. Παρακαλώ ρίξτε μια ματιά στην ιστοσελίδα μας. Exceldemy.com και δώστε τις προτάσεις σας στο πλαίσιο σχολίων.