/ / Pętla przez zdefiniowany zakres w Excelu VBA

Pętla poprzez zdefiniowany zakres w Excelu VBA

Poniżej przyjrzymy się programowi, który pętle w określonym zakresie. Na przykład, gdy chcemy wyrównać liczby w zakresie ("A1: A3"). Czy wiesz, że możesz także przechodzić przez zakres dynamiczny?

Sytuacja:

Pętla poprzez zdefiniowany zakres w Excelu VBA

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, cell As Range

2. Inicjujemy obiekt Range rng z Range ("A1: A3").

Set rng = Range("A1:A3")

3. Dodaj pętlę For Each Next.

For Each cell In rng

Next cell

Uwaga: rng i komórka są losowo wybrane tutaj, możesz użyć dowolnych nazw. Pamiętaj, aby odwoływać się do tych nazw w pozostałej części kodu.

4. Następnie wyrównaj każdą komórkę w tym zakresie. Aby to osiągnąć, dodaj następującą linię kodu do pętli:

cell.Value = cell.Value * cell.Value

Wynik po kliknięciu przycisku polecenia na arkuszu:

Pętla poprzez zdefiniowany zakres wyników

5. Jeśli chcesz sprawdzić każdą komórkę w losowo wybranym zakresie, po prostu zamień:

Set rng = Range("A1:A3")

z:

Set rng = Selection

6. Teraz na przykład wybierz Zakres ("A1: A2").

Pętla przez wybór w Excelu VBA

Wynik po kliknięciu przycisku polecenia na arkuszu:

Pętla w wyniku selekcji

Przeczytaj również: