Πώς να χρησιμοποιήσετε ListView Με CheckBox σε VBA

Χρησιμοποιώντας μια " ListView " έλεγχος με πλαίσια ελέγχου σε Visual Basic σας for Applications ( VBA ) έντυπο να κάνετε την αίτησή σας πιο δυναμικά , παρέχοντας στον χρήστη με επιλογές . A " ListView " ελέγχου εμφανίζει στοιχεία, χρησιμοποιώντας μία από τις τέσσερις διαφορετικές απόψεις , και οργανώνει τα στοιχεία σε στήλες , με ή χωρίς στήλη Microsoft Excelheadings . Χρησιμοποιήστε το " ListItems.Add " περιουσία για να προσθέσετε στοιχεία , και να χρησιμοποιήσετε το " ελεγμένο " περιουσία για να καθορίσει ποια στοιχεία ελέγχθηκαν από το χρήστη . Τα πράγματα που θα χρειαστείτε για Microsoft Excel
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Εκκίνηση του Microsoft Excel , κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA παράθυρο. Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " UserForm " για να δημιουργήσετε μια νέα φόρμα . Κάντε κλικ στο " Εργαλεία ", κάντε κλικ στην επιλογή " Πρόσθετα Στοιχεία ελέγχου " και επιλέξτε το πλαίσιο δίπλα στο " Microsoft ListView ελέγχου " για να προσθέσετε ένα νέο " ListView " ελέγχου στη φόρμα σας . 2

Κάντε δεξί κλικ στο " ListView " ελέγχου και κάντε κλικ στο " Ιδιότητες ". Μετακινηθείτε προς τα κάτω τις ιδιότητες παραθύρων και επιλέξτε " True" δίπλα στο " Checkboxes . " Κάντε κλικ στο " CommandButton " από την " Toolbox" παράθυρο και κάντε κλικ στη φόρμα για να προσθέσετε ένα νέο κουμπί ελέγχου . Προσθέστε ένα δεύτερο κουμπί , χρησιμοποιώντας την ίδια τεχνική .
Εικόνων 3

διπλό κλικ στο " CommandButton1 " για να δημιουργήσετε ένα συμβάν click για αυτό το κουμπί . Προσθέστε τον ακόλουθο κώδικα για να συμπληρώσετε το " πλαίσιο λίστας " με τρία στοιχεία :

Me.ListView1.ListItems.Add ( 1 ) = " Ελέγξτε Θέση 1 "

Me.ListView1.ListItems.Add ( 2 ) = "Έλεγχος σημείο 2 "

Me.ListView1.ListItems.Add ( 3 ) = " Ελέγξτε Θέση 3 "
Η 4

Επιστρέψτε στη φόρμα σας και κάντε διπλό κλικ στο " CommandButton2 " για να δημιουργήσετε ένα νέο συμβάν click για αυτό το κουμπί . Προσθέστε τον ακόλουθο κώδικα για να βρόχο μέσω του " πλαίσιο λίστας " στοιχεία και να εκτυπώσετε οποιαδήποτε επιλεγμένα στοιχεία στο παράθυρο " Άμεση " :

Για μετρητή = 1 Για να Me.ListView1.ListItems.Count

Αν Me . ListView1.ListItems.Item ( counter) . επιλεγμένο, τότε

Debug.Print Me.ListView1.ListItems.Item ( counter) . κείμενο

End If

Επόμενο

5

Επιστρέψτε στη φόρμα σας και κάντε κλικ στο "F5 " για να εκτελέσετε το πρόγραμμα . Κάντε κλικ στο " CommandButton1 " για να συμπληρώσετε το " ListView " ελέγχου και κάντε κλικ στο " CommandButton2 " για να εμφανίσετε τα επιλεγμένα στοιχεία .
Η
εικόνων