Poniżej przyjrzymy się programowi, który pętle w określonym zakresie. Na przykład, gdy chcemy podnieść liczby do kwadratu w zakresie ("A1:A3"). Czy wiesz, że możesz także zapętlić zakres dynamiczny?
Sytuacja:
Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:
1. Najpierw deklarujemy dwa obiekty Range. Nazywamy obiekty Range rng i cell.
Dim rng As Range, komórka As Range
2. Inicjujemy obiekt Range rng za pomocą Range("A1:A3").
Ustaw rng = Zakres("A1:A3")
3. Dodaj pętlę For Each Next.
Dla każdej komórki w rng
Następna komórka
Uwaga: rng i komórka są tutaj wybierane losowo, możesz użyć dowolnych nazw. Pamiętaj, aby odwoływać się do tych nazw w pozostałej części kodu.
4. Następnie kwadratujemy każdą komórkę w tym zakresie. Aby to osiągnąć, dodaj do pętli następującą linię kodu:
komórka.Wartość = komórka.Wartość * komórka.Wartość
Wynik po kliknięciu przycisku polecenia na arkuszu:
5. Jeśli chcesz sprawdzić każdą komórkę w losowo wybranym zakresie, po prostu zamień:
Ustaw rng = Zakres("A1:A3")
z:
Ustaw rng = Wybór
6. Teraz na przykład wybierz Zakres("A1:A2").
Wynik po kliknięciu przycisku polecenia na arkuszu: