Ένα σύνθετο πλαίσιο είναι μια αναπτυσσόμενη λίστα από όπου ένας χρήστης μπορεί να επιλέξει ένα στοιχείο ή να συμπληρώσει τη δική του επιλογή. Για να δημιουργήσετε ένα συνδυαστικό κουτί σε Excel VBA, εκτελέστε τα παρακάτω βήματα.
1. Στην καρτέλα Προγραμματιστής, κάντε κλικ στην επιλογή Εισαγωγή.
2. Στην ομάδα στοιχείων ελέγχου ActiveX, κάντε κλικ στο Combo Box.
3. Σύρετε ένα σύνθετο πλαίσιο στο φύλλο εργασίας σας.
Σημείωση: μπορείτε να αλλάξετε το όνομα ενός στοιχείου ελέγχου κάνοντας δεξί κλικ στο στοιχείο ελέγχου (βεβαιωθείτε ότι έχει επιλεγεί η λειτουργία σχεδίασης) και, στη συνέχεια, κάνοντας κλικ στην επιλογή Ιδιότητες. Προς το παρόν, θα αφήσουμε το ComboBox1 ως όνομα του συνδυαστικού πλαισίου.
Δημιουργήστε ένα ανοιχτό συμβάν βιβλίου εργασίας. Ο κώδικας που προστέθηκε στο Workbook Open Event θα εκτελεστεί από το Excel VBA όταν ανοίγετε το βιβλίο εργασίας.
4. Ανοίξτε το Visual Basic Editor.
5. Κάντε διπλό κλικ σε Αυτό το βιβλίο εργασίας στο Project Explorer.
6. Επιλέξτε Βιβλίο εργασίας από την αριστερή αναπτυσσόμενη λίστα και επιλέξτε Άνοιγμα από τη δεξιά αναπτυσσόμενη λίστα.
7. Για να προσθέσετε στοιχεία στο σύνθετο πλαίσιο, προσθέστε τις ακόλουθες γραμμές κώδικα στο Open Event του βιβλίου εργασίας:
Με το Sheet1.ComboBox1
.AddItem "Παρίσι"
.AddItem "Νέα Υόρκη"
.AddItem "Λονδίνο"
Τέλος με
Σημείωση: χρησιμοποιήστε το Sheet2 εάν το σύνθετο πλαίσιο βρίσκεται στο δεύτερο φύλλο εργασίας, το Sheet3 εάν το σύνθετο πλαίσιο βρίσκεται στο τρίτο φύλλο εργασίας κ.λπ. πριν από αυτές τις γραμμές κώδικα. Η πρώτη γραμμή κωδικού διαγράφει το σύνθετο πλαίσιο. Με αυτόν τον τρόπο τα στοιχεία σας δεν θα προστεθούν πολλές φορές εάν εκτελέσετε τον κώδικά σας περισσότερες από μία φορές. Η δεύτερη γραμμή κωδικού διαγράφει τη δική σας επιλογή.
ComboBox1.Clear
ComboBox1.Value = ""
8. Για να συνδέσετε αυτό το σύνθετο πλαίσιο σε ένα κελί, κάντε δεξί κλικ στο σύνθετο πλαίσιο (βεβαιωθείτε ότι έχει επιλεγεί η λειτουργία σχεδίασης) και κάντε κλικ στην επιλογή Ιδιότητες. Συμπληρώστε το D2 για το LinkedCell.
Σημείωση: δείτε επίσης την ιδιότητα ListFillRange για να συμπληρώσετε ένα σύνθετο πλαίσιο με μια σειρά κελιών.
9. Αποθηκεύστε, κλείστε και ανοίξτε ξανά το αρχείο Excel.
Αποτέλεσμα:
Αν και σε ορισμένες περιπτώσεις μπορεί να είναι χρήσιμο να τοποθετήσετε απευθείας ένα σύνθετο πλαίσιο στο φύλλο εργασίας σας, ένα σύνθετο πλαίσιο είναι ιδιαίτερα χρήσιμο όταν τοποθετείται σε μια μορφή χρήστη.
