Πώς να σώσει ένα πλαίσιο λίστας Αξία σε VBA

VBA είναι μια γλώσσα προγραμματισμού και ολοκληρωμένο περιβάλλον ανάπτυξης . VBA έχει ενταχθεί σε πολλά από τα προϊόντα της Microsoft , συμπεριλαμβανομένου του Office . Χρησιμοποιώντας τους προγραμματιστές editor VBA μπορούν να αναπτύξουν γρήγορα τις εφαρμογές τους με την τοποθέτηση στοιχείων ελέγχου ActiveX στα προγράμματά τους . Ένας μηχανισμός ελέγχου χρησιμοποιείται συχνά σε VBA για τη δημιουργία εφαρμογών είναι το στοιχείο ελέγχου πλαισίου λίστας . Το στοιχείο ελέγχου πλαισίου λίστας χρησιμοποιείται για να εμφανίσει μια λίστα τιμών για τους χρήστες του προγράμματος VBA . Εργασία με το στοιχείο ελέγχου πλαισίου λίστας , οι προγραμματιστές μπορούν να σώσουν τις τιμές πλαισίου λίστας σε ένα αρχείο κειμένου στον υπολογιστή του χρήστη . Γράφοντας ένα πρόγραμμα που αποθηκεύει τιμές από ένα στοιχείο ελέγχου πλαισίου λίστας στο σκληρό σας δίσκο παίρνει κάποια κατανόηση της VBA και λίγες γραμμές κώδικα . Οδηγίες
Η

1 Ανοίξτε το Microsoft Excel . 2

Κάντε κλικ στο " Εργαλεία ", " Macro " και στη συνέχεια κάντε κλικ στο " Visual Basic ". Αυτό θα ανοίξει το πρόγραμμα επεξεργασίας VBA .
Εικόνων 3

Κάντε κλικ στο " Εισαγωγή ", " UserForm " . Είστε τώρα σε μια λειτουργική μονάδα κώδικα προγραμματισμού .
Η

4 Επιλέξτε το " πλαίσιο λίστας " έλεγχος από την VBA εργαλειοθήκη , σύρετε και σχεδιάστε να UserForm σας .
5

Επιλέξτε " CommandButton " έλεγχος από την VBA εργαλειοθήκη , σύρετε και σχεδιάστε να UserForm σας .
Η

6 κάντε διπλό κλικ στο CommandButton . Αυτή η ενέργεια θα σας μεταφέρει σε διαδικασία συμβάν Click του CommandButton του . Πληκτρολογήστε ή αντιγράψτε και επικολλήστε τον παρακάτω κώδικα μεταξύ του " Private Sub CommandButton1_Click ( ) " και τις διαδικασίες " End Sub "

κωδικό σας θα πρέπει να μοιάζει με το παρακάτω : .

Private Sub CommandButton1_Click ( )

Dim I As Integer

ListBox1.AddItem " Αυτό είναι τεστ 1 "

ListBox1.AddItem "Αυτή είναι η δοκιμή 2 "

ListBox1.AddItem Αυτή η " είναι 3 τεστ "

ListBox1.AddItem " Αυτό είναι τεστ 4 "

Open" C : \\ list.txt " Για Προσάρτηση Όπως # 1

Για I = 0 Για να ListBox1.ListCount - 1

Print # 1 , ListBox1.List (Ι )

Επόμενο

Close # 1

End Sub

Ο κώδικας προσθέτει τιμές σε ένα αντικείμενο πλαίσιο λίστας από αποθηκεύσετε τις τιμές σε ένα αρχείο στον υπολογιστή σας κλήση : list.txt κάτω από C: .
δίσκο Σελίδα 7

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμα . Μια φόρμα θα πρέπει να popup κάντε κλικ στο « κουμπί ». Μετάβαση στη μονάδα δίσκου C: και να αναζητήσει list.txt , θα πρέπει να δείτε τις τιμές του πλαισίου λίστας σε αυτό το αρχείο κειμένου
Η
εικόνων .