Sada Excel VBA
„Set“ je kľúčové slovo, ktoré sa používa pri programovaní VBA na priradenie odkazu na rozsah objektov alebo buniek, ktorý zostane opravený v celom programe alebo kóde v Exceli. Sada VBA nám v podstate pomáha predchádzať opakovaniu zadávania rozsahu, ktorý musíme vybrať pri vykonávaní kódu. V exceli je „Set“ väčšinou aplikovaný na pracovné hárky / rozsah buniek v konkrétnom hárku.
syntaxe:
Nastaviť názov-objektu / premennú = Objekt / Rozsah
Poznámka: Na excelovom pracovnom hárku musíte mať kartu Vývojár.Ak nevidíte kartu „Vývojár“ v Exceli, postupujte podľa nasledujúcich krokov:
Krok 1: Kliknite na možnosť súboru .
Krok 2: Zobrazí sa rozbaľovacia ponuka, kliknite na kartu Možnosti .
Krok 3: Po kliknutí na „Možnosti“ sa zobrazí dialógové okno, ako je uvedené nižšie a kliknite na možnosť Prispôsobiť pásku .
Krok 4: Keď pretiahneme nadol možnosti prispôsobenia pásky, nájdeme možnosť pre vývojára, musíme začiarknuť políčko, ktoré nám umožní používať VBA vo vynikajúcej kvalite.
Ako používať nastavené kľúčové slovo vo VBA?
Nižšie sú uvedené rôzne príklady použitia kľúčového slova set v programe Excel VBA.
Túto šablónu VBA Set Excel si môžete stiahnuť tu - VBA Set Excel ExcelSada Excel VBA - Príklad č. 1
Ukážeme jednoduchý príklad kľúčového slova Set v programe Excel VBA. Predpokladajme, že by sme chceli vybrať rozsah a nastaviť ho ako rozsah opráv, aby sa predišlo opakovaniu. Nižšie je uvedený rozsah buniek obsahujúci názvy:
Ak chcete použiť nastavené kľúčové slovo v programe Excel VBA, postupujte podľa nasledujúcich krokov:
Krok 1: Kliknite na kartu „Vývojár“ a potom kliknite na možnosť „Visual Basic“ na ľavej strane (prvá možnosť), ako je to znázornené nižšie.
Po kliknutí naň sa zobrazí nové okno, ako je uvedené nižšie:
Všimnite si, že obsahuje dve karty na ľavej strane, „List1 (List1)“ a „ThisWorkbook“. Jediný rozdiel je „List1“, keď chcete vykonať kód iba pre tento konkrétny list av „ThisWorkbook“ môžeme napísať kód a vykonať, ktorý sa dá použiť pre celý excel zošit.
Krok 2: Dvakrát kliknite na „List1 (List1)“ a uvidíte prázdnu obrazovku, na ktorej musíme napísať kód. Najprv deklarujte podmnožinu ako Sub name a stlačte kláves enter a uvidíte podmnožinu vytvorenú podľa nasledujúceho obrázka:
kód:
Sub setexmp () End Sub
Takto vytvoríme podmnožinu a automaticky sa zobrazí „End Sub“. Toto je štandardne funkcia Excel. Ak sa „End Sub“ neobjaví, kód sa nevykoná a vyvolá chybu.
Krok 3: Teraz deklarujeme premenné, ktoré sa majú použiť v kóde.
Typ Dim názov premennej a typ premennej. Tu bude názov rovnaký ako rozsah a typ rozsahu bude, či už ako celé číslo, dlhé, reťazec, rozsah atď.
kód:
Sub setexmp () Dim Rnst As Range End Sub
Tu je „Rnst“ názov premennej a priraďuje ho (As) ako funkcia Range. Toto upozorní systém, že by sa vykonal výber rozsahu.
Krok 4: Potom zadajte kľúčové slovo „Set“ a zadajte rozsah pomocou tohto 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 vybrať tento rozsah riadkov. Preto napíšte select ako Rnst.Select Pozri snímku obrazovky nižšie:
kód:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select End Sub Sub
Krok 6: Spustite kód stlačením klávesy F5 alebo Run a pozrite si výstup.
Vyberie špecifikovaný rozsah, ktorý je z buniek A2 až A11.
Sada Excel VBA - Príklad č. 2
Predpokladajme, že chceme vložiť tieto bunky alebo rozsah do inej bunky. Na prilepenie týchto údajov do viacerých stĺpcov použijeme rovnaký kód ako vyššie a pridáme kód.
Postupujte podľa nasledujúcich krokov:
Krok 1: Teraz skopírujeme rozsah buniek, ktorý je stĺpcom názvu. Keď napíšete „Rnst“, napíšte „Rnst.Copy“ a zobrazí sa druh rozbaľovacej ponuky. Obsahuje rôzne funkcie ako kopírovanie, vkladanie atď.
Krok 2: Môžete rolovať nadol a vybrať požadovanú funkciu, ktorú chcete vykonať. Tu jednoducho napíšte „Kopírovať“, ako je to znázornené na obrázku nižšie:
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 stlačením klávesu F8.
Po vykonaní tejto funkcie kopírovania uvidíte, že v exceli je rozsah skopírovaný a okolo oblasti buniek sa objavujú bodkované čiary, ako je to znázornené nižšie:
Krok 4: Teraz musíme tieto bunky prilepiť, povedzme do susedných stĺpcov jeden po druhom, takže musíme použiť slučkovú funkciu „Pre“ a predpokladajme, že je potrebné vložiť 5-krát, takže ju napíšeme tak, ako je to zobrazené nižšie:
Pre celé číslo i = 1 až 5 -> to určuje, koľkokrát je potrebné vložiť údaje. Ak je 5, potom 1 až 5, podľa toho, o koľko chcete.
kód:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select Rnst.Copy Pre i = 1 až 5 End Sub
Krok 5: Vyberte bunku, do ktorej chcete tento rozsah buniek prilepiť. Predpokladajme, že chceme začať vkladať zo stĺpca B2 a potom vkladať údaje by mali byť dynamické, tj mali by automaticky vyberať susedné stĺpce jeden po druhom bez prekrývania. Syntax by preto bola „bunka (číslo riadku, číslo stĺpca) .PasteSpecial“.
Bunky (2, i + 1). Vložiť špeciálne, tu 2-> predstavuje číslo riadku a i + 1 -> predstavuje číslo stĺpca. i + 1 znamená, že prvá hodnota deklarovaná v slučke „For“ je i = 1, preto sa hodnota stĺpca stane 2, určuje, že sa začne vkladať zo stĺpca B. A keď sa hodnota i zvýši, bude naďalej vyberať susedné stĺpce. jeden za druhým.
kód:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select Rnst.Copy pre i = 1 až 5 buniek (2, i + 1) .PasteSpecial xlValues End Sub Sub
Krok 6: Napíšte „ Next i “, čo znamená, že postupne zvyšujete hodnotu „i“, takže vkladanie stĺpcov zostane dynamické.
kód:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select Rnst.Copy pre i = 1 až 5 buniek (2, i + 1) .PasteSpeciálne xlValues Next i End Sub
Krok 7: Stlačením klávesu „F8“ zobrazíte riadok po riadku, ktorý vykoná kód, a po jednom vám ukážu vloženie bunky do susedných stĺpcov.
Tu vidíte hodnotu i je 1 a údaje sa vložili do stĺpca B podľa potreby.
Krok 8: Teraz, keď znova stlačíte „F8“, uvidíte, že teraz je hodnota i 2. Z tohto dôvodu sa 2 + 1 stane 3 a údaje sa vložia do bunky (2, 3), tj hodnota riadku je rovnaká, ale stĺpec počet zmien, ako ukazuje obrázok nižšie:
Po dokončení opakovania slučky sa zobrazia údaje vložené 5-krát, tj od počtu 1 do 5, ktoré sa začínajú vkladať zo stĺpca B do stĺpca F, ako je uvedené nižšie:
Sada Excel VBA - Príklad č. 3
Predpokladajme, že by sme chceli zobraziť počet buniek v tomto rozsahu v okne správy, ktoré sa objaví po kliknutí na tlačidlo. Zoberieme rovnaké údaje, ako je uvedené nižšie.
Tento nový príklad spustíme aj v novom hárku. Preto pridajte nový hárok a v okne VBA sa zobrazí takto:
Budeme musieť vložiť voľbu príkazového tlačidla. Je to vynikajúca funkcia, postupujte takto:
Krok 1: Zadajte názov podmnožiny „Setcount ()“, ako je to znázornené na obrázku nižšie:
kód:
Sub Setcount () End Sub
Krok 2: Vyhláste tú istú premennú „Rnct“ ako rozsah v podmnožine, ako je to zobrazené na obrázku nižšie:
kód:
Sub Setcount () Dim Rnct As Range End Sub
Krok 3: Potom zadajte kľúčové slovo „Nastaviť“ a zadajte rozsah.
kód:
Sub Setcount () Dim Rnct As Range Set Rnct = Range ("A2: A11") End Sub
Krok 4: Po určení rozsahu musíme teraz zobraziť vyskakovacie okno alebo dialógové okno, ktoré ukazuje počet buniek v rozsahu. Preto použite funkciu „MsgBox“, ktorá sa po vykonaní zobrazí v dialógovom okne. Zadajte „premenná MsgBox name.count“. Hneď po zadaní názvu premennej a potom bodky (.) Sa objaví rozbaľovacia ponuka obsahujúca rôzne funkcie a my vyberieme „count“ alebo ručne napíšeme „count“.
Zadajte „MsgBox Rnct.count“ a po vykonaní sa zobrazí počet.
Krok 5: Teraz chceme vložiť príkazové tlačidlo a po kliknutí na toto tlačidlo by sa malo zobraziť okno správy.
Kliknite na „Vložiť“ na karte „Vývojár“, ako je to zvýraznené v červenom poli a uvidíte rozbaľovaciu ponuku kategórie „Ovládanie formulárov“. Kliknite na prvý obdĺžnikový obdĺžnikový tvar, ktorý budeme musieť ručne nakresliť a vložiť do Excelu:
Krok 6: Po kliknutí na obdĺžnikový rámček nakreslite a vložte rámček do hárku a hneď ako začnete kresliť, zobrazí sa dialógové okno, ako je znázornené nižšie. Je to tlačidlo v okne „Priradiť makro“ a vyberte makro podmnožiny „Nastavený počet“. Kliknite na „OK“.
To znamená, že tomuto tlačidlu sme priradili makro počtu. A po kliknutí sa spustí.
Krok 7: Vyzerá to, ako je uvedené nižšie v Exceli.
Krok 8: Kliknite naň pravým tlačidlom myši a premenujte ho pomocou možnosti „ Upraviť text “, ako je to znázornené nižšie:
Krok 9: Pomenujte ho ako „COUNT“ a uvidíte, že je vynikajúci, ako je to uvedené nižšie.
Krok 10: Potom kliknite na tlačidlo „COUNT“: Po kliknutí na tlačidlo „COUNT“ sa zobrazí okno s hlásením, ako je uvedené nižšie:
Ako vidíme, existuje 10 mien a ukázali správne číslo z rozsahu A2 do A11.
Čo je potrebné pamätať
- Uistite sa, že máte na kartách programu Excel vloženú kartu „Vývojár“ na spustenie týchto kódov VBA.
- „Sada“ sa väčšinou používa na pracovné hárky / rozsah buniek v konkrétnom hárku.
Odporúčané články
Toto je príručka pre sadu VBA. Tu diskutujeme o tom, ako priradiť odkaz na rozsah objektov alebo buniek pomocou vynikajúcich kľúčových slov VBA spolu s praktickými príkladmi a šablónou Excel na stiahnutie. Nižšie uvádzame niekoľko užitočných vynikajúcich článkov týkajúcich sa VBA -
- Zlučovacia funkcia VBA
- Výukové programy o súboroch ikon programu Excel
- Práca s Range Cells vo VBA
- Riešenie rovnice v Exceli