Απ: Πώς βρίσκουμε με κώδικα τα selected items ενός ListBox στο Excel;

antonisV — Fri, 02 Nov 2007 18:19:25 GMT

Καλημέρα και πάλι,

βρήκα τη λύση για τη 1 από τις 2 περιπτώσεις. Όταν πρόκειται για ListBox από το ToolBar: Forms, τότε το:

xlSht.ListBoxes(1).Selected

επιστρέφει (για το πρώτο τέτοιο ListBox) ένα array από Booleans, το οποίο έχει τόσα μέλη όσα είναι τα items στο ListBox και κάθε Boolean δηλώνει το κατά πόσο το αντίστοιχο Item στο ListBox είναι ή όχι επιλεγμένο. Μάλίστα για να βρει κανείς το πλήθος των Items πρέπει να χρησιμοποιήσει το:

xlSht.ListBoxes(1).Selected.Length

Το πρόβλημα παραμένει για την περίπτωση του ListBox από το Control ToolBox ToolBar. Εκεί το:

xlSht.OLEObjects(1).object.Selected

(αν το 1ο OLEObject είναι ListBox) βγάζει error !

Ελπίζω κάποιος να βρει και για αυτό τη λύση και να τη δημοσιεύσει.
Ευχαριστώ

Πώς βρίσκουμε με κώδικα τα selected items ενός ListBox στο Excel;

antonisV — Fri, 02 Nov 2007 07:59:07 GMT

Καλημέρα,

σε προηγούμενη δημοσίευση, με τη βοήθεια του χρήστη manosB, είχα καταλλήξει πως αν σε ένα Excel αρχείο υπάρχει ένα control από το ToolBar Control ToolBox, τότε μπορεί κανείς να διαβάσει την τιμή του ως εξής (xlSht το Sheet του Excel αρχείου):

xlSht.OLEObjects(i).object.Value

Τι γίνεται όμως όταν αυτό το control είναι ListBox και είναι ενεργοποιημένο το multiselection ; Τότε το .Value δεν έχει νόημα.
Έχω βρει τον τρόπο να δεις αν η πολλαπλή επιλογή είναι ενργή:

If xlSht.OLEObjects(i).object.multiselect > 0 Then
MsgBox("multiselection ON")
End If

Δεν έχω καταφέρει ωστόσο να βρω τρόπο να προσπελάσω το array των items. Τα .items και .selecteditems κτλ δε λειτουργούν. Δεν τα δέχεται καν. Επίσης όλες οι δοκιμές μου για casting έχουν πέσει στο κενό. Επίσης, το ίδιο πρόβλημα παρουσιάζεται και στην περίπτωση που το ListBox είναι από το ToolBar Forms, οπότε και το αντίστοιχο object είναι το:

xlSht.ListBoxes(i).object

Αν ξέρει κάποιος τη λύση, παρακαλώ ας τη δημοσιεύσει.
Ευχαριστώ εκ των προτέρων

Office Development

Απ: Πώς βρίσκουμε με κώδικα τα selected items ενός ListBox στο Excel;

Πώς βρίσκουμε με κώδικα τα selected items ενός ListBox στο Excel;