VBA / VB6 - Δύναται να ανοίξει ένα ComboBox

Το Excel όταν συνδυάζεται με τη VBA, αποτελεί ένα ισχυρό εργαλείο για τη δημιουργία εξατομικευμένων και αυτοματοποιημένων λύσεων ανάλυσης δεδομένων. Η VBA διαθέτει ενσωματωμένα στοιχεία ελέγχου όπως το ComboBox, τα οποία επιτρέπουν στους χρήστες να επιλέγουν από μια ήδη συμπληρωμένη λίστα ή να παρέχουν τις δικές τους πληροφορίες. Κάποιος μπορεί να συνδέσει δύο ComboBoxes χρησιμοποιώντας τη μέθοδο SetFocus σε έναν προσαρμοσμένο κώδικα. Μετά από αυτό, ο χρήστης μπορεί να τρέξει έναν άλλο κώδικα που χρησιμοποιεί τον κωδικό πρόσβασης που επιστρέφει από ένα ComboBox για να αρχικοποιήσει το άλλο. Αυτή η λειτουργία βοηθά τον προγραμματιστή να ρυθμίσει έναν κώδικα με τέτοιο τρόπο ώστε μετά την επιλογή στο ComboBox1, αυτό να προκαλέσει αυτόματα το δεύτερο ComboBox.

Για να αναγκαστεί να ανοίξει ένα ComboBox υπάρχει η ακόλουθη λειτουργία ...

 ComboBox1.DropDown

Αλλά ... για αυτό έχουμε το ComboBox εστίαση, και αν η εντολή από άλλο έλεγχο δεν θα ανοίξει.

Για να ανοίξετε ένα άλλο ComboBox θα πρέπει να χρησιμοποιήσετε ένα κόλπο εδώ:

Τοποθετήστε το 2 ComboBox σε ένα φύλλο εργασίας ή σε ένα UserForm και ονομάστε τα αντίστοιχα ως ComboBox1 και CombBox2
Χρησιμοποιήστε τον ακόλουθο κώδικα για τη σύνδεση των δύο ComboBox:

 Private Sub ComboBox1_Change () '========== Combo sur une feuille ========= 1' ComboBox2.Activate '========== Σύνθετο σε UserForm ή VB6 ========= 2 'ComboBox2.SetFocus' ================================== ======== SendKeys "^ (F4)" Τέλος Sub Private Sub ComboBox2_KeyDown (ByVal KeyCode ως MSForms.ReturnInteger, ByVal Shift ως ακέραιο) Εάν KeyCode = 16 Στη συνέχεια ComboBox2.DropDown Τέλος Αν End Sub

Με τη διαγραφή της γραμμής 1 ή 2 ανάλογα με τη θέση του ComboBox.

Αποτέλεσμα: όταν κάνετε μια επιλογή σε ένα ComboBox 1, το δεύτερο ανοίγει αυτόματα.

Κάντε λήψη δείγματος για το Excel 97 - 2003