Πώς να χρησιμοποιήσετε ένα βρόχο για να αλλάξετε πολλαπλά κελιά σε Visual Basic

Το πιο ισχυρό χαρακτηριστικό του υπολογιστή είναι η ικανότητά της να αυτοματοποιήσουν , και ότι βασίζεται σε μια απλή έννοια προγραμματισμού που ονομάζεται "loop ". Αν η γλώσσα είναι η Visual Basic , Assembler , Fortran , C ή Java , η ευκολία της πληροφορικής προέρχεται από το βρόχο . Ουσιαστικά , μπορείτε να δώσετε εντολή στον υπολογιστή να επαναλάβει μια συγκεκριμένη εργασία εκατοντάδες , χιλιάδες ή ακόμα και εκατομμύρια φορές . Είναι εύκολο να προγραμματίσετε ένα απλό βρόχο σε Visual Basic για να αλλάξετε πολλαπλά κελιά στο Excel . Τα πράγματα που θα χρειαστείτε
MS Excel με VB
Η Εμφάνιση Περισσότερες οδηγίες
Πληκτρολογήστε ένα απλό πρόγραμμα με Loop
Η

1 Κρατήστε πατημένο το πλήκτρο "Alt " και πιέστε το πλήκτρο " F11 " σε ένα νέο φύλλο εργασίας στο Excel . Κοιτάξτε το Visual Basic, και αν δείτε το φύλλο στην οθόνη αντ 'αυτού, επιλέξτε "Εργαλεία ", επιλέξτε " Macro " και στη συνέχεια επιλέξτε " Επεξεργασία Visual Basic . " 2

Κάντε κλικ στο " Εισαγωγή " και επιλέξτε " Ενότητα ". Πληκτρολογήστε τον ακόλουθο κώδικα όταν δείτε το δρομέα που αναβοσβήνει κάτω από τη λέξη " ( General ) " :

Sub SimpleLoop ( )

Dim I Όπως IntegerWorksheets ( " Φύλλο1 " ) ActivateRange ( "A1 . »). Επιλέξτε
' σχόλιο : Εδώ έρχεται

the Loop
Για Ι = 1 Για να 100ActiveCell.Value = IActiveCell.Offset ( 1 , 0 ) ActivateNext I

. »

Σχόλιο : ο βρόχος τελειώνει στις παραπάνω δήλωση

End Sub
εικόνων 3

Επανεξέταση κωδικό σας προσεκτικά για λάθη - οι δύο χαρακτήρες μετά τη λέξη « SimpleLoop " είναι παρενθέσεις . Επιβεβαιώστε ότι ο κώδικας σας είναι ακριβώς όπως το παραπάνω κώδικα
Η 4

Εκτελέστε το πρόγραμμα : . " . Run Sub /UserForm " Επιλέξτε "Run ", στη συνέχεια, επιλέξτε
5

Επιβεβαίωση τα αποτελέσματα του προγράμματος , κάνοντας κλικ στο πράσινο " Χ" στην επάνω αριστερή γωνία της οθόνης . Σημειώστε ότι το πρόγραμμα έχει γράψει τους αριθμούς 1 έως 100 στα πρώτα 100 κύτταρα στην οθόνη .
Εικόνων Τροποποίηση του Προγράμματος
Η 6

Κρατήστε πατημένο το πλήκτρο "Alt " και πιέστε " F11 ". Αλλάξτε το πρόγραμμά σας για να κάνετε 100 γρήγορα υπολογισμούς και αποθηκεύει το αποτέλεσμα : Μετακινήστε τον κέρσορα στην γραμμή που λέει, " ActiveCell.Value = I " . Αλλάξτε το ως εξής :

ActiveCell.Value = 1.05 ^ (Ι )
Η 7

Εκτελέστε το πρόγραμμα . Κάντε κλικ στο πράσινο "X " και πάλι και να επιβεβαιώσετε ότι το πρόγραμμα έχει κάνει 100 υπολογισμούς και τα αποθήκευαν στο υπολογιστικό φύλλο . Χειροκίνητη υπολογίσει 1,05 υψωμένο στη δύναμη 2 να κατανοήσουν τον υπολογισμό .
8

Clear την οθόνη κρατώντας πατημένο το πλήκτρο " Ctrl " και πατώντας το πλήκτρο " Α " Απελευθερώστε και τα δύο πλήκτρα και πατήστε " Διαγ "
Η 9

Alter το πρόγραμμά σας για να γράψει ένα μήνυμα 200 φορές : " . F11 " Κρατήστε πατημένο το πλήκτρο "Alt " και πιέστε Μετακινήστε τον κέρσορα με τον αριθμό " 100 " και να την αντικαταστήσει με το " 200 ". Μετακινήστε τον κέρσορα προς τα κάτω μια γραμμή και αντικαταστήστε το " εγώ " με το " Λατρεύω υπολογιστών ! " Η γραμμή του κώδικα θα πρέπει να μοιάζει κάπως έτσι :

ActiveCell.Value = "I love υπολογιστών ! "
Η 10

Εκτελέστε ξανά το πρόγραμμα . Κάντε κλικ στο πράσινο "X " και πάλι και να επιβεβαιώσετε ότι το πρόγραμμα έχει γράψει « Λατρεύω υπολογιστών ! " 200 φορές .
Η
εικόνων