Περιεχόμενο

• Οδηγίες
• Τι χρειάζεστε

Η χρήση ενός στοιχείου ελέγχου ListView με πλαίσια ελέγχου σε μια φόρμα VBA μπορεί να κάνει μια εφαρμογή πιο δυναμική, παρέχοντας επιλογές στον χρήστη. Ένα ListView εμφανίζει στοιχεία χρησιμοποιώντας μία από τις τέσσερις διαφορετικές προβολές και τα οργανώνει σε στήλες με ή χωρίς κεφαλίδες του Microsoft Excel. Χρησιμοποιήστε την ιδιότητα "ListItems.Add" για να προσθέσετε στοιχεία και "Έλεγχος" για να καθορίσετε ποια στοιχεία έχουν επιλεγεί από το χρήστη.

Οδηγίες

Συμπληρώστε τον έλεγχο ListView στο Excel χρησιμοποιώντας το VBA (Hemera Technologies / Photos.com / Getty Images)

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

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

   
   

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

   Me.ListView1.ListItems.Add (3) = "Έλεγχος στοιχείου 3" Me.ListView1.ListItems.Add (1) = "Έλεγχος στοιχείου 1" Me.ListView1.ListItems.Add (2) = "

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

   Για τον μετρητή = 1 στο Me.ListView1.ListItems.Count Αν Me.ListView1.ListItems.Item (μετρητής) .Εκθεώρησε στη συνέχεια Debug.Print Me.ListView1.ListItems.Item (counter) .Text End If Next

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

   
   

Τι χρειάζεστε

• Microsoft Excel