Σε αυτό το σεμινάριο, θα καλύψουμε τον τρόπο χρήσης του VBA για να κάνουμε βρόχο μέσα από γραμμές σε εύρος στο excel. Χρησιμοποιούμε τους βρόχους για να αποφύγουμε να κάνουμε το ίδιο πράγμα ξανά και ξανά. Ενώ δουλεύουμε στο Microsoft Excel , μπορεί να βρεθούμε σε μια θέση όπου πρέπει να εκτελέσουμε την ίδια εργασία πολλές φορές. Μπορούμε να το κάνουμε αυτό εύκολα χρησιμοποιώντας βρόχους στο VBA Σε αυτό το άρθρο, θα δείξουμε 6 παραδείγματα για να βρόχο μέσα από γραμμές στο excel με VBA Ο βρόχος που θα χρησιμοποιήσουμε σε όλα τα παραδείγματα είναι ο ' Βρόχος For-Next '.

Κατεβάστε το βιβλίο ασκήσεων

Μπορούμε να κατεβάσουμε το βιβλίο ασκήσεων από εδώ.

6 Παραδείγματα για τη βρόγχη σε σειρές σε σειρά με VBA στο Excel

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

1. Χρήση της VBA σε Range με μεταβλητή Range για να κάνετε βρόχο σε σειρές

Στο πρώτο παράδειγμα, θα χρησιμοποιήσουμε τη μεταβλητή range για να κάνουμε βρόχο στις γραμμές του range χρησιμοποιώντας VBA στο excel. Θα εφαρμόσουμε ένα VBA βρόχου στο ακόλουθο σύνολο δεδομένων.

Ας δούμε τα βήματα για την εκτέλεση αυτού του παραδείγματος.

ΒΗΜΑΤΑ:

• Αρχικά, μεταβείτε στο ενεργό φύλλο εργασίας ' Εύρος Μεταβλητή '.
• Επιπλέον, δεξί κλικ στο και επιλέξτε την επιλογή ' Προβολή κωδικού '. Μπορείτε επίσης να πατήσετε Alt + F11 για να το ανοίξετε.

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

 Sub VBA_Loop_through_Rows() Dim w As Range For Each w In Range("B5:D9").Rows w.Cells(1).Interior.ColorIndex = 35 Next End Sub 

• Στη συνέχεια, κάντε κλικ στο Εκτέλεση ή πατήστε F5 για να εκτελέσετε τον κώδικα.

• Τέλος, θα έχουμε αποτελέσματα όπως το ακόλουθο στιγμιότυπο οθόνης.

Διαβάστε περισσότερα: Excel VBA: Βρόχος μέσω στηλών σε σειρά (5 παραδείγματα)

2. Εφαρμογή της VBA για τη βρόγχη σε σειρές σε σειρά με αριθμητική μεταβλητή

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

Ας ρίξουμε μια ματιά στα βήματα για να κάνουμε αυτή τη μέθοδο.

ΒΗΜΑΤΑ:

• Πρώτον, δεξί κλικ στο στο ενεργό φύλλο με το όνομα ' Αριθμητική τιμή '.
• Στη συνέχεια, επιλέξτε την επιλογή ' Προβολή κωδικού '.

• Αυτή η ενέργεια θα ανοίξει ένα παράθυρο κώδικα για το συγκεκριμένο φύλλο εργασίας. Μπορείτε επίσης να πατήσετε Alt + F11 για να ανοίξετε αυτό το παράθυρο κώδικα.
• πληκτρολογήστε τον ακόλουθο κώδικα σε αυτό το παράθυρο:

 Sub VBA_Numeric_Variable() Dim w As Integer With Range("B5").CurrentRegion For w = 1 To .Columns.Count .Columns(w).NumberFormat = "$0.00" Next End With End Sub 

• Μετά από αυτό, κάντε κλικ στο Εκτέλεση ή πατήστε το F5 για να εκτελέσετε τον κώδικα.

• Τελικά, μπορούμε να δούμε αποτελέσματα όπως στην παρακάτω εικόνα. Ο παραπάνω κώδικας αλλάζει τη μορφή του αριθμού σε δεκαδικά σημεία.

Διαβάστε περισσότερα: VBA για να κάνετε βρόχο σε σειρές και στήλες μιας περιοχής στο Excel (5 παραδείγματα)

3. Excel VBA σε επιλεγμένη από τον χρήστη περιοχή για να κάνετε βρόχο σε σειρές σε περιοχή

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

Ας δούμε τα βήματα που σχετίζονται με αυτό το παράδειγμα.

ΒΗΜΑΤΑ:

• Στην αρχή, επιλέξτε την περιοχή κελιών ( D5:D9 ).

• Επόμενο, δεξί κλικ στο στο ενεργό φύλλο με το όνομα ' Επιλεγμένος χρήστης '. Επιλέξτε την επιλογή ' Προβολή κωδικού '.

• Η παραπάνω εντολή θα ανοίξει ένα VBA παράθυρο κώδικα για το ενεργό φύλλο εργασίας. Μπορείτε επίσης να ανοίξετε αυτό το παράθυρο κώδικα πατώντας Alt + F11 Εισάγετε τον ακόλουθο κώδικα σε αυτό το κενό παράθυρο κώδικα:

 Sub VBA_User_Selection() Dim w As Variant Set xRange = Selection For Each w In xRange MsgBox "Cell value = " & w.Value Next w End Sub 

• Στη συνέχεια, για να εκτελέσετε τον κώδικα για το συγκεκριμένο φύλλο εργασίας κάντε κλικ στο κουμπί Εκτέλεση ή πατήστε το F5 κλειδί.

• Έτσι, εμφανίζεται ένα πλαίσιο μηνύματος που δείχνει την πρώτη τιμή του επιλεγμένου εύρους.

• Επιπλέον, αν κάνετε κλικ στο OK θα επιστρέψει τη δεύτερη τιμή της επιλεγμένης περιοχής που είναι το κελί D6 .

• Αυτή η διαδικασία θα συνεχιστεί μέχρι την τελευταία τιμή της επιλεγμένης περιοχής που είναι το κελί D9 .

Διαβάστε περισσότερα: Πώς να χρησιμοποιήσετε το VBA για να μετρήσετε σειρές σε σειρά με δεδομένα στο Excel (5 μακροεντολές)

Παρόμοιες αναγνώσεις

• Πώς να χρησιμοποιήσετε το VBA για να επιλέξετε εύρος από το ενεργό κελί στο Excel (3 μέθοδοι)
• Μακροεντολή Excel: Ταξινόμηση πολλαπλών στηλών με δυναμικό εύρος (4 μέθοδοι)
• Πώς να μετατρέψετε σειρά σε συστοιχία στο Excel VBA (3 τρόποι)

4. Βρόχος σε σειρές σε δυναμική σειρά με VBA

Στο τέταρτο παράδειγμα, θα εφαρμόσουμε VBA για να κάνουμε βρόχο μέσα από τις γραμμές στο δυναμικό εύρος. Αυτό το παράδειγμα είναι ελαφρώς διαφορετικό από τα προηγούμενα. Θα είμαστε σε θέση να προσαρμόσουμε το εύρος στο βρόχο για το φύλλο εργασίας του excel. Θα χρησιμοποιήσουμε το ακόλουθο σύνολο δεδομένων για να παρουσιάσουμε αυτή τη μέθοδο. Στο ακόλουθο σύνολο δεδομένων, θα συμπληρώσουμε τις τιμές του εύρους ( B8:C12 ) με μια συγκεκριμένη τιμή.

Απλά ακολουθήστε τα παρακάτω βήματα για να εκτελέσετε αυτή τη μέθοδο.

ΒΗΜΑΤΑ:

• Πρώτον, τιμή εισόδου 6 στο κελί B1 και C στο κελί B2 .
• Δεύτερον, δεξί κλικ στο στο ενεργό κελί και επιλέξτε την επιλογή ' Προβολή κωδικού '.

• Αυτή η εντολή θα ανοίξει ένα VBA παράθυρο κώδικα για το ενεργό φύλλο εργασίας. Ένας άλλος τρόπος για να ανοίξετε αυτό το παράθυρο κώδικα είναι πατώντας Alt + F11 .
• Τρίτον, εισάγετε τον ακόλουθο κώδικα σε αυτό το παράθυρο κώδικα:

 Sub Dynamic_Range() Dim xRange As String xRange = "B8:" + Worksheets("Dynamic Range").Cells(2, 2).Value + _ CStr(3 + Worksheets("Dynamic Range").Cells(1, 2).Value) For Each Row In Range(xRange) For Each Cell In Row Cell.Value = "$2500.00" Next Cell Next Row End Sub 

• Τώρα, για να εκτελέσετε τον κώδικα κάντε κλικ στο Εκτέλεση ή πατήστε το F5 κλειδί.

• Ως αποτέλεσμα, το σύνολο δεδομένων γεμίζει με την τιμή $2500.00 με τον ακόλουθο τρόπο.

ΣΗΜΕΙΩΣΗ:

Στην παραπάνω εικόνα, η τιμή 6 αντιπροσωπεύει τις δύο πρώτες σειρές του εύρους ( B8:B9 ).

• Τέλος, εισαγάγετε την τιμή 9 στο κελί B1 αντί για 6 Μπορούμε να δούμε τα αποτελέσματα στην ακόλουθη εικόνα.

5. Εισαγωγή VBA για τη βρόγχη σε ολόκληρη τη σειρά σε σειρά

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

Ας δούμε λοιπόν τα βήματα που θα ακολουθήσουμε για να εκτελέσουμε αυτό το παράδειγμα.

ΒΗΜΑΤΑ:

• Αρχικά, δεξί κλικ στο στο ενεργό φύλλο με το όνομα ' Ολόκληρη σειρά '. Επιλέξτε την επιλογή ' Προβολή κωδικού '.

• Η παραπάνω εντολή ανοίγει ένα κενό VBA παράθυρο κώδικα για το ενεργό φύλλο εργασίας. Μπορούμε επίσης να πάρουμε αυτό το παράθυρο κώδικα πατώντας Alt + F11 .
• Στη συνέχεια, εισαγάγετε τον ακόλουθο κώδικα σε αυτό το παράθυρο κώδικα:

 Sub VBA_Loop_Entire_Row() Dim w As Range For Each w In Range("5:9") If w.Value = "Chris" Then MsgBox "Chris found at " & w.Address End If Next w End Sub 

• Στη συνέχεια, κάντε κλικ στο Εκτέλεση ή πατήστε το F5 για να εκτελέσετε τον κώδικα.

• Στην παραπάνω εικόνα, η επισημασμένη τιμή ' Chris ' υποδεικνύει την τιμή που θα αναζητήσουμε. Range value ' 5:9 ' υποδεικνύει ότι θα αναζητήσουμε την τιμή στην περιοχή κελιών ( B5:B9 ).
• Τέλος, ένα πλαίσιο μηνύματος εμφανίζει ότι η τιμή ' Chris ' βρίσκεται στο κελί B6 .

Διαβάστε περισσότερα: Πώς να χρησιμοποιήσετε το VBA για κάθε γραμμή σε μια σειρά στο Excel

6. Βρόχος σε κάθε n-οστή σειρά σε σειρά με το Excel VBA

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

Ας δούμε λοιπόν τα βήματα για την εκτέλεση αυτής της μεθόδου.

ΒΗΜΑΤΑ:

• Πρώτον, δεξί κλικ στο στο ενεργό φύλλο με το όνομα ' n-οστή σειρά '. Επιλέξτε την επιλογή ' Προβολή κωδικού '.

• Στη συνέχεια, ανοίγει ένα κενό VBA παράθυρο κώδικα για το συγκεκριμένο φύλλο εργασίας. Μπορούμε επίσης να πάρουμε αυτό το παράθυρο κώδικα πατώντας Alt + F11 .
• Στη συνέχεια, πληκτρολογήστε τον ακόλουθο κώδικα σε αυτό το παράθυρο κώδικα:

 Sub ShadeRows1() Dim r As Long With Range("B5").CurrentRegion For r = 1 To .Rows.Count If r / 2 = Int(r / 2) Then 'even rows .Rows(r).Interior.ColorIndex = 43 End If Next End With End Sub 

• Τώρα, κάντε κλικ στο Εκτέλεση ή πατήστε το F5 για να εκτελέσετε τον κώδικα.

• Τέλος, μπορούμε να δούμε ότι ο παραπάνω κώδικας αποχρωματίζει μόνο τις γραμμές με μονό αριθμό από το σύνολο δεδομένων μας.

Διαβάστε περισσότερα: Excel VBA για βρόγχο σε σειρά μέχρι κενό κελί (4 παραδείγματα)

Συμπέρασμα

Εν κατακλείδι, αυτό το σεμινάριο σας δίνει 6 παραδείγματα βρόγχου σε σειρές σε εύρος με VBA στο excel. Κατεβάστε το φύλλο πρακτικής άσκησης που περιέχεται σε αυτό το άρθρο για να δοκιμάσετε τις ικανότητές σας. Εάν έχετε οποιεσδήποτε ερωτήσεις, αφήστε ένα σχόλιο στο παρακάτω πλαίσιο. Η ομάδα μας θα προσπαθήσει να απαντήσει στο μήνυμά σας το συντομότερο δυνατό. Έχετε το νου σας για περισσότερες ευρηματικές Microsoft Excel λύσεις στο μέλλον.