VBA For Loop - pętla przez szereg komórek - przykłady kodu VBA

W VBA możesz przechodzić przez zakres komórek, stosując akcje do każdej komórki w zakresie.

Jeśli chcesz przetestować warunek dla każdej komórki w zakresie za pomocą VBA, najlepszym sposobem jest przejście przez zakres, testując każdą komórkę. Oto dwa przykłady kodu, aby zademonstrować, jak przejść przez zakres. Możesz zastąpić wartość zakresu dla dowolnego zakresu, przez który chcesz przejść w pętli.

Zapętlanie zakresu komórek

W tym przykładzie przejdziemy przez zakres komórek. Instrukcja if sprawdza warunek, jeśli komórka zawiera tekst „FindMe” i wyświetla okno komunikatu z lokalizacją tekstu, jeśli został znaleziony.

1234567891011

Publiczne komórki podrzędne pętli()Dim c jako zakresDla każdego c W zakresie("A1:A10")Jeśli c.Value = „Znajdź mnie” WtedyMsgBox "Znajdź mnie w " & c.AddressZakończ, jeśliNastępny cNapis końcowy

Przeprowadź pętlę przez całą kolumnę

Ten przykład obejmuje cały zakres kolumny A.

1234567891011

Publiczna kolumna podrzędna pętli()Dim c jako zakresDla każdego c W zakresie ("A:A")Jeśli c.Value = „Znajdź mnie” WtedyMsgBox "Znajdź mnie w " & c.AddressZakończ, jeśliNastępny cNapis końcowy

Przeprowadź pętlę przez cały rząd

W następnym przykładzie pętla przechodzi przez wiersz 1, biorąc pod uwagę cały wiersz jako zakres.

1234567891011

Publiczna pętla podrzędna()Dim c jako zakresDla każdego c w zakresie("1:1")Jeśli c.Value = „Znajdź mnie” WtedyMsgBox "Znajdź mnie w " & c.AddressZakończ, jeśliNastępny cNapis końcowy