Obsah
V tomto článku si ukážeme několik nápadů, jak používat aplikaci Excel. VBA nastavit proměnná rozsahu můžeme s těmito vybranými buňkami provádět některé běžné operace pomocí příkazu VBA . V následujícím souboru dat v aplikaci Excel uvádíme některé západní názvy kapel a jejich odpovídající vokální zpěváci .
Stáhnout cvičebnici
VBA pro nastavení rozsahu na výběr.xlsm5 způsobů použití VBA k nastavení proměnné rozsahu na výběr v aplikaci Excel
1. Nastavení proměnné rozsahu pro výběr rozsahu pomocí aplikace Excel VBA
Rozsah můžeme vybrat pomocí rozsah nastavení na adrese VBA Předpokládejme, že chceme vybrat buňky B5:C8 . Přejděme k následujícímu postupu.
Kroky:
- Psaní kódu v VBA, nejprve otevřete Karta Vývojář a poté vyberte Visual Basic .
Poté se otevře nové okno Microsoft Visual Basic pro aplikace .
- Nyní otevřete Vložte >> vybrat Modul
.
- Zadejte následující kód do pole Modul VBA .
Sub RangeSelect() Dim Rng1 As Range Worksheets("selectRange").Activate Set Rng1 = Range("B5:C8") Rng1.Select End Sub
Zde jsme nastavit na rozsah B5:C8 jako Rng1 . Vybíráme ji podle Metoda rozsahu z VBA Mějte na paměti, že musíme aktivovat naše excel list tak jsme aktivovali selectRange list.
- Nyní se vraťte k list a spustit Makro .
- Poté se zobrazí rozsah B5:C8 vybrány automaticky.
Můžete tak nastavit požadovanou proměnná rozsahu k výběru pomocí VBA .
Přečtěte si více: Excel VBA: Získání rozsahu buněk s hodnotami (7 příkladů)
2. Použití VBA k formátování buněk nastavením proměnné rozsahu
Předpokládejme, že náš soubor dat vypadá jako následující obrázek.
Chceme, aby záhlaví tučně a AutoFit na sloupce . To můžeme provést prostřednictvím VBA . Podívejme se, jak to můžeme udělat.
Kroky:
- Nejprve otevřete Visual Basic a do pole Modul VBA (abyste zjistili, jak otevřít Visual Basic a Modul VBA , přejděte prosím na Oddíl 1 ).
Sub SetRange() Dim xyz As Range Set xyz = Range("B4:C4") xyz.Font.Bold = True xyz.Select Worksheets("autofit").Columns("B:C").AutoFit End Sub
Zde nastavíme rozsah B4:C4 jako xyz Pak jsme použili Odvážný metodu, aby se písma v buňce B4 a C4 tučně . Také jsme namontovali sloupce B a C pomocí AutoFit metoda.
- Nyní se vraťte k list a spustit Makro který je pojmenován jako SetRange .
Poté uvidíte jména zřetelně v okně sloupce a záhlaví stát se tučně a vybráno.
Touto cestou můžete formát buňky a AutoFit nastavení sloupců proměnné rozsahu na adrese VBA .
Podobná čtení
- Jak používat VBA pro každý řádek v rozsahu v aplikaci Excel
- 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)
3. Kopírování rozsahu nastavením výběru proměnné rozsahu ve VBA
Předpokládejme, že chceme zkopírovat B6:C9 nastavením proměnná rozsahu na vybrat . Probereme postup níže.
Kroky:
- Nejprve otevřete Visual Basic a do pole Modul VBA (abyste zjistili, jak otevřít Visual Basic a Modul VBA , přejděte prosím na Oddíl 1 ).
Sub CopyRange() Dim cpy As Range Set cpy = Range("B6:C9") cpy.Copy End Sub
Zde jsme jednoduše zkopírovali rozsah B6:C9 pomocí Kopírovat metoda VBA . Nastavili jsme rozsah B6:C9 jako cpy .
- Nyní se vraťte ke svému list a spustit Makra . CopyRange protože je to název vašeho aktuálního Makro .
Uvidíte rozsah B6:C9 je zkopírován.
Můžete vložit tento rozsah kdekoli v aplikaci Excel list stisknutím tlačítka CTRL + V . vložil jsem rozsah prostřednictvím B12 na C15 .
Touto metodou můžete kopírovat a rozsah nastavením proměnná rozsahu k výběru v aplikaci Excel VBA .
Přečtěte si více: Excel VBA: Kopírování dynamického rozsahu do jiného sešitu
4. Formátování buněk pomocí barvy nastavením proměnné rozsahu na výběr
Předpokládejme, že chceme obarvit 8. a 10. řádky datového souboru s zelená . Postupujme podle níže uvedeného popisu.
Kroky:
- Nejprve otevřete Visual Basic a do pole Modul VBA (abyste zjistili, jak otevřít Visual Basic a Modul VBA , přejděte prosím na Oddíl 1 ).
Sub ColorRange() Dim color As Worksheet Dim x1 As Range Dim x2 As Range Set color = ActiveSheet Set x1 = Range("B8:C8") Set x2 = Range("B10:C10") x1.Cells.Interior.ColorIndex = 4 x2.Cells.Interior.ColorIndex = 4 End Sub
Zde definujeme naše rozsah B8:C8 a B10:C10 jako x1 a x2 respektive. barva Excel List jako ActiveSheet a vybarvili jsme požadované rozsahy podle Vlastnost ColorIndex .
- Nyní se vraťte ke svému list a spustit Makra . ColorRange protože je to název aktuálního Makro .
Poté se zobrazí požadované rozsahy naplněné zelená barva.
Buňky tak můžete formátovat pomocí barva nastavením proměnná rozsahu k výběru.
Přečtěte si více: Jak používat rozsah s proměnnou řádek a sloupec pomocí aplikace Excel VBA
Podobná čtení
- 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)
5. Odstranění řádků nastavením proměnné rozsahu ve VBA
Předpokládejme, že chceme odstranit 8. a 10. řádky datového souboru s zelená . Postupujme podle níže uvedeného popisu.
Kroky:
- Nejprve otevřete Visual Basic a do pole Modul VBA (abyste zjistili, jak otevřít Visual Basic a Modul VBA , přejděte prosím na Oddíl 1 ).
Sub ColorRange() Dim color As Worksheet Dim x1 As Range Dim x2 As Range Set color = ActiveSheet Set x1 = Range("B8:C8") Set x2 = Range("B10:C10") x1.Cells.Interior.ColorIndex = 4 x2.Cells.Interior.ColorIndex = 4 End Sub
Na stránkách rozsahy které chceme odstranit, jsou B8:C8 a B10:C10 . Pojmenovali jsme je jako x1 a x2 Pak jsme je jen vymazali pomocí Odstranit metoda.
- Nyní se vraťte ke svému list a spustit Makra . DeleteRange protože je to název vašeho aktuálního Makro .
Poté se zobrazí rozsahy B8:C8 a B10:C10 jsou pryč.
Tímto postupem můžete odstranit řádky nastavením proměnné rozsahu k výběru.
Praktická část
Na následujícím obrázku najdete datovou sadu, se kterou jsme pracovali v tomto článku, abyste si ji mohli sami procvičit.
Závěr
Článek se ve zkratce plně zaměřuje na některé aplikace pro nastavení proměnná rozsahu k výběru pomocí aplikace Excel VBA . Popsali jsme několik zcela základních metod. Pokud máte nějaké další nápady nebo připomínky, zanechte je laskavě v komentáři. Pomůže mi to obohatit mé další články.