Sada Excel VBA

„Set“ je klíčové slovo používané v programování VBA k přiřazení odkazu na rozsah objektů nebo buněk, které zůstanou opraveny v celém programu nebo kódu v Excelu. Sada VBA nám v zásadě pomáhá vyhýbat se opakovanému zadávání rozsahu, který musíme vybrat při provádění kódu. V excelu je „Set“ většinou aplikován na pracovní listy / rozsah buněk v konkrétním listu.

Syntax:

Nastavit název-objektu / proměnné = Object / Range

Poznámka: Musíte mít kartu Vývojář v pracovním listu aplikace Excel.

Pokud nevidíte kartu „Vývojář“ v Excelu, postupujte podle následujících kroků:

Krok 1: Klikněte na možnost Soubor .

Krok 2: Zobrazí se rozevírací nabídka, klikněte na kartu Možnosti .

Krok 3: Jakmile kliknete na „Možnosti“, zobrazí se dialogové okno, jak je znázorněno níže, a klikněte na možnost Přizpůsobit pás karet .

Krok 4: Když přetáhneme dolů možnosti přizpůsobení pásu karet, najdeme možnost pro vývojáře, musíme zaškrtnout políčko, které nám umožní používat VBA ve vynikající kvalitě.

Jak používat sada klíčových slov ve VBA?

Níže jsou uvedeny různé příklady použití sady klíčových slov v aplikaci Excel VBA.

Tuto šablonu VBA Set Excel si můžete stáhnout zde - VBA Set Excel Excel

Sada Excel VBA - Příklad č. 1

V Excelu VBA si vezmeme jednoduchý příklad klíčového slova Set. Předpokládejme, že bychom chtěli vybrat rozsah a nastavit jej jako rozsah oprav, abychom se vyhnuli opakování. Níže je uveden rozsah buněk obsahující jména:

Chcete-li v sadě Excel VBA použít klíčové slovo set, postupujte takto:

Krok 1: Klikněte na kartu „Vývojář“ a poté klikněte na možnost „Visual Basic“ na levé straně (první možnost), jak je uvedeno níže.

Jakmile na něj kliknete, zobrazí se nové okno, jak je uvedeno níže:

Všimněte si, že obsahuje dvě karty na levé straně, „List1 (List1)“ a „ThisWorkbook“. Jediný rozdíl je „List1“, pokud chcete provést kód pouze pro tento konkrétní list a v „ThisWorkbook“ můžeme napsat kód a provést, který lze použít pro celý excel sešitu.

Krok 2: Poklepejte na “List1 (List1)” a uvidíte prázdnou obrazovku, kam musíme napsat kód. Nejprve deklarujte podmnožinu jako Sub name a stiskněte Enter a uvidíte podmnožinu vytvořenou níže uvedeným způsobem:

Kód:

 Sub setexmp () End Sub

Tímto způsobem vytváříme podmnožinu a automaticky se objeví „End Sub“. Toto je ve výchozím nastavení funkce Excel. Pokud se „End Sub“ neobjeví, kód se nespustí a vyvolá chybu.

Krok 3: Nyní deklarujeme proměnné, které mají být použity v kódu.

Zadejte Dim název proměnné a typ proměnné. Zde bude název stejný jako identita rozsahu a typu by bylo, zda jako Integer, Long, String, Range atd.

Kód:

 Sub setexmp () Dim Rnst As Range End Sub

Zde je „Rnst“ název proměnné a přiřaďte jej (As) jako funkci Range. Toto upozorní systém, že by byl proveden výběr rozsahu.

Krok 4: Poté zadejte klíčové slovo „Set“ a zadejte rozsah pomocí formátu: Set variable = Range („cell range“) .

Kód:

 Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") End Sub

Krok 5: Musíme vybrat tento specifikovaný rozsah řádků. Proto zadejte select jako Rnst.Select Viz screenshot níže:

Kód:

 Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select End Sub Sub

Krok 6: Spusťte kód stisknutím klávesy F5 nebo Run a podívejte se na výstup.

Vybere specifikovaný rozsah, který je z buněk A2 až A11.

Sada Excel VBA - Příklad č. 2

Předpokládejme, že chceme vložit tyto buňky nebo rozsah do jiné buňky. Použijeme stejný kód jako výše a přidáme kód pro vložení těchto dat do více sloupců.

Postupujte podle následujících kroků:

Krok 1: Nyní zkopírujeme rozsah buněk, což je sloupec s názvem. Zadejte kopii, tj. „Rnst.Copy“, když zadáte „Rnst.“, Objeví se druh rozbalovací nabídky. Obsahuje různé funkce, jako je kopírování, vkládání atd.

Krok 2: Můžete posouvat dolů a vybrat požadovanou funkci, kterou chcete provést. Zde stačí zadat „Kopírovat“, jak je uvedeno na obrázku níže:

Kód:

 Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select Rnst.Copy End Sub Sub

Krok 3: Zkompilujte kód stisknutím klávesy F8.

Jakmile spustíte tuto funkci kopírování, uvidíte, že v Excelu je rozsah zkopírován a kolem oblasti buněk se objeví tečkované čáry, jak je ukázáno níže:

Krok 4: Nyní musíme vložit tyto buňky, řekněme do sousedních sloupců jeden po druhém, takže musíme použít smyčkovou funkci „Pro“ a předpokládejme, že je třeba vložit 5krát, takže ji zadáme, jak je znázorněno níže:

Pro Integer i = 1 až 5 -> určuje, kolikrát potřebujeme data vložit. Pokud 5, pak 1 až 5 dalších, podle toho, co se vám líbí.

Kód:

 Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select Rnst.Copy Pro i = 1 až 5 End Sub

Krok 5: Vyberte buňku, do které chcete vložit tuto oblast buněk. Předpokládejme, že chceme začít vkládat ze sloupce B2 a pak vkládat data by měla být dynamická, tj. Měla by automaticky vybírat sousední sloupce jeden po druhém bez překrývání. Syntaxe by tedy byla „Buňka (číslo řádku, číslo sloupce) .PasteSpecial“.

Buňky (2, i + 1) .PasteSpecial, zde 2-> představuje číslo řádku a i + 1 -> představuje číslo sloupce. i + 1 znamená, že první hodnota I deklarovaná ve smyčce „Pro“ je i = 1, proto se hodnota sloupce stane 2, určuje, že začne vkládat ze sloupce B. A jak a když se hodnota i zvýší, bude i nadále vybírat sousední sloupce jeden za druhým.

Kód:

 Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select Rnst.Copy Pro i = 1 až 5 buněk (2, i + 1) .PasteSpecial xlValues ​​End Sub Sub

Krok 6: Zadejte „ Next i “, což znamená, že postupně zvyšujete hodnotu „i“, takže vkládání sloupců zůstává dynamické.

Kód:

 Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select Rnst.Copy Pro i = 1 až 5 buněk (2, i + 1) .PasteSpecial xlValues ​​Next i End Sub

Krok 7: Stiskněte „F8“, abyste viděli provádění kódu po řádku a ukázali vám vkládání buněk do sousedních sloupců jeden po druhém.

Zde vidíte hodnotu i je 1 a data byla vložena do sloupce B podle potřeby.

Krok 8: Nyní, když znovu stisknete „F8“, uvidíte, že nyní je hodnota i 2. 2. 2 + 1 tedy bude 3 a data budou vložena do buňky (2, 3), tj. Hodnota řádku je stejná, ale sloupec počet změn, jak ukazuje obrázek níže:

Po dokončení opakování smyčky uvidíte data vložená 5krát, tj. Od počtu 1 do 5, které se začínají vkládat ze sloupce B do sloupce F, jak je uvedeno níže:

Sada Excel VBA - Příklad č. 3

Předpokládejme, že bychom chtěli ukázat počet buněk v tomto rozsahu v okně zprávy, které se objeví po kliknutí na tlačítko. Budeme brát stejná data, jak je uvedeno níže.

V tomto novém listu také spustíme kód tohoto příkladu. Proto přidejte nový list a v okně VBA se objeví níže:

Budeme muset vložit volbu příkazového tlačítka. Je to funkce Excelu, postupujte takto:

Krok 1: Zadejte název podmnožiny „Setcount ()“, jak je uvedeno na obrázku níže:

Kód:

 Sub Setcount () End Sub

Krok 2: Deklarujte stejnou proměnnou „Rnct“ jako rozsah v podmnožině, jak je uvedeno na obrázku níže:

Kód:

 Sub Setcount () Dim Rnct As Range End Sub

Krok 3: Poté zadejte klíčové slovo „Set“ a zadejte rozsah.

Kód:

 Sub Setcount () Dim Rnct As Range Set Rnct = Range ("A2: A11") End Sub

Krok 4: Nyní, po stanovení rozsahu, musíme vidět vyskakovací okno nebo dialogové okno zobrazující počet buněk v rozsahu. Proto použijte funkci „MsgBox“, která se po provedení zobrazí v dialogovém okně. Zadejte „Název proměnné MsgBox.count“. Ve chvíli, kdy zadáte název proměnné a poté tečku (.), Se objeví rozbalovací nabídka obsahující různé funkce a my zvolíme „count“ nebo ručně zadejte „count“.

Zadejte „MsgBox Rnct.count“ a po spuštění se zobrazí počet.

Krok 5: Nyní chceme vložit příkazové tlačítko a po kliknutí na toto tlačítko by se mělo objevit okno se zprávou.

Klikněte na „Vložit“ na kartě „Vývojář“, jak je zvýrazněno v červeném rámečku a zobrazí se rozevírací nabídka kategorie „Form Controls“. Klikněte na první obdélníkový obdélníkový tvar, který budeme muset ručně nakreslit a vložit do Excelu:

Krok 6: Po kliknutí na obdélník rámeček nakreslete a vložte do listu a jakmile začnete kreslit, zobrazí se dialogové okno, jak je znázorněno níže. Jedná se o tlačítko okna „Přiřadit makro“ a vyberte makro podmnožiny „Setcount“. Klikněte na „OK“.

To znamená, že tomuto tlačítku bylo přiřazeno makro počtu. A po kliknutí se spustí.

Krok 7: Bude vypadat, jak je ukázáno níže v Excelu.

Krok 8: Klikněte na něj pravým tlačítkem myši a přejmenujte jej pomocí možnosti „ Upravit text “, jak je uvedeno níže:

Krok 9: Pojmenujte jej jako „COUNT“ a uvidíte, že je ve vynikajícím počtu, jak je uvedeno níže.

Krok 10: Poté klikněte na tlačítko „COUNT“: Jakmile kliknete na tlačítko „COUNT“, zobrazí se následující okno se zprávou:

Jak vidíme, existuje 10 jmen a ukázaly správné číslo z rozsahu A2 až A11.

Co si pamatovat

  • Ujistěte se, že je v pásech aplikace Excel vložena karta „Vývojář“ pro spuštění těchto kódů VBA.
  • „Sada“ se většinou používá na listech / rozsahu buněk v konkrétním listu.

Doporučené články

Toto je průvodce sadou VBA. Zde diskutujeme o tom, jak přiřadit odkaz na objekt nebo oblast buněk pomocí vynikající sady klíčových slov VBA spolu s praktickými příklady a šablonou Excel ke stažení. Níže uvádíme několik užitečných vynikajících článků týkajících se VBA -

  1. VBA Zřetězená funkce
  2. Výukové programy na sadách ikon Excelu
  3. Práce s Range Cells ve VBA
  4. Řešení rovnice v Excelu

Kategorie:

Tipy pro Excel