Jak používat rozsah s proměnnou řádek a sloupec pomocí aplikace Excel VBA

Hugh West

16-10-2023 Makra & Excel VBA
  • Sdílet Toto
Hugh West

Pokud chcete formátovat buňky výběrem a zároveň pracovat s velkým množstvím dat, je to časově náročné. VBA , můžeme to naprogramovat poměrně snadno. V tomto návodu si ukážeme, jak použít tzv. proměnná řádek a proměnná sloupec v rozsahu s Excel VBA .

Stáhnout cvičebnici

Stáhněte si tento cvičební sešit a procvičujte si při čtení tohoto článku.

Proměnná řádek a sloupec pomocí VBA.xlsm

5 vhodných způsobů použití rozsahu s proměnnou řádku a sloupce pomocí aplikace Excel VBA

V následující části ukážeme. 5 způsoby vytváření proměnné řádky a sloupce Kromě toho vám ukážeme, jak je použít k formátování nebo použití jakéhokoli přizpůsobení. proměnlivý rozsah . Na obrázku níže je znázorněn vzorový soubor dat pro využití úlohy.

1. Formátování určitého rozsahu použitím proměnné řádek pomocí aplikace Excel VBA

Řekněme, že chceme vybrat proměnlivý rozsah podáním žádosti o proměnná číslo řádku . Vybereme rozsah B5:C10 a použijte barva písma ( Maroon ) v rozsahu. Postupujte podle následujících jednoduchých kroků.

♠ Krok 1: Vytvoření modulu VBA

  • Nejprve stiskněte Alt + F11 spustit Makro VBA .
  • Klikněte na na Vložit.
  • Pak vyberte Modul .

♠ Krok 2: Napište kód VBA

  • Napište následující Kódy VBA. 
 Sub Variable_row_Select() 'deklarujte proměnnou pro číslo řádku Dim Row_Number As Integer 'Zadejte vstupní pole, pro číslo řádku zadejte 10 Row_Number = InputBox("Zadejte číslo řádku") 'Vložte proměnnou 'row_num' pro výběr prvních 5 řádků obsahujících data Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select End Sub

♠ Krok 3: Spuštění programu

  • Za prvé, uložit programu a stiskněte tlačítko F5 spustit.
  • Proto se Vstupní pole a zadejte 10 jako číslo řádku .

  • Nakonec stiskněte Vstupte na abyste viděli, že rozsah s ( Řádek 5 , Sloupec 2 ) na ( Proměnná Řádek 10 , Sloupec 3 ) bude vybrané .

♠ Krok 4: Použití barvy písma na rozsah

  • Přidání barva písma ve vybraném rozsah , vložte následující Kódy VBA . 
 Sub Variable_row_Font() 'deklarujte proměnnou pro číslo řádku Dim Row_Number As Integer 'Zadejte vstupní pole, zadejte 10 pro číslo řádku Row_Number = InputBox("Zadejte číslo řádku") 'Vložte proměnnou 'row_num' pro výběr prvních 6 řádků obsahujících data Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select 'Zadejte barvu písma v barvě Maroon With Selection .Font.Color = RGB(128, 0, 0)End With End Sub

♠ Krok 5: Zadejte číslo řádku

  • Typ a číslo řádku ( 10 ) v Vstupní pole .
  • Klikněte na OK .

  • Proto se vybraný rozsah bude barevné jak je znázorněno na obrázku níže.

Přečtěte si více: Jak pomocí VBA nastavit proměnnou rozsahu na výběr v aplikaci Excel (5 metod)

2. Přizpůsobení dynamického rozsahu použitím proměnné řádek pomocí nástroje Excel VBA

Pokud je použitý rozsah tak velký, že nelze rozlišit číslo řádku, může být nutné použít příkaz poslední použitý řádek jako vaše proměnná řádek . Chcete-li to udělat, postupujte podle níže uvedených kroků.

♠ Krok 1: Zadejte kód VBA

  • Vyberte nový Modul z Vložte
  • V novém Modul , napsat následující Program VBA . 
 Sub Variable_Dynamic_Row() 'deklarujte proměnnou pro číslo řádku Dim Last_Used_Row As Integer 'definujte proměnnou pro použitý rozsah Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'použijte proměnnou pro výběr aktuálního posledního řádku v rozsahu Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select End Sub

♠ Krok 2: Získejte výběr

  • Po spuštění programu rozsah bude vybrané až do vaší naposledy použitý řádek.

♠ Krok 3: Použití barvy písma

  • Na mark . vybraný rozsah nebo na editovat , vložit následující Kódy VBA . 
 Sub Variable_Dynamic_Row() 'deklarujte proměnnou pro číslo řádku Dim Last_Used_Row As Integer 'Definujte proměnnou pro použitý rozsah Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Použijte proměnnou pro výběr aktuálního posledního řádku v rozsahu Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select With Selection .Font.Color = RGB(128, 0, 0) End With End Sub

♠ Krok 4: Konečný výsledek

  • Nakonec, uložit program a spustit stisknutím tlačítka F5 .
  • V důsledku toho se rozsah s vaším poslední použitý řádek je naformátován barevně.

Přečtěte si více: Excel VBA: Kopírování dynamického rozsahu do jiného sešitu

Podobná čtení

  • Jak používat VBA pro každý řádek v rozsahu v aplikaci Excel
  • Smyčka VBA pro řádky a sloupce v rozsahu v aplikaci Excel (5 příkladů)
  • Smyčka Excel VBA pro procházení rozsahu až do prázdné buňky (4 příklady)
  • Jak převést rozsah na pole v aplikaci Excel VBA (3 způsoby)
  • Jak použít VBA k výběru rozsahu z aktivní buňky v aplikaci Excel (3 metody)

3. Formátování určitého rozsahu použitím proměnného sloupce pomocí aplikace Excel VBA

Podobně jako proměnné řádky , můžete použít proměnné sloupce s Excel VBA . B5 ( Řádek 5 , Sloupec 2 ) je buňka první buňka v rozsah, a Řada 8 je poslední řádek v rozsahu; poslední sloupec je proměnná sloupec . Podle níže uvedených postupů použijte proměnná sloupec .

♠ Krok 1: Napište kód VBA

  • V novém Modul , napsat následující Kód VBA . 
 Sub Variable_Column_Font() 'deklarujte proměnnou pro číslo řádku Dim Column_num As Integer 'zadejte vstupní pole, zadejte 5 pro číslo sloupce Column_num = InputBox("Zadejte číslo sloupce") 'vložte proměnnou 'Column_num' pro výběr prvních 5 sloupců obsahujících data Sheets("Sheet3").Range(Cells(5, 2), Cells(8, Column_num)).Select 'zadejte barvu písma v bordó With Selection .Font.Color =RGB(128, 0, 0) End With End Sub

♠ Krok 2: Spuštění programu

  • Na spustit programu, stiskněte tlačítko F5 po ukládání .
  • Proto se jako výsledky zobrazí následující údaje. vybrané buňky jsou rozsahy B5:E8 .

4. Přizpůsobení dynamického rozsahu použitím proměnného sloupce pomocí nástroje Excel VBA

Kromě předchozího můžete přizpůsobit i položku proměnná sloupec provádět dynamicky. zvýšit údaje v sloupec které budou přidat na výběr . Postupujte podle jednoduchého návodu níže.

♠ Krok 1: Vložení kódu VBA

  • Vložit následující VBA kódy do nového Modul . 
 Sub Variable_Dynamic_Column() 'deklarujte proměnnou pro číslo sloupce Dim lastColumn As Integer 'definujte proměnnou pro použitý rozsah lastColumn = Worksheets("Sheet4").UsedRange.Columns.Count 'použijte proměnnou pro výběr posledního sloupce v rozsahu Sheets("Sheet4").Range(Cells(5, 2), Cells(8, lastColumn)).Select 'obarvěte písmo vybraných buněk na bordó With Selection .Font.Color = RGB(128, 0,0) End With End Sub

♠ Krok 2: Spuštění programu

  • Za prvé, uložit programu a stiskněte tlačítko F5 spustit.
  • Výsledkem je výběr a formátování rozsahu až do hodnoty naposledy použitý sloupec v pracovním listu.

Přečtěte si více: Makro aplikace Excel: Řazení více sloupců pomocí dynamického rozsahu (4 metody)

5. Vytvoření rozsahu s proměnným řádkem i proměnným sloupcem pomocí aplikace Excel VBA

Důležité je, že můžete použít proměnné řádky a proměnné sloupce první buňka v našem výběru rozsahu je B5 ( Řádek 5, Sloupec 2 ) a poslední rozsah se bude lišit podle našeho výběru. Pro splnění úkolu postupujte podle níže uvedených kroků.

♠ Krok 1: Zadejte kód VBA

  • Za prvé, vytvořit nový Modul .
  • Pak, napsat následující Kódy VBA . 
 Sub Variable_Column_Row() 'deklarujte proměnnou pro číslo řádku Dim Row_Number As Integer 'deklarujte proměnnou pro číslo sloupce Dim Column_num As Integer 'Definujte proměnné - zadejte 8 pro číslo řádku a 4 pro sloupec Row_Number = InputBox("Zadejte číslo řádku") Column_num = InputBox("Zadejte číslo sloupce") 'Použijte proměnnou pro výběr řádků a sloupců v rozsahu Sheets("Sheet5").Range(Cells(5, 2),Cells(Row_Number, Column_num)).Select With Selection .Font.Color = RGB(128, 0, 0) End With End Sub

♠ Krok 2: Vložení čísla řádku

  • Typ jakýkoli číslo řádku .

♠ Krok 3: Vložení čísla sloupce

  • Typ jakýkoli číslo sloupce .

♠ Krok 4: Získejte konečné výsledky

  • Proto při výběru ( Řádek , Sloupec ) = ( 8,5 ), získáte konečný výsledek, jak je znázorněno na následujícím obrázku.

Závěr

Konečně doufám, že nyní chápete, jak používat rozsah s proměnnými řádky a sloupci pomocí Excel VBA . Všechny tyto strategie by měly být prováděny při vzdělávání a procvičování vašich dat. Prozkoumejte cvičebnici a aplikujte to, co jste se naučili. Jsme poháněni k tomu, abychom mohli pokračovat v nabízení programů, jako je tento, díky vaší štědré podpoře.

Pokud máte jakékoli dotazy, neváhejte se na nás obrátit. O své názory se podělte v komentářích níže.

Na stránkách Exceldemy pracovníci se vám co nejdříve ozvou.

Zůstaňte s námi a učte se dál.

Předchozí příspěvek Jak převést aplikaci Excel do textového souboru s oddělovačem potrubí (2 způsoby)
Další příspěvek Jak použít více filtrů v aplikaci Excel (6 vhodných metod)

Hugh West je velmi zkušený školitel a analytik Excelu s více než 10 lety zkušeností v oboru. Má bakalářský titul v oboru Účetnictví a finance a magisterský titul v oboru Business Administration. Hugh má vášeň pro výuku a vyvinul jedinečný přístup k výuce, který lze snadno sledovat a pochopit. Jeho odborné znalosti Excelu pomohly tisícům studentů a profesionálů po celém světě zlepšit své dovednosti a vyniknout ve své kariéře. Prostřednictvím svého blogu Hugh sdílí své znalosti se světem a nabízí bezplatné výukové programy Excelu a online školení, které jednotlivcům a firmám pomohou dosáhnout jejich plného potenciálu.