Πώς να δημιουργήσετε ένα πλαίσιο λίστας σε VB Από φύλλο Excel

Ένα πλαίσιο λίστας μπορεί να επιτρέψει στους χρήστες να επιλέγουν δεδομένα από έναν κατάλογο για την είσοδο σε ένα συγκεκριμένο κελί . Για παράδειγμα , για να εισαγάγετε τα δεδομένα σχετικά με τραπεζικούς λογαριασμούς σε ένα υπολογιστικό φύλλο , ένας χρήστης μπορεί να επιλέξει μια επιλογή από «προσωπικές» ή «επιχείρηση » λογαριασμούς . Οι listboxes γενικά δημιουργούνται μέσω μιας σειράς μενού στην κορδέλα ( η κορυφή της γραμμής εργαλείων ) . Microsoft Office Visual Basic for Applications σας επιτρέπει να δημιουργήσετε ένα πλαίσιο λίστας , χρησιμοποιώντας ένα μικρό κομμάτι του κώδικα αντί να κάνετε κλικ στα μενού . Οδηγίες
Η

1 Ανοίξτε το Visual Basic Editor ( VBE ), πατώντας το πλήκτρο " Alt " και " F11 " από το φύλλο εργασίας του Excel . 2

Ανοίξτε μια νέα ενότητα ( ένα κενή σελίδα ) κάνοντας κλικ στο "Εισαγωγή" και στη συνέχεια επιλέγοντας "ενότητα ".
εικόνων 3

Πληκτρολογήστε το ακόλουθο στη μονάδα :

Sub πλαίσιο λίστας ( ) " πλαίσιο λίστας MacroActiveSheet . ListBoxes.Add ( 229.2 , 52.2 , 72 , 69.6 ) SelectWith Selection.ListFillRange = ". $ A $ 2 : $ A $ 4 " LinkedCell = . ". $ A $ 2 : $ A $ 4 " MultiSelect = xlNone.Display3DShading = FalseEnd WithRange ( " E3 " ) . SelectEnd Sub
Η

4 Εκτελέστε τη ρουτίνα πατώντας το πλήκτρο" F5 " .
Η
εικόνων