Στο VBA, μπορείτε να περιηγηθείτε σε μια σειρά κελιών, εφαρμόζοντας ενέργειες σε κάθε κελί της περιοχής.
Εάν θέλετε να δοκιμάσετε μια συνθήκη για κάθε κελί σε μια περιοχή χρησιμοποιώντας VBA, ο καλύτερος τρόπος είναι να πραγματοποιήσετε βρόχο στο εύρος, δοκιμάζοντας κάθε κελί. Ακολουθούν δύο παραδείγματα κώδικα για να δείξετε πώς μπορείτε να κάνετε βρόχο σε ένα εύρος. Μπορείτε να αντικαταστήσετε την τιμή εύρους για όποιο εύρος χρειάζεστε για να περιηγηθείτε.
Loop Through Range of Cells
Αυτό το παράδειγμα θα περιηγηθεί σε μια σειρά κελιών. Η δήλωση if δοκιμάζει τη συνθήκη εάν το κελί περιέχει το κείμενο "FindMe" και εμφανίζει ένα πλαίσιο μηνυμάτων με τη θέση του κειμένου εάν βρεθεί.
| 1234567891011 | Public Sub LoopCells ()Dim c As RangeΓια κάθε c In Range ("A1: A10")Αν c.Value = "FindMe" ΤότεMsgBox "FindMe found at" & c.AddressΤέλος εανΕπόμενο γΤέλος υπο |
Βρόχος σε ολόκληρη τη στήλη
Αυτό το παράδειγμα περνάει ολόκληρο το εύρος της στήλης Α.
| 1234567891011 | Public Sub LoopColumn ()Dim c As RangeΓια κάθε c In Range ("A: A")Αν c.Value = "FindMe" ΤότεMsgBox "FindMe found at" & c.AddressΤέλος εανΕπόμενο γΤέλος υπο |
Βρόχος μέσω ολόκληρης της σειράς
Το επόμενο παράδειγμα περνάει από τη γραμμή 1 θεωρώντας ολόκληρη τη σειρά ένα εύρος.
| 1234567891011 | Public Sub LoopRow ()Dim c As RangeΓια κάθε c σε εύρος ("1: 1")Αν c.Value = "FindMe" ΤότεMsgBox "FindMe found at" & c.AddressΤέλος εανΕπόμενο γΤέλος υπο |
