/ / / Πλαίσιο λίστας Excel VBA

Πλαίσιο λίστας Excel VBA

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

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

2. Στην ομάδα ActiveX Controls, κάντε κλικ στην επιλογή List Box.

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

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

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

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

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

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

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

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

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

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

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

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

ListBox1.Clear

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

LinkedCell

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

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

Αποτέλεσμα:

Πλαίσιο λίστας

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

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