În VBA, puteți parcurge o serie de celule, aplicând acțiuni fiecărei celule din interval.
Dacă doriți să testați o condiție pentru fiecare celulă dintr-un interval folosind VBA, cel mai bun mod este să parcurgeți intervalul, testând fiecare celulă. Iată două exemple de cod pentru a demonstra cum să parcurgeți un interval. Puteți înlocui valoarea intervalului pentru orice domeniu trebuie să parcurgeți.
Buclați prin gama de celule
Acest exemplu va parcurge o serie de celule. Instrucțiunea if testează starea dacă celula conține textul „FindMe” și afișează o casetă de mesaj cu locația textului dacă a fost găsit.
1234567891011 | Public Sub LoopCells ()Dim c As RangePentru fiecare c din interval ("A1: A10")Dacă c.Value = "FindMe" AtunciMsgBox „FindMe găsit la„ & c.AddressEnd IfUrmătorul cSfârșitul Sub |
Buclați prin întreaga coloană
Acest exemplu parcurge întreaga gamă de coloane A.
1234567891011 | Public Sub LoopColumn ()Dim c As RangePentru fiecare c din interval ("A: A")Dacă c.Value = "FindMe" AtunciMsgBox „FindMe găsit la„ & c.AddressEnd IfUrmătorul cSfârșitul Sub |
Buclați prin întregul rând
Următorul exemplu parcurge rândul 1 având în vedere întregul rând un interval.
1234567891011 | Public Sub LoopRow ()Dim c As RangePentru fiecare c din interval ("1: 1")Dacă c.Value = "FindMe" AtunciMsgBox „FindMe găsit la„ & c.AddressEnd IfUrmătorul cSfârșitul Sub |