VBA do pętli przez wiersze w zakresie w Excelu (6 przykładów)

Hugh West

30-09-2023 Makra & Excel VBA
  • Udostępnij To
Hugh West

W tym poradniku omówimy, jak używać VBA aby zapętlić wiersze w zakresie w Excelu. Używamy pętli, aby uniknąć robienia tej samej rzeczy w kółko. Podczas pracy w Microsoft Excel możemy znaleźć się w sytuacji, w której musimy wykonać to samo zadanie wiele razy. Możemy to łatwo zrobić używając pętli w VBA W tym artykule zademonstrujemy 6 przykłady na zapętlenie wierszy w excelu z VBA Pętla, której będziemy używać w przykładach to ' Pętla For-Next '.

Pobierz Zeszyt ćwiczeń

Zeszyt ćwiczeń możemy pobrać stąd.

VBA Pętla przez wiersze w zakresie.xlsm

6 Przykładów na Pętla przez wiersze w zakresie z VBA w Excelu

Do zilustrowania przykładów z tego poradnika posłużymy się następującym zbiorem danych. Zbiór danych zawiera kwoty sprzedaży za pierwsze dwa miesiące roku 5 Handlowców .

1. użycie VBA w Zakresie ze Zmienną Zakresową do Pętli przez wiersze

W pierwszym przykładzie użyjemy zmiennej zakres do zapętlenia wierszy w zakresie przy użyciu VBA w excelu. Zastosujemy VBA pętla w poniższym zbiorze danych.

Zobaczmy kroki, aby wykonać ten przykład.

KROKI:

  • Na początek przejdź do aktywnego arkusza Zakres Zmienna '.
  • Ponadto, kliknij prawym przyciskiem myszy na stronie i wybrać opcję Wyświetl kod Można również nacisnąć Alt + F11 aby go otworzyć.

  • Powyższa czynność otwiera okno kodu dla tego arkusza.
  • Ponadto, wpisz kod w oknie kodu: 
 Sub VBA_Loop_through_Rows() Dim w As Range For Each w In Range("B5:D9").Rows w.Cells(1).Interior.ColorIndex = 35 Next End Sub
  • Następnie należy kliknąć na Uruchom lub naciśnij F5 aby uruchomić kod.

  • Na koniec otrzymamy wyniki jak na poniższym zrzucie ekranu.

Read More: Excel VBA: Pętla przez kolumny w zakresie (5 przykładów)

2. zastosuj VBA do pętli przez wiersze w zakresie ze zmienną numeryczną

Inną możliwością zapętlenia wierszy w zakresie jest wybranie zmiennej. W drugim przykładzie zastosujemy VBA w poniższym zestawie danych, aby zapętlić wiersze w zakresie ze zmiennymi numerycznymi.

Spójrzmy na kroki, aby wykonać tę metodę.

KROKI:

  • Po pierwsze, kliknij prawym przyciskiem myszy na stronie w aktywnym arkuszu o nazwie Wartość numeryczna '.
  • Następnie należy wybrać opcję Wyświetl kod '.

  • Ta czynność spowoduje otwarcie okna kodu dla tego arkusza. Możesz również nacisnąć przycisk Alt + F11 aby otworzyć to okno z kodem.
  • wpisz w tym oknie następujący kod: 
 Sub VBA_Numeric_Variable() Dim w As Integer With Range("B5").CurrentRegion For w = 1 To .Columns.Count .Columns(w).NumberFormat = "$0.00" Next End With End Sub.
  • Następnie należy kliknąć na Uruchom lub naciśnij przycisk F5 aby uruchomić kod.

  • Na koniec możemy zobaczyć wyniki jak na poniższym obrazku. Powyższy kod zmienia format liczby na dziesiętny.

Read More: VBA do pętli przez wiersze i kolumny w zakresie w Excelu (5 przykładów)

3. Excel VBA w wybranym przez użytkownika zakresie do pętli przez wiersze w zakresie

W trzecim przykładzie użyjemy VBA w wybranym przez użytkownika zakresie, aby zapętlić wiersze w zakresie. Tak więc użytkownik będzie mógł zastosować pętlę w wybranym obszarze zbioru danych.

Zobaczmy kroki związane z tym przykładem.

KROKI:

  • Na początku należy wybrać zakres komórek ( D5:D9 ).

  • Następny, kliknij prawym przyciskiem myszy na stronie w aktywnym arkuszu o nazwie Wybrany użytkownik '. Wybierz opcję ' Wyświetl kod '.

  • Powyższe polecenie spowoduje otwarcie VBA okno kodu dla aktywnego arkusza. Możesz również otworzyć to okno kodu naciskając Alt + F11 W tym pustym oknie kodu wstaw następujący kod: 
 Sub VBA_Użytkownik_wyboru() Dim w As Variant Set xRange = Wybór For Each w In xRange MsgBox "Wartość komórki = " & w.Value Next w End Sub
  • Następnie, aby uruchomić kod dla tego arkusza kliknij na Uruchom lub naciśnij przycisk F5 klucz.

  • Pojawia się więc okno komunikatu pokazujące pierwszą wartość z wybranego zakresu.

  • Ponadto, jeśli klikniesz na OK zwróci drugą wartość z wybranego zakresu, którą jest komórka D6 .

  • Proces ten będzie kontynuowany aż do ostatniej wartości z wybranego zakresu, którą jest komórka D9 .

Read More: Jak używać VBA do liczenia wierszy w zakresie z danymi w Excelu (5 makr)

Podobne lektury

  • Jak używać VBA, aby wybrać zakres z aktywnej komórki w programie Excel (3 metody)
  • Makro Excel: Sortuj wiele kolumn z dynamicznym zakresem (4 metody)
  • Jak przekonwertować zakres na tablicę w Excelu VBA (3 sposoby)

4) Pętla przez wiersze w dynamicznym zakresie za pomocą VBA

W czwartym przykładzie zastosujemy VBA aby zapętlić wiersze w dynamicznym zakresie. Ten przykład różni się nieco od poprzednich. Będziemy mogli dostosować zakres w pętli do arkusza Excela. Do zilustrowania tej metody użyjemy poniższego zestawu danych. W poniższym zestawie danych wypełnimy wartości zakresu ( B8:C12 ) o określonej wartości.

Wystarczy przejść przez poniższe kroki, aby wykonać tę metodę.

KROKI:

  • Po pierwsze, wartość wejściowa 6 w komórce B1 oraz C w komórce B2 .
  • Po drugie, kliknij prawym przyciskiem myszy na stronie na aktywnej komórce i wybrać opcję Wyświetl kod '.

  • To polecenie otworzy VBA okno kodu dla aktywnego arkusza. Innym sposobem otwarcia tego okna kodu jest naciśnięcie klawisza Alt + F11 .
  • Po trzecie w tym oknie kodu wstaw następujący kod: 
 Sub Dynamic_Range() Dim xRange As String xRange = "B8:" + Worksheets("Dynamic Range").Cells(2, 2).Value + _ CStr(3 + Worksheets("Dynamic Range").Cells(1, 2).Value) For Each Row In Range(xRange) For Each Cell In Row Cell.Value = "$2500.00" Next Cell Next Row End Sub
  • Teraz, aby uruchomić kod kliknij na Uruchom lub naciśnij przycisk F5 klucz.

  • W rezultacie zbiór danych wypełnia się wartością $2500.00 w następujący sposób.

UWAGA:

Na powyższym obrazku, wartość 6 reprezentuje dwa pierwsze wiersze zakresu ( B8:B9 ).

  • Na koniec wprowadź wartość 9 w komórce B1 zamiast 6 Wyniki możemy zobaczyć na poniższym obrazku.

5. wstawianie VBA do pętli przez cały wiersz w zakresie

W piątym przykładzie zobaczymy, jak możemy zastosować VBA aby zapętlić cały wiersz w zakresie. Ten przykład znajdzie pozycję określonej wartości z wybranego jednego lub wielu wierszy.

Zobaczmy więc kroki, które wykonamy, aby wykonać ten przykład.

KROKI:

  • Na początek, kliknij prawym przyciskiem myszy na stronie w aktywnym arkuszu o nazwie Cały rząd '. Wybierz opcję ' Wyświetl kod '.

  • Powyższe polecenie otwiera puste okno VBA okno kodu dla aktywnego arkusza. Możemy również uzyskać to okno kodu naciskając przycisk Alt + F11 .
  • Następnie w tym oknie kodu wstaw następujący kod: 
 Sub VBA_Loop_Entire_Row() Dim w As Range For Each w In Range("5:9") If w.Value = "Chris" Then MsgBox "Chris found at " & w.Address End If Next w End Sub
  • Następnie należy kliknąć na Uruchom lub naciśnij przycisk F5 aby uruchomić kod.

  • Na powyższym obrazku, podświetlona wartość ' Chris ' wskazuje wartość, której będziemy szukać.Wartość zakresowa ' 5:9 ' wskazuje, że będziemy szukać wartości w zakresie komórek ( B5:B9 ).
  • Na koniec pojawia się okno z komunikatem, że wartość Chris ' znajduje się w komórce B6 .

Read More: Jak używać VBA dla każdego wiersza w zakresie w Excelu

6) Pętla przez każdy n-ty wiersz w zakresie z Excel VBA

W ostatnim przykładzie zastosujemy VBA aby zapętlić się przez każdy n-ta Wiersz w zakresie W poniższym zbiorze danych zastosujemy cieniowanie kolorów do nieparzystych numerów wierszy naszego zakresu danych.

Zobaczmy więc kroki, aby wykonać tę metodę.

KROKI:

  • Po pierwsze, kliknij prawym przyciskiem myszy na stronie w aktywnym arkuszu o nazwie n-ty wiersz '. Wybierz opcję ' Wyświetl kod '.

  • Następnie otwiera puste okno VBA okno kodu dla tego arkusza. Możemy również uzyskać to okno kodu naciskając przycisk Alt + F11 .
  • Następnie w tym oknie kodu wpisz następujący kod obok: 
 Sub ShadeRows1() Dim r As Long With Range("B5").CurrentRegion For r = 1 To .Rows.Count If r / 2 = Int(r / 2) Then 'wiersze parzyste .Rows(r).Interior.ColorIndex = 43 End If Next End With End Sub
  • Teraz kliknij na Uruchom lub naciśnij przycisk F5 aby uruchomić kod.

  • Na koniec możemy zauważyć, że powyższy kod zacienia tylko wiersze o nieparzystej liczbie z naszego zbioru danych.

Read More: Excel VBA do Loop przez Zakres aż do pustej komórki (4 przykłady)

Wniosek

Podsumowując, ten tutorial daje ci 6 przykłady zapętlania wierszy w zakresie za pomocą VBA Pobierz arkusz ćwiczeniowy zawarty w tym artykule, aby sprawdzić swoje umiejętności. Jeśli masz jakieś pytania, zostaw komentarz w polu poniżej. Nasz zespół postara się odpowiedzieć na Twoją wiadomość tak szybko, jak to możliwe. Miej oko na więcej pomysłowych Microsoft Excel rozwiązania w przyszłości.

Poprzedni post Jak obliczyć średnią i odchylenie standardowe w Excelu
Następny post Jak wyciągnąć dane z wielu arkuszy w Excelu (4 szybkie sposoby)

Hugh West jest bardzo doświadczonym trenerem i analitykiem Excela z ponad 10-letnim doświadczeniem w branży. Posiada tytuł licencjata w dziedzinie rachunkowości i finansów oraz tytuł magistra administracji biznesowej. Hugh ma pasję do nauczania i opracował unikalne podejście do nauczania, które jest łatwe do naśladowania i zrozumienia. Jego specjalistyczna wiedza na temat programu Excel pomogła tysiącom studentów i profesjonalistów na całym świecie doskonalić swoje umiejętności i osiągać doskonałe wyniki w karierze. Za pośrednictwem swojego bloga Hugh dzieli się swoją wiedzą ze światem, oferując bezpłatne samouczki programu Excel i szkolenia online, aby pomóc osobom indywidualnym i firmom w pełni wykorzystać swój potencjał.