Výkaz sady Excel VBA
VBA Set je príkaz, ktorý sa používa na priradenie ľubovoľného hodnotového kľúča, ktorý hovorí o objekte alebo odkaz na premennú, pomocou tejto funkcie definujeme parameter pre určitú premennú, napríklad ak napíšeme Set M = A, čo znamená teraz M referencia má rovnaké hodnoty a atribúty podobné tým, ktoré má A.
Vo VBA je objekt jadrom programu Excel, pretože bez objektov nemôžeme nič robiť. Objekty sú zošit, pracovný hárok a rozsah. Keď deklarujeme premennú, musíme jej priradiť dátový typ a ako dátové typy môžeme priradiť aj objekty. Na priradenie hodnoty premenným deklarovaným objektom je potrebné použiť slovo „SET“. Slovo „Set“ sa používa na označenie nového objektu vo VBA, napríklad na označenie konkrétneho rozsahu konkrétneho pracovného hárka.
Ako používať vyhlásenie sady Excel VBA?
# 1 - Príkaz sady s premennými objektu rozsahu
Predpokladajme napríklad, že chcete pomerne často používať rozsahy A1 až D5. Namiesto toho, aby sme kód zakaždým zapisovali ako Range („A1: D5“), môžeme deklarovať premennú ako range a nastaviť odkaz na rozsah ako Range („A1: D5“).
Krok 1: Deklarujte premennú ako objekt Range.
Kód:
Podsúbor_príklad ()
Dim MyRange As Range
Koniec Sub
Krok 2: V okamihu, keď priradíme dátový typ ako rozsah, použite slovo „Nastaviť“.
Kód:
Sub Set_Example () Dim MyRange As Range Set MyRange = End Sub
Krok 3: Teraz uveďte rozsah.
Kód:
Sub Set_Example () Dim MyRange As Range Set MyRange = Range ("A1: D5") End Sub
Krok 4: Teraz sa premenná „MyRange“ rovná rozsahu A1 až D5. Pomocou tejto premennej môžeme získať prístup ku všetkým vlastnostiam a metódam tohto rozsahu.
Môžeme kopírovať, pridávať komentáre v programe Excel a robiť mnoho ďalších vecí.
Napríklad, účel, vytvoril som tu niekoľko čísel.
Teraz pomocou premennej zmením veľkosť písma na 12.
Kód:
Sub Set_Example () Dim MyRange As Range Set MyRange = Range ("A1: D5") MyRange.Font.Size = 12 End Sub
To zmení veľkosť písma priradeného rozsahu.
Takto môžeme pomocou slova „Nastaviť“ robiť veľa vecí s konkrétnym rozsahom.
# 2 - Príkaz set s premennými objektu listu
Videli sme, ako „sada“ pracuje s objektom rozsahu vo VBA. Funguje rovnako rovnako ako objekt pracovného hárka.
Povedzme, že máte v zošite 5 pracovných listov a chcete sa stále vracať k jednému konkrétnemu listu. Názov tohto pracovného hárka môžete nastaviť na premennú definovaného objektu.
Napríklad si pozrite nasledujúci kód.
Kód:
Podsúbor_pracovný list_ príklad () Dim Ws ako sada pracovných hárkov Ws = pracovné hárky ("súhrnný hárok") koncový podsekcia
Vo vyššie uvedenom kóde bola premenná „Ws“ definovaná ako objektová premenná a v ďalšom riadku pomocou slova „Set“ sme premennú nastavili na pracovný hárok s názvom „Summary Sheet“.
Teraz pomocou tejto premennej môžeme robiť všetky veci, ktoré sú s ňou spojené. Prezrite si nasledujúce dve sady kódov.
# 1 - Bez slova „Nastaviť“
Kód:
Podsúbor_Pracovný list_Example1 () 'Ak chcete vybrať pracovné hárky hárkov („súhrnný hárok“). Vyberte možnosť „Aktivovať hárkové hárky hárkov („ súhrnný hárok “). Aktivovať„ Ak chcete skryť pracovné hárky hárkov („súhrnný hárok“). Viditeľné = xlVeryHidden' To odkryje pracovné hárky listu („súhrnný list“). Viditeľné = xlVisible End Sub
Zakaždým, keď som pomocou objektu pracovných hárkov odkázal na hárok „Súhrnný hárok“, kód je tak zdĺhavý a jeho zadávanie si vyžaduje veľa času.
Ako súčasť veľkého kódu je frustrujúce zadávať tento názov pracovného hárka vždy, keď potrebujete na pracovný hárok odkazovať.
Teraz sa pozrite na výhody používania slova Nastaviť v kóde.
# 2 - S „Nastaveným“ slovom
Kód:
Sub Set_Worksheet_Example() Dim Ws As Worksheet Set Ws = Worksheets("Summary Sheet") 'To select the sheet Ws.Select 'To Activate the sheet Ws.Activate 'To hide the sheet Ws.Visible = xlVeryHidden 'To unhide the sheet Ws.Visible = xlVisible End Sub
The moment we set the worksheet name, we can see the variable name while entering the code as part of the list.
#3 - Set Statement with Workbook Object Variables
The real advantage of the word “Set” in VBA arises when we need to reference different workbooks.
When we work with different workbooks, it is so hard to type in the full name of the workbook, along with its file extension.
Assume you have two different workbooks named “Sales Summary File 2018.xlsx” and “Sales Summary File 2019.xlsx” we can set the two workbooks like the below code.
Code:
Sub Set_Workbook_Example1 () Dim Wb1 As Workbook Dim Wb2 As Workbook Set Wb1 = Workbooks ("Sales Summary File 2018.xlsx") Set Wb2 = Workbooks ("Sales Summary File 2019.xlsx") End Sub
Teraz sa premenná Wb1 rovná zošitu s názvom „Súhrnný prehľad predaja 2018.xlsx“ a premenná Wb2 sa rovná zošitu s názvom „Súhrnný súbor predaja 2019.xlsx“.
Pomocou tejto premennej môžeme skutočne získať prístup ku všetkým vlastnostiam a metódam spojeným so zošitom.
Kód môžeme skrátiť ako nižšie.
Bez použitia nastaveného kľúčového slova na aktiváciu zošita:
Zošity („Súhrnný prehľad predaja 2018.xlsx“). Aktivujte
Aktivácia zošita pomocou nastavenia kľúčového slova:
Wb1. Aktivovať
To výrazne uľahčuje písanie kódu a tiež, akonáhle je nastavený názov zošita, existuje obava z preklepu v názvoch zošita.
