Πώς να διαβάσετε μια λίστα με VBA

Χρήση της Visual Basic for Applications για να διαβάσετε μια λίστα σας επιτρέπει να γράφετε προγράμματα που διαβάζουν το περιεχόμενο των εγγράφων . Με αυτόν τον τρόπο , τα προγράμματά σας μπορεί να μεταβάλει το περιεχόμενο ή να το εφαρμόσετε σε ένα άλλο έργο επεξεργασίας δεδομένων . Για παράδειγμα , ως πρόγραμμα VBA διαβάζει μια λίστα , μπορεί να εφαρμοστεί υπογράμμιση ή άλλη μορφοποίηση σε κάθε άλλη γραμμή στη λίστα , μια χρονοβόρα διαδικασία , αν γίνει με το χέρι . Αποθηκεύστε τα προγράμματά σας λίστα ανάγνωσης σε μακρο -enabled έγγραφα , όπως το Word Εφημερίδα της Κυβερνήσεως ή μορφή xlsm του Excel . Οδηγίες
Excel
Η 1

Κάντε κλικ στο " Νέο " εντολή του μενού "Αρχείο" για να κάνει ένα νέο βιβλίο εργασίας . 2

Πληκτρολογήστε μια λίστα με αριθμούς , γράμματα ή τύπους σε μια σειρά από διαδοχικές σειρές σε κάθε φύλλο στο βιβλίο εργασίας . Για παράδειγμα, πληκτρολογήστε " μήλο ", " πορτοκαλί " και " αχλάδι " στα κελιά A1 έως A3 του τρέχοντος φύλλου. Το πρόγραμμα VBA θα γράψετε θα εμφανιστεί κάθε στοιχείο σε αυτή τη λίστα .
Εικόνων 3

Κάντε κλικ με το ποντίκι στο επάνω στοιχείο από τη λίστα και, στη συνέχεια σύρετε προς τα κάτω στο τελευταίο στοιχείο της λίστας και αφήστε το ποντίκι. Η δράση αυτή επιλέγει τη λίστα .
Η

4 Κάντε κλικ στην καρτέλα "Προγραμματιστής " , στη συνέχεια, κάντε κλικ στο κουμπί " Visual Basic" για να μπείτε στο περιβάλλον προγραμματισμού VBA .
5

Επικόλληση του ακόλουθο κώδικα του προγράμματος σε κεντρικό παράθυρο του περιβάλλοντος. Αυτό το πρόγραμμα διαβάζει τα περιεχόμενα του κάθε κυττάρου στη λίστα σας, χρησιμοποιώντας την ιδιότητα κύτταρα του αντικειμένου επιλογής , η οποία αντιπροσωπεύει τα επιλεγμένα κελιά . Η συνάρτηση MsgBox εμφανίζει τα περιεχόμενα του κελιού σε ένα μικρό παράθυρο διαλόγου .

Public Sub ReadList ( )

Dim i

Για i = 1 Για να Selection.Rows.Count

MsgBox Selection.Cells ( i , 1 )

Επόμενο i

End Sub
Η 6

Κάντε κλικ σε οποιαδήποτε δήλωση στο πρόγραμμα , στη συνέχεια, κάντε κλικ στο " " μενού " Run Run "εντολή για να εκτελέσετε το πρόγραμμα . Το πρόγραμμα θα εμφανίσει ένα πλαίσιο μηνύματος για κάθε στοιχείο που πληκτρολογήσατε στο βήμα 2 .
Εικόνων του Word
Η 7

Πληκτρολογήστε μια λίστα με τις λέξεις , το καθένα στη δική της γραμμή , στη συνέχεια, κάντε κλικ στο κουμπί το ποντίκι στην κορυφή λέξη
8 .

Σύρετε προς τα κάτω στο κατώτατο λέξη και αφήστε το ποντίκι για να επιλέξετε όλες τις λέξεις στη λίστα .
Η

9 Κάντε κλικ στο " κουμπί Developer " καρτέλας " Visual Basic " για να μπείτε στο περιβάλλον προγραμματισμού VBA .
Η 10

Επικολλήστε τον ακόλουθο πρόγραμμα στο κεντρικό παράθυρο του περιβάλλοντος. Αυτό το πρόγραμμα διαβάζει την «Παράγραφος» ιδιοκτησίας της « Επιλογής » αντικείμενο, το οποίο κατέχει τον κατάλογο που επιλέξατε . Η " MsgBox" εμφανίζει τα περιεχόμενα της κάθε παραγράφου .

Public Sub ReadList ( )

Dim i

Για i = 1 Για να Selection.Paragraphs.Count

MsgBox Selection.Paragraphs ( i ) . Range.Text

Next i

End Sub

11

Κάντε κλικ σε μία από τις δηλώσεις του προγράμματος , και στη συνέχεια πατήστε " F5 "για να εκτελέσετε το πρόγραμμα . VBA θα διαβάσει κάθε στοιχείο στη λίστα σας και να αναφέρουν αυτό το στοιχείο σε σας .
Η
εικόνων