VBA komplekta paziņojums | Kā piešķirt vērtības objektu mainīgajiem?

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 tam, kas ir 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, un objektus mēs varam piešķirt arī 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?

Šo VBA kopas izraksta veidni varat lejupielādēt šeit - VBA kopas izraksta veidne

# 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 rakstī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š

2. solis: brīdī, kad datu tipam piešķiram diapazonu, izmantojiet vārdu “Iestatīt”.

Kods:

 Apakšgrupa_piemērs () Dim MyRange As Range Set MyRange = Beigu apakšgrupa 

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, š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 vēlaties turpināt atgriezties pie vienas konkrētās darblapas, jūs varat iestatīt šīs darblapas nosaukumu definētajam objekta mainīgajam.

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” ir definēts kā objekta mainīgais, un nākamajā rindā, izmantojot vārdu “Set”, mainīgo iestatām uz 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 garu un prasa daudz laika, lai to ievadītu.

Milzīgā koda ietvaros ir nepatīkami katru reizi ierakstīt darblapas nosaukumu, kad jums ir jāatsaucas uz darblapu.

Tagad ieskatieties vārda Set in Code izmantošanas priekšrocībās.

# 2 - ar vārdu “Iestatīt”

Kods:

 Apakšgrupa_darbnīcas_piemērs () Dim Ws kā darblapu kopa Ws = darblapas ("Kopsavilkuma lapa") "Lai atlasītu lapu Ws. Atlasiet" Lai aktivizētu lapu Ws.Activate ", lai paslēptu lapu Ws.Visible = xlVeryHidden" Lai paslēptu lapu Ws .Visible = xlVisible End Sub 

Brīdī, kad mēs iestatām darblapas nosaukumu, mēs varam redzēt mainīgā nosaukumu, ievadot kodu kā daļu no saraksta.

# 3 - iestatiet paziņojumu ar darbgrāmatas objektu mainīgajiem

VBA vārda “Set” patiesā priekšrocība rodas, kad mums ir jāatsaucas uz dažādām darbgrāmatām.

Strādājot ar dažādām darbgrāmatām, ir tik grūti ierakstīt darbgrāmatas pilnu nosaukumu kopā ar faila paplašinājumu.

Pieņemsim, ka jums ir divas dažādas darbgrāmatas ar nosaukumu “Pārdošanas kopsavilkuma fails 2018.xlsx” un “Pārdošanas kopsavilkuma fails 2019.xlsx”. Mēs varam iestatīt divas darbgrāmatas kā zemāk redzamo kodu.

Kods:

 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 padara koda partijas ierakstīšanu vienkāršāku, kā arī pēc tam, kad ir iestatīts darbgrāmatas nosaukums, jāuztraucas par darbgrāmatas nosaukumu kļūdām.