Obsah
V tomto tutoriálu se budeme zabývat používáním VBA k procházení řádků v rozsahu v Excelu. Smyčky používáme, abychom zabránili opakování stejné činnosti. Při práci v programu Microsoft Excel , můžeme se ocitnout v situaci, kdy musíme stejný úkol provést mnohokrát. To můžeme snadno provést pomocí smyček v programu VBA V tomto článku si ukážeme. 6 příklady procházení řádků v Excelu pomocí VBA Smyčka, kterou budeme v příkladech používat, je Smyčka For-Next '.
Stáhnout cvičebnici
Cvičebnici si můžete stáhnout zde.
Smyčka VBA přes řádky v Range.xlsm6 příkladů na procházení řádků v rozsahu pomocí VBA v aplikaci Excel
Pro ilustraci příkladů v tomto tutoriálu použijeme následující soubor dat. Soubor dat obsahuje částky prodejů za první dva měsíce roku. 5 prodejců .
1. Použití VBA v rozsahu s proměnnou Range ke smyčce přes řádky
V prvním příkladu použijeme proměnnou range k procházení řádků v rozsahu pomocí VBA v Excelu. Použijeme VBA smyčka v následujícím souboru dat.
Podívejme se na postup provedení tohoto příkladu.
KROKY:
- Nejprve přejděte na aktivní pracovní list Rozsah Proměnná '.
- Kromě toho, klikněte pravým tlačítkem myši na a vyberte možnost Zobrazit kód '. Můžete také stisknout Alt + F11 otevřít.
- Výše uvedená akce otevře okno kódu pro daný pracovní list.
- Dále zadejte kód do okna kódu:
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 - Poté klikněte na Spustit nebo stiskněte F5 ke spuštění kódu.
- Nakonec získáme výsledky jako na následujícím obrázku.
Další informace: Excel VBA: Smyčka přes sloupce v rozsahu (5 příkladů)
2. Použití VBA pro procházení řádků v rozsahu s číselnou proměnnou
Další možností, jak procházet řádky v rozsahu, je výběr proměnné. V druhém příkladu použijeme následující postup VBA v následujícím datovém souboru procházet řádky v rozsahu s číselnými proměnnými.
Podívejme se, jak postupovat při této metodě.
KROKY:
- Za prvé, klikněte pravým tlačítkem myši na na aktivním listu s názvem Číselná hodnota '.
- Dále vyberte možnost Zobrazit kód '.
- Tato akce otevře okno s kódem pro daný pracovní list. Alt + F11 otevřít toto okno kódu.
- zadejte do tohoto okna následující kód:
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 - Poté klikněte na Spusťte nebo stiskněte tlačítko F5 spustit kód.
- Nakonec můžeme vidět výsledky jako na následujícím obrázku. Výše uvedený kód změní formát čísla na desetinnou čárku.
Další informace: Smyčka VBA pro řádky a sloupce v rozsahu v aplikaci Excel (5 příkladů)
3. Excel VBA v rozsahu vybraném uživatelem pro procházení řádků v rozsahu
Ve třetím příkladu použijeme VBA v uživatelem zvoleném rozsahu, aby bylo možné procházet řádky v rozsahu ve smyčce. Uživatel tak bude moci použít smyčku ve vybrané oblasti datového souboru.
Podívejme se na kroky spojené s tímto příkladem.
KROKY:
- Na začátku vyberte rozsah buněk ( D5:D9 ).
- Další, klikněte pravým tlačítkem myši na na aktivním listu s názvem Vybraný uživatel '. Vyberte možnost ' Zobrazit kód '.
- Výše uvedený příkaz otevře VBA okno kódu pro aktivní pracovní list. Toto okno kódu můžete otevřít také stisknutím tlačítka Alt + F11 . Do tohoto prázdného okna kódu vložte následující kód:
Sub VBA_User_Selection() Dim w As Variant Set xRange = Selection For Each w In xRange MsgBox "Cell value = " & w.Value Next w End Sub - Poté pro spuštění kódu pro daný pracovní list klikněte na tlačítko Spustit nebo stiskněte tlačítko F5 klíč.
- Zobrazí se tedy okno zprávy s první hodnotou vybraného rozsahu.
- Pokud navíc kliknete na OK vrátí druhou hodnotu vybraného rozsahu, což je buňka D6 .
- Tento proces bude pokračovat až do poslední hodnoty vybraného rozsahu, kterou je buňka D9 .
Přečtěte si více: Jak používat VBA k počítání řádků v rozsahu s daty v aplikaci Excel (5 maker)
Podobná čtení
- Jak použít VBA k výběru rozsahu z aktivní buňky v aplikaci Excel (3 metody)
- Makro aplikace Excel: Řazení více sloupců pomocí dynamického rozsahu (4 metody)
- Jak převést rozsah na pole v aplikaci Excel VBA (3 způsoby)
4. Smyčka přes řádky v dynamickém rozsahu pomocí VBA
Ve čtvrtém příkladu použijeme VBA k procházení řádků v dynamickém rozsahu. Tento příklad se mírně liší od předchozích. Budeme moci rozsah v cyklu přizpůsobit pro excelový pracovní list. Pro ilustraci této metody použijeme následující datový soubor. V následujícím datovém souboru vyplníme hodnoty rozsahu ( B8:C12 ) s určitou hodnotou.
K provedení této metody stačí projít níže uvedené kroky.
KROKY:
- Za prvé, vstupní hodnota 6 v buňce B1 a C v buňce B2 .
- Za druhé, klikněte pravým tlačítkem myši na na aktivní buňku a vyberte možnost Zobrazit kód '.
- Tento příkaz otevře VBA Další způsob, jak otevřít okno kódu pro aktivní list, je stisknout tlačítko Alt + F11 .
- Potřetí do tohoto okna kódu vložte následující kód:
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 - Pro spuštění kódu klikněte na Spustit nebo stiskněte tlačítko F5 klíč.
- Výsledkem je, že se datový soubor vyplní hodnotou $2500.00 následujícím způsobem.
POZNÁMKA:
Na výše uvedeném obrázku je hodnota 6 představuje první dva řádky rozsahu ( B8:B9 ).
- Nakonec zadejte hodnotu 9 v buňce B1 místo 6 . Výsledky vidíme na následujícím obrázku.
5. Vložení VBA pro smyčku přes celý řádek v rozsahu
V pátém příkladu uvidíme, jak můžeme použít VBA projít celý řádek v rozsahu. Tento příklad najde pozici konkrétní hodnoty z vybraného jednoho nebo více řádků.
Podívejme se tedy na kroky, kterými budeme postupovat při provádění tohoto příkladu.
KROKY:
- Začněme tím, že, klikněte pravým tlačítkem myši na na aktivním listu s názvem Celá řada '. Vyberte možnost ' Zobrazit kód '.
- Výše uvedený příkaz otevře prázdné okno VBA okno kódu pro aktivní pracovní list. Toto okno kódu můžeme také získat stisknutím tlačítka Alt + F11 .
- Poté do tohoto okna kódu vložte následující kód:
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 - Poté klikněte na Spustit nebo stiskněte tlačítko F5 spustit kód.
- Na výše uvedeném obrázku je zvýrazněná hodnota Chris ' označuje hodnotu, kterou budeme hledat. Hodnota rozsahu ' 5:9 ' označuje, že budeme hledat hodnotu v rozsahu buněk ( B5:B9 ).
- Nakonec se zobrazí okno se zprávou, že hodnota Chris ' se nachází v buňce B6 .
Další informace: Jak používat VBA pro každý řádek v rozsahu v aplikaci Excel
6. Smyčka přes každý n-tý řádek v rozsahu pomocí Excel VBA
V posledním příkladu použijeme VBA projít ve smyčce všechny n-tý Řádek v rozsahu. V následujícím souboru dat použijeme barevné stínování na lichý počet řádků našeho rozsahu dat.
Podívejme se tedy na postup provedení této metody.
KROKY:
- Za prvé, klikněte pravým tlačítkem myši na na aktivním listu s názvem n-tý řádek '. Vyberte možnost ' Zobrazit kód '.
- Dále se otevře prázdný VBA toto okno kódu pro daný list. Toto okno kódu můžeme také zobrazit stisknutím tlačítka Alt + F11 .
- Poté do tohoto okna kódu zadejte následující kód:
Sub ShadeRows1() Dim r As Long With Range("B5").CurrentRegion For r = 1 To .Rows.Count If r / 2 = Int(r / 2) Then 'sudé řádky .Rows(r).Interior.ColorIndex = 43 End If Next End With End Sub - Nyní klikněte na Spustit nebo stiskněte tlačítko F5 spustit kód.
- Nakonec vidíme, že výše uvedený kód odstíní pouze liché řádky z našeho souboru dat.
Další informace: Smyčka Excel VBA pro procházení rozsahu až do prázdné buňky (4 příklady)
Závěr
Závěrem tohoto výukového programu se dozvíte, že 6 příklady procházení řádků v rozsahu pomocí VBA Stáhněte si cvičný pracovní list obsažený v tomto článku a vyzkoušejte si své dovednosti. Máte-li jakékoli dotazy, zanechte prosím komentář v poli níže. Náš tým se pokusí na vaši zprávu co nejdříve odpovědět. Sledujte další vynalézavé postupy. Microsoft Excel řešení v budoucnu.
