Excel VBA kopas paziņojums
VBA kopa ir paziņojums, ko izmanto, lai piešķirtu jebkuru vērtības atslēgu, kurā teikts, ka objekts vai atsauce uz mainīgo. Mēs izmantojam šo funkciju, lai definētu parametru noteiktam mainīgajam, piemēram, ja mēs rakstām kopu M = A, kas tagad nozīmē M atsaucei ir tādas pašas vērtības un atribūti, kas ir līdzīgi A
VBA objekts ir Excel pamats, jo bez objektiem mēs neko nevaram izdarīt. Objekti ir darbgrāmata, darblapa un diapazons. Deklarējot mainīgo, mums tam jāpiešķir datu tips, kā arī objektus varam piešķirt kā datu tipus. Lai piešķirtu vērtību deklarētajiem objekta mainīgajiem, mums jāizmanto vārds “SET”. Vārds “Set”, ko izmanto, lai apzīmētu jaunu objektu VBA, piemēram, atsaucoties uz konkrētās darblapas konkrēto diapazonu.
Kā izmantot Excel VBA kopas paziņojumu?
# 1 - iestatiet paziņojumu ar diapazona objekta mainīgajiem
Piemēram, pieņemsim, ka vēlaties diezgan bieži izmantot diapazonu no A1 līdz D5. Tā vietā, lai katru reizi uzrakstītu kodu kā diapazonu (“A1: D5”), mēs varam deklarēt mainīgo kā diapazonu un iestatīt diapazona atsauci kā diapazonu (“A1: D5”)
1. darbība: paziņojiet mainīgo kā objektu Range.
Kods:
Apakšgrupa_piemērs ()
Dim MyRange As Range
Beigu apakšnodaļa
2. solis: brīdī, kad datu tipam piešķiram diapazonu, izmantojiet vārdu “Iestatīt”.
Kods:
Apakšgrupa_Example () Dim MyRange As Range Set MyRange = Beigt apakškopu
3. solis: tagad miniet diapazonu.
Kods:
Apakšgrupa_piemērs () Dim MyRange As Range Set MyRange = Range ("A1: D5") Beigas Sub
4. solis: Tagad mainīgais “MyRange” ir vienāds ar diapazonu no A1 līdz D5. Izmantojot šo mainīgo, mēs varam piekļūt visām šī diapazona īpašībām un metodēm.
Mēs varam kopēt, pievienot komentāru programmā Excel un darīt daudzas citas lietas.
Piemēram, mērķis, es šeit esmu izveidojis dažus skaitļus.
Tagad, izmantojot mainīgo, es mainīšu fonta lielumu uz 12.
Kods:
Apakšgrupa_piemērs () Dim MyRange As Range Set MyRange = Range ("A1: D5") MyRange.Font.Size = 12 End Sub
Tas mainīs piešķirtā diapazona fonta lielumu.
Šādi mēs varam darīt daudzas lietas ar noteiktu diapazonu, izmantojot vārdu “Iestatīt”.
# 2 - iestatiet paziņojumu ar darblapas objekta mainīgajiem
Mēs esam redzējuši, kā “set” darbojas ar diapazona objektu VBA. Tas darbojas tieši tāpat kā darblapas objekts.
Pieņemsim, ka jūsu darbgrāmatā ir 5 darblapas, un jūs vēlaties turpināt atgriezties pie vienas konkrētās darblapas. Darblapas nosaukumu var iestatīt kā definēto objekta mainīgo.
Piemēram, apskatiet zemāk redzamo kodu.
Kods:
Apakšgrupas_darbnīcas_piemērs () Dim Ws kā darblapu kopa Ws = darblapas ("Kopsavilkuma lapa") Beigu apakšdaļa
Iepriekš minētajā kodā mainīgais “Ws”, kas definēts kā objekta mainīgais, un nākamajā rindā, izmantojot vārdu “Set”, mēs mainīgajam iestatām darblapu ar nosaukumu “Summary Sheet”.
Tagad, izmantojot šo mainīgo, mēs varam veikt visas ar to saistītās lietas. Apskatiet zemāk redzamos divus kodu komplektus.
# 1 - bez vārda “Set”
Kods:
Apakšgrupa_darbnīcas_piemērs1 () 'Lai atlasītu lapu darblapas ("Kopsavilkuma lapa"). Atlasiet "Lai aktivizētu lapu darblapas (" Kopsavilkuma lapa "). Aktivizējiet" Lai paslēptu lapu Darblapas ("Kopsavilkuma lapa"). Visible = xlVeryHidden' To paslēpt lapu Darblapas ("Kopsavilkuma lapa"). Visible = xlVisible End Sub
Katru reizi, kad es izmantoju darblapu objektu, lai atsauktos uz lapu “Kopsavilkuma lapa”, tas padara kodu tik ilgu un prasa daudz laika, lai to ierakstītu.
Milzīgā koda ietvaros ir nepatīkami katru reizi ievadīt darblapas nosaukumu, kad jums ir jānorāda darblapa.
Tagad ieskatieties vārda Set in Code izmantošanas priekšrocībās.
# 2 - ar vārdu “Iestatīt”
Kods:
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:
Apakšgrupa_darbnīcas_piemērs1 () Dim Wb1 kā darbgrāmata Dim Wb2 kā darbgrāmatu kopa Wb1 = Darbgrāmatas ("Pārdošanas kopsavilkuma fails 2018.xlsx") Kopa Wb2 = Darbgrāmatas ("Pārdošanas kopsavilkuma fails 2019.xlsx") Beigu apakšdaļa
Tagad mainīgais Wb1 ir vienāds ar darbgrāmatu ar nosaukumu “Sales Summary File 2018.xlsx”, un mainīgais Wb2 ir vienāds ar darbgrāmatu ar nosaukumu “Sales Summary File 2019.xlsx”.
Izmantojot šo mainīgo, mēs faktiski varam piekļūt visām īpašībām un metodēm, kas saistītas ar darbgrāmatu.
Mēs varam saīsināt kodu, piemēram, zemāk.
Nelietojot Set Key, lai aktivizētu darbgrāmatu:
Darbgrāmatas ("Pārdošanas kopsavilkuma fails 2018.xlsx"). Aktivizējiet
Izmantojot atslēgvārda iestatīšanu, lai aktivizētu darbgrāmatu:
Wb1. Aktivizēt
Tas atvieglo koda partijas rakstīšanu, un, kad ir iestatīts darbgrāmatas nosaukums, jāuztraucas par darbgrāmatas nosaukumu kļūdām.
