Excel VBA Set
"Set" ("Set") je ključna beseda, ki se uporablja v programiranju VBA za dodelitev sklicevanja na predmet ali obseg celic, ki bo še naprej popravljen skozi celoten program ali kodo v Excelu. VBA Set nam v bistvu pomaga pri izogibanju ponavljajočemu vnosu obsega, ki ga moramo izbrati med izvajanjem kode. Izjemno je "Set" večinoma uporabljen na delovnih listih / območju celic na posameznem listu.
Sintaksa:
Nastavite ime predmeta / spremenljivko = Predmet / obseg
Opomba: na delovnem listu Excela morate imeti zavihek Developer.Če zavihek »Razvijalci« ne vidite v excelu, upoštevajte spodnja navodila:
1. korak: Kliknite na možnost datoteke .
2. korak: Pojavi se spustni meni, kliknite na zavihek Možnosti .
Korak 3: Ko kliknete »Možnosti«, se prikaže pogovorno okno, kot je prikazano spodaj in kliknite možnost Prilagodi trak .
4. korak: Ko povlečemo navzdol v možnostih prilagoditve traku, bomo našli možnost za Developer, moramo potrditi to polje, ki nam bo omogočilo uporabo VBA v excelu.
Kako uporabljati nastavljeno ključno besedo v VBA?
Spodaj so različni primeri uporabe ključne besede v Excelu VBA.
To predlogo VBA Set Excel lahko prenesete tukaj - VBA Set Excel TemplateExcel VBA Set - primer # 1
Vzemili bomo preprost primer ključne besede Set v Excelu VBA. Recimo, da želimo izbrati obseg in ga nastaviti kot obseg popravkov, da se izognemo ponovitvi. Spodaj je obseg celic, ki vsebuje imena:
Za uporabo ključne besede v Excelu VBA sledite spodnjim korakom:
1. korak: Kliknite na zavihek "Developer" in nato na levi strani (prva možnost), kot je prikazano spodaj, možnost "Visual Basic".
Ko kliknete nanjo, se prikaže novo okno, kot je prikazano spodaj:
Opazili boste, da vsebuje dva zavihka na levi strani, „Sheet1 (Sheet1)“ in „ThisWorkbook“. Edina razlika je "Sheet1", če želite izvršiti kodo samo za ta list in v "ThisWorkbook" lahko zapišemo kodo in izvedemo, ki jo lahko uporabimo za celoten excel delovni zvezek.
2. korak: Dvokliknite "Sheet1 (Sheet1)" in prikazal se bo prazen zaslon, kamor moramo napisati kodo. Najprej prijavite podmnožico kot Pod ime in pritisnite Enter in videli boste podmnožico, ustvarjeno, kot je prikazano spodaj:
Koda:
Pod setexmp () Konec Pod
Tako ustvarimo podskupino in samodejno se prikaže »End Sub«. To je privzeta funkcija excela. Če se ne prikaže »End Sub«, se koda ne izvrši in vrže napako.
Korak 3: Zdaj bomo razglasili spremenljivke, ki jih bomo uporabili v kodi.
Vnesite ime spremenljivke Dim in vrsto spremenljivke. Tukaj bo ime podobno identiteti obsega in vrsta bi bila tako kot Integer, Long, String, Range itd.
Koda:
Sub setexmp () Dim Rnst As Range End Pod
Tu je "Rnst" ime spremenljivke in ji dodelite (As) funkcijo Range. To bo sistem opozorilo, da bi bil izbran obseg.
4. korak: Nato vtipkajte ključno besedo »Nastavi« in podajte obseg v obliki: Nastavite spremenljivko = obseg (»obseg celice«) .
Koda:
Pod setexmp () Dim Rnst kot obseg nastavljen Rnst = obseg ("A2: A11") konec pod
5. korak: Izbrati moramo določeno območje vrstic. Zato spodaj vnesite kot Rnst.Select posnetek zaslona Refer:
Koda:
Pod setexmp () Dim Rnst As Set Range Rnst = obseg ("A2: A11") Rnst.Izberite konec Sub
6. korak: Zaženite kodo s pritiskom na tipko F5 ali Run in poglejte izhod.
Izbral bo določen obseg od celic od A2 do A11.
Excel VBA Set - primer # 2
Recimo, da želimo te celice ali območje prilepiti v drugo celico. Uporabili bomo isto kodo kot zgoraj in dodali kodo za lepljenje teh podatkov v več stolpcev.
Sledite spodnjim korakom:
1. korak: Zdaj bomo kopirali obseg celic, ki je stolpec z imenom. Ko vtipkate "Rnst.", Vnesite kopijo, tj. "Rnst.Copy", se prikaže vrsta spustnega menija. Vsebuje različne funkcije, kot so kopiranje, lepljenje itd.
2. korak: Lahko se pomaknete navzdol in izberete želeno funkcijo, ki jo želite izvesti. Tukaj samo vnesite "Kopiraj", kot je prikazano na spodnjem zaslonu:
Koda:
Pod setexmp () Dim Rnst As Set Range Rnst = obseg ("A2: A11") Rnst.Izberite Rnst.Copy End Sub
3. korak: S kodo F8 sestavite kodo.
Ko enkrat izvršite to funkcijo kopiranja, boste videli, da se obseg v odličnem primeru kopira in se okoli območja celice pojavijo pikčaste črte, kot je prikazano spodaj:
Korak 4: Zdaj moramo te celice, recimo v sosednje stolpce, prilepiti eno za drugo, zato moramo uporabiti zanko funkcijo "For" in predpostavimo, da jo moramo prilepiti 5-krat, da jo vtipkamo, kot je prikazano spodaj:
Za Integer i = 1 do 5 -> to določa, kolikokrat moramo prilepiti podatke. Če je 5, še 1 do 5, karkoli že štejete.
Koda:
Pod setexmp () Dim Rnst kot obseg nastavljen Rnst = obseg ("A2: A11") Rnst.Izberite Rnst.Copy za i = 1 do 5 konec pod
5. korak: Izberite celico, v katero želite prilepiti to območje celic. Recimo, da želimo začeti lepljenje iz stolpca B2 in nato lepljenje podatkov mora biti dinamično, tj. Samodejno izbere sosednje stolpce, enega za drugim, brez prekrivanja. Torej bi skladnja bila "Celica (številka vrstice, številka stolpca) .PasteSpecial".
Celice (2, i + 1) .PasteSpecial, Here, 2-> predstavlja številko vrstice in i + 1 -> predstavlja številko stolpca. i + 1 pomeni, da je prva vrednost, ki sem jo deklariral v zanki "For", i = 1, torej bo vrednost stolpca postala 2, določa, da začne prilepiti iz stolpca B. In ko in ko se vrednost poveča, bo še naprej izbirala sosednje stolpce drug za drugim.
Koda:
Pod setexmp () Dim Rnst As Set Range Rnst = obseg ("A2: A11") Rnst.Izberite Rnst.Copy za i = 1 do 5 celic (2, i + 1) .PasteSpecial xlValues End Sub
6. korak: Vnesite " Naprej i ", kar pomeni, da povečujete vrednost "i" eno za drugo, tako da lepljenje stolpcev ostane dinamično.
Koda:
Pod setexmp () Dim Rnst As Set Range Rnst = obseg ("A2: A11") Rnst.Izberite Rnst.Copy za i = 1 do 5 celic (2, i + 1) .PasteSpecial xlValues Next i End Sub
7. korak: Pritisnite "F8", da se prikaže izvajanje kode po vrstici in vam prikaže lepljenje celice v sosednje stolpce, enega za drugim.
Tu lahko vidite vrednost i je 1, podatki pa so bili vstavljeni v stolpec B po želji.
Korak 8: Ko spet pritisnete tipko "F8", boste videli, da je zdaj vrednost i 2. Torej, 2 + 1 postane 3 in podatki se prilepijo v celico (2, 3), tj. Vrednost vrstice je enaka, vendar stolpec spremembe števila, kot je prikazano na spodnjem posnetku zaslona:
Po končanem ponavljanju zanke boste videli podatke, prilepljene 5-krat, torej od števila 1 do 5, ki se začnejo prilepiti iz stolpca B v stolpec F, kot je prikazano spodaj:
Excel VBA Set - primer # 3
Recimo, da želimo prikazati število celic v tem razponu v polju s sporočilom, ki se pojavi s klikom gumba. Vzeli bomo enake podatke, kot so prikazani spodaj.
Prav tako bomo v tem listu zagnali kodo tega primera. Zato dodajte nov list in v oknu VBA bo prikazan kot spodaj:
Vstaviti bomo morali možnost ukaznega gumba. Ima funkcijo excela, zato sledite spodnjim korakom:
1. korak: Vnesite ime podskupine kot "Setcount ()", kot je prikazano na spodnjem posnetku:
Koda:
Sub Setcount () Konec Sub
2. korak: Izjavite enako spremenljivko »Rnct« kot obseg v podmnožju, kot je prikazano na spodnjem posnetku zaslona:
Koda:
Podštevilka () Dim Rnct as Range End Sub
Korak 3: Nato vtipkajte ključno besedo »Set« in podajte obseg.
Koda:
Podštevilka () Dim Rnct kot nastavljen obseg Rnct = obseg ("A2: A11") Konec pod
4. korak: Po določitvi obsega moramo videti pojavno okno ali pogovorno okno, ki prikazuje število celic v razponu. Zato uporabite funkcijo "MsgBox", ki se po izvedbi štetja pojavi v pogovornem oknu. Vnesite »ime spremenljivke MsgBox«. V trenutku, ko vtipkate ime spremenljivke, nato pika (.), Se prikaže spustni meni, ki vsebuje različne funkcije, in izbrali bi "count" ali ročno vtipkali "count".
Vtipkajte "MsgBox Rnct.count" in po izvedbi bo prikazano število.
5. korak: Zdaj želimo vstaviti ukazni gumb in na kliku na tem gumbu naj se prikaže polje s sporočilom.
Kliknite na "Vstavi" na zavihku "Razvijalci", kot je poudarjeno v rdečem polju, in videli boste spustni seznam kategorije "Nadzor obrazca". Kliknite prvo obliko pravokotnika v obliki polja, ki jo bomo morali ročno narisati in vstaviti v excel list:
6. korak: S klikom na polje pravokotnika narišite in vstavite polje v list in ko začnete risati, se prikaže pogovorno okno, kot je prikazano spodaj. To je gumb okna "Dodeli makro" in izberite makro podmnožja "Nastavi". Kliknite »V redu«.
To pomeni, da smo temu gumbu dodelili makro števca. In po kliku se bo izvedel.
7. korak: Pokaže se, kot je prikazano spodaj v excelu.
8. korak: Z desno miškino tipko kliknite nanjo in jo preimenujte z možnostjo » Uredi besedilo «, kot je prikazano spodaj:
9. korak: Dajte mu ime kot COUNT in videli ga boste v excelu kot število, kot je prikazano spodaj.
Korak 10: Nato kliknite gumb "COUNT": Ko kliknete gumb "COUNT", se prikaže okno s sporočili, kot je prikazano spodaj:
Kot lahko vidimo, da je 10 imen in so prikazali pravilno številko od razpona A2 do A11.
Stvari, ki jih je treba zapomniti
- Prepričajte se, da imate v zavihkih Excel vstavljen zavihek »Developer«, da zaženete te kode VBA.
- 'Set' se večinoma uporablja na delovnih listih / območju celic na posameznem listu.
Priporočeni članki
To je vodnik za VBA Set. Tukaj razpravljamo o tem, kako dodeliti sklicevanje na predmet ali obseg celic z uporabo ključne besede excel VBA Set skupaj s praktičnimi primeri in naložljivo predlogo excela. Spodaj je nekaj uporabnih excel člankov, povezanih z VBA -
- VBA povezava funkcija
- Vadnice za nastavitve ikone Excela
- Delo z dometnimi celicami v VBA
- Rešite enačbo v Excelu