/ / / Loop μέσω καθορισμένης εμβέλειας στο Excel VBA

Βρόχο μέσω καθορισμένης εμβέλειας στο Excel VBA

Παρακάτω θα δούμε ένα πρόγραμμα που βρόχους μέσω μιας καθορισμένης περιοχής. Για παράδειγμα, όταν θέλουμε να τετραπλασιάσουμε τους αριθμούς στην Περιοχή ("A1: A3"). Ξέρατε ότι μπορείτε επίσης να βγείτε από μια δυναμική περιοχή;

Κατάσταση:

Βρόχο μέσω καθορισμένης εμβέλειας στο Excel VBA

Τοποθετήστε ένα κουμπί εντολής στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:

1. Αρχικά, δηλώνουμε δύο αντικείμενα Range. Καλούμε τα αντικείμενα σειράς rng και κελί.

Dim rng As Range, cell As Range

2. Αρχικοποιούμε το αντικείμενο σειράς rng με εύρος ("A1: A3").

Set rng = Range("A1:A3")

3. Προσθέστε τον βρόχο For Each Next.

For Each cell In rng

Next cell

Σημείωση: Το rng και το κελί επιλέγονται τυχαία εδώ, μπορείτε να χρησιμοποιήσετε οποιαδήποτε ονόματα. Θυμηθείτε να ανατρέξετε σε αυτά τα ονόματα στον υπόλοιπο κωδικό σας.

4. Στη συνέχεια, τετράγωνα κάθε κελί σε αυτό το εύρος. Για να επιτευχθεί αυτό, προσθέστε την ακόλουθη γραμμή κώδικα στον βρόχο:

cell.Value = cell.Value * cell.Value

Αποτέλεσμα όταν κάνετε κλικ στο κουμπί εντολών στο φύλλο:

Βρόχος μέσω του αποτελέσματος ορισμένης εμβέλειας

5. Αν θέλετε να ελέγξετε κάθε κελί σε μια τυχαία επιλεγμένη περιοχή, αντικαταστήστε απλά:

Set rng = Range("A1:A3")

με:

Set rng = Selection

6. Τώρα, για παράδειγμα, επιλέξτε Εύρος ("A1: A2").

Βρόχος μέσω επιλογής στο Excel VBA

Αποτέλεσμα όταν κάνετε κλικ στο κουμπί εντολών στο φύλλο:

Βρόχος μέσω αποτελέσματος επιλογής

Επίσης διαβάστε: