/ / / Συνδυασμός VBA του Excel

Excel VBA Combo Box

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

1. Στην καρτέλα Προγραμματιστής, κάντε κλικ στην επιλογή Εισαγωγή.

2. Στην ομάδα στοιχείων ελέγχου ActiveX, κάντε κλικ στο Σύνθετο πλαίσιο.

Δημιουργήστε ένα σύνθετο πλαίσιο στο Excel VBA

3. Σύρετε ένα σύνθετο πλαίσιο στο φύλλο εργασίας σας.

Σύρετε ένα σύνθετο πλαίσιο

Σημείωση: μπορείτε να αλλάξετε το όνομα ενός στοιχείου ελέγχου κάνοντας δεξί κλικ στον πίνακα ελέγχου (βεβαιωθείτε ότι έχετε επιλέξει τη λειτουργία σχεδίασης) και, στη συνέχεια, κάνοντας κλικ στην επιλογή Ιδιότητες. Προς το παρόν, θα αφήσουμε το ComboBox1 ως το όνομα του σύνθετου πλαισίου.

Δημιουργήστε ένα συμβάν ανοικτού βιβλίου εργασίας. Ο κώδικας που προστέθηκε στο Event Open Event θα εκτελεστεί από το Excel VBA όταν ανοίξετε το βιβλίο εργασίας.

4. Ανοίξτε τον Επεξεργαστή Visual Basic.

5. Κάντε διπλό κλικ σε αυτό το βιβλίο εργασίας στο Explorer του έργου.

6. Επιλέξτε Βιβλίο εργασίας από την αριστερή αναπτυσσόμενη λίστα και επιλέξτε Άνοιγμα από τη δεξιά αναπτυσσόμενη λίστα.

Άνοιγμα συμβάντος εργασίας στο Excel VBA

7. Για να προσθέσετε στοιχεία στο σύνθετο πλαίσιο, προσθέστε τις ακόλουθες γραμμές κώδικα στο Event Open Event:

With Sheet1.ComboBox1
    .AddItem "Paris"
    .AddItem "New York"
    .AddItem "London"
End With

Σημείωση: χρησιμοποιήστε το Φύλλο2 εάν το σύνθετο κουτί σας βρίσκεται στο δεύτερο φύλλο εργασίας, το Φύλλο3, εάν το σύνθετο πλαίσιο βρίσκεται στο τρίτο φύλλο εργασίας κ.λπ. Εάν χρησιμοποιείτε αυτές τις γραμμές κώδικα εκτός του συμβάντος "Άνοιγμα βιβλίου εργασίας", ίσως θέλετε να προσθέσετε τις παρακάτω γραμμές κώδικα πριν αυτές γραμμές κώδικα. Η πρώτη γραμμή κώδικα καθαρίζει το σύνθετο πλαίσιο. Με αυτόν τον τρόπο, τα στοιχεία σας δεν θα προστεθούν πολλές φορές αν εκτελέσετε τον κωδικό σας περισσότερες από μία φορές. Η δεύτερη γραμμή κώδικα καθαρίζει τη δική σας επιλογή.

ComboBox1.Clear
ComboBox1.Value = ""

8. Για να συνδέσετε αυτό το σύνθετο πλαίσιο σε ένα κελί, κάντε δεξί κλικ στο σύνθετο πλαίσιο (βεβαιωθείτε ότι έχετε επιλέξει τη λειτουργία σχεδίασης) και κάντε κλικ στο Properties (Ιδιότητες). Συμπληρώστε το D2 για το LinkedCell.

LinkedCell

Σημείωση: Δείτε επίσης την ιδιότητα ListFillRange για να συμπληρώσετε ένα σύνθετο πλαίσιο με μια σειρά κελιών.

9. Αποθηκεύστε, κλείστε και ανοίξτε ξανά το αρχείο Excel.

Αποτέλεσμα:

Σύνθετο κιβώτιο

Αν και σε ορισμένες περιπτώσεις μπορεί να είναι χρήσιμο να τοποθετήσετε απευθείας ένα σύνθετο πλαίσιο στο φύλλο εργασίας σας, ένα σύνθετο πλαίσιο είναι ιδιαίτερα χρήσιμο όταν τοποθετείται σε ένα Userform.

Επίσης διαβάστε: