Παρακάτω θα δούμε ένα πρόγραμμα που βρόχους μέσα από ένα καθορισμένο εύρος. Για παράδειγμα, όταν θέλουμε να τετραγωνίσουμε τους αριθμούς στο εύρος ("A1: A3"). Γνωρίζατε ότι μπορείτε επίσης να περιηγηθείτε σε ένα δυναμικό εύρος;
Κατάσταση:
Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:
1. Αρχικά, δηλώνουμε δύο αντικείμενα Range. Τα αντικείμενα Range τα λέμε rng και cell.
Dim rng Ως εύρος, κελί ως εύρος
2. Αρχικοποιούμε το αντικείμενο Range rng με Range ("A1: A3").
Ρύθμιση rng = Εύρος ("A1: A3")
3. Προσθέστε το βρόχο Για κάθε επόμενο.
Για κάθε κελί σε rng
Επόμενο κελί
Σημείωση: Το rng και το κελί επιλέγονται τυχαία εδώ, μπορείτε να χρησιμοποιήσετε οποιαδήποτε ονόματα. Θυμηθείτε να ανατρέξετε σε αυτά τα ονόματα στον υπόλοιπο κώδικα.
4. Στη συνέχεια, τετραγωνίζουμε κάθε κελί σε αυτό το εύρος. Για να επιτευχθεί αυτό, προσθέστε την ακόλουθη γραμμή κώδικα στον βρόχο:
cell.Value = cell.Value * cell.Value
Αποτέλεσμα όταν κάνετε κλικ στο κουμπί εντολών στο φύλλο:
5. Εάν θέλετε να ελέγξετε κάθε κελί σε μια τυχαία επιλεγμένη περιοχή, απλώς αντικαταστήστε:
Ρύθμιση rng = Εύρος ("A1: A3")
με:
Ρύθμιση rng = Επιλογή
6. Τώρα, για παράδειγμα, επιλέξτε Εύρος ("A1: A2").
Αποτέλεσμα όταν κάνετε κλικ στο κουμπί εντολών στο φύλλο: