Excel VBA set
"Set", je ključna riječ koja se koristi u programiranju VBA za dodjelu reference na objekt ili raspon ćelija koji će i dalje ostati popravljeni u programu ili kodu u Excelu. VBA set u osnovi nam pomaže u izbjegavanju ponavljanja unosa raspona koji trebamo odabrati tijekom izvršavanja koda. Izvrsno, "Set" se uglavnom primjenjuje na radnim listovima / rasponima ćelija na određenom listu.
Sintaksa:
Postavite ime objekta / varijablu = Objekt / domet
Napomena: na radnom listu Excela morate imati karticu za razvojne programere.Ako ne vidite karticu "Developer" u excelu, pogledajte korake u nastavku:
Korak 1: Kliknite na mogućnost datoteke .
2. korak: Pojavi se padajući izbornik, kliknite karticu Opcije .
Korak 3: Jednom kada kliknete na "Opcije", pojavit će se dijaloški okvir kao što je prikazano u nastavku i kliknite na opciju Prilagodi vrpcu .
Korak 4: Kad povučemo prema opcijama vrpce za prilagodbu pronaći ćemo opciju za Developer, moramo potvrditi taj okvir koji će nam omogućiti upotrebu VBA u excelu.
Kako koristiti skupnu ključnu riječ u VBA?
Ispod su sljedeći primjeri za korištenje ključne riječi set u Excelu VBA.
Ovdje možete preuzeti ovaj VBA set Excel predložak - VBA Set Excel predložakExcel VBA set - Primjer # 1
Uzet ćemo jednostavan primjer ključne riječi Set u Excelu VBA. Pretpostavimo da želimo odabrati raspon i postaviti ga kao fix range kako ne bi došlo do ponavljanja. Ispod je raspon ćelija koji sadrži imena:
Slijedite dolje navedene korake za korištenje ključne riječi u Excelu VBA:
Korak 1: Kliknite karticu "Programer", a zatim kliknite lijevu opciju "Visual Basic" s lijeve strane (prva opcija) kao što je prikazano u nastavku.
Nakon što kliknete na njega, pojavljuje se novi prozor kao što je prikazano u nastavku:
Primijetit ćete da na lijevoj strani sadrži dvije kartice, "Sheet1 (Sheet1)" i "ThisWorkbook". Jedina razlika je „Sheet1“ kada želite izvršiti kod samo za taj list, a u „ThisWorkbook“ možemo napisati kôd i izvršiti koji se mogu primijeniti na čitavu excel radnu knjigu.
Korak 2: Dvaput kliknite na "Sheet1 (Sheet1)" i vidjet ćete prazan ekran gdje moramo napisati kôd. Prvo deklarirajte podskupinu kao Ime i pritisnite Enter i vidjet ćete podskup kako je prikazano u nastavku:
Kodirati:
Sub setexmp () Kraj Sub
Na ovaj način stvaramo podskup i automatski se pojavljuje "Kraj pod". Ovo je zadana značajka excela. Ako se ne prikaže kraj završetka, kôd se neće pokrenuti i otvoriti pogrešku.
Korak 3: Sada ćemo proglasiti varijable koje će se koristiti u kodu.
Unesite naziv varijable Dim i vrstu varijable. Ovdje će ime biti kao identitet raspona i vrsta bi bila kao Integer, Long, String, Range itd.
Kodirati:
Sub setexmp () Dim Rnst As Range End Sub
Ovdje je "Rnst" naziv varijable i dodijelite je (As) funkciji raspona. To će upozoriti sustav da će se izvršiti izbor raspona.
Korak 4: Zatim upišite ključnu riječ "Postavi" i navedite raspon koristeći format: Postavi varijablu = Raspon ("raspon ćelija") .
Kodirati:
Pod setexmp () Dim Rnst kao raspon raspona Rnst = raspon ("A2: A11") Kraj Pot
Korak 5: Moramo odabrati navedeni specificirani raspon. Dakle, unesite odaberite kao Rnst.Select screen pogledajte ispod:
Kodirati:
Pod setexmp () Dim Rnst kao raspon raspona Rnst = raspon ("A2: A11") Rnst.Izberite kraj Sub
Korak 6: Pokrenite kod pritiskom na tipku F5 ili Run i pogledajte izlaz.
Odabrat će specificirani raspon koji je od ćelija A2 do A11.
Excel VBA set - primjer br. 2
Pretpostavimo da želimo zalijepiti te ćelije ili raspon u drugu ćeliju. Upotrijebit ćemo isti kod kao i gore te dodati kôd za lijepljenje tih podataka u više stupaca.
Slijedite dolje navedene korake:
Korak 1: Sada ćemo kopirati raspon ćelija što je naziv stupac. Kad upišete "Rnst." Otkucajte kopiju, tj. "Rnst.Copy", pojavljuje se vrsta padajućeg izbornika. Sadrži različite funkcije poput kopiranja, lijepljenja itd.
Korak 2: Možete se pomaknuti prema dolje i odabrati željenu funkciju koju želite izvršiti. Ovdje samo upišite "Kopiraj" kao što je prikazano na slici ispod:
Kodirati:
Pod setexmp () Dim Rnst kao raspon raspona Rnst = raspon ("A2: A11") Rnst.Izberite Rnst.Kopiraj kraj Sub
Korak 3: Sastavite kôd pritiskom na tipku F8.
Jednom kada izvršite ovu funkciju kopiranja, vidjet ćete da se u excelu raspon kopira, a oko točke ćelije pojavljuju se isprekidane linije kao što je prikazano u nastavku:
Korak 4: Sada moramo zalijepiti ove ćelije, recimo u susjedne stupce, jednu po jednu, tako da trebamo upotrijebiti petlju "For" i pretpostaviti 5 puta da je trebamo zalijepiti, pa ćemo je upisati kao što je prikazano u nastavku:
Za Integer i = 1 do 5 -> ovo određuje koliko puta moramo zalijepiti podatke. Ako je 5, tada imate 1 do 5 koliko god želite.
Kodirati:
Pod setexmp () Dim Rnst kao raspon skupa Rnst = raspon ("A2: A11") Rnst.Izberite Rnst.Kopirajte za i = 1 do 5 Kraj Pod
Korak 5: Odaberite ćeliju u koju želite zalijepiti ovaj raspon ćelija. Pretpostavimo da želimo započeti lijepljenje iz stupca B2, a zatim lijepljenje podataka treba biti dinamično, tj. Automatski treba odabrati jedan po jedan susjedni stupac, bez preklapanja. Dakle, sintaksa bi bila "ćelija (broj retka, broj stupca) .PasteSpecial".
Stanice (2, i + 1) .PasteSpecial, Ovdje, 2-> predstavlja broj redaka, a i + 1 -> predstavlja broj stupca. i + 1 znači da je prva vrijednost koju sam deklarirao u petlji "For" i = 1, dakle vrijednost stupca će postati 2, ona određuje da započinje lijepljenje iz stupca B. I kako i kada se vrijednost poveća, nastavit će s odabirom susjednih stupaca jedan po jedan.
Kodirati:
Pod setexmp () Dim Rnst kao raspon skupa Rnst = raspon ("A2: A11") Rnst.Izberite Rnst.Kopirajte za i = 1 do 5 ćelija (2, i + 1) .PasteSpecial xlValues End Sub
Korak 6: Upišite " Sljedeće i " što znači da povećavate vrijednost "i" jedan po jedan tako da lijepljenje stupaca ostaje dinamično.
Kodirati:
Pod setexmp () Dim Rnst kao raspon skupa Rnst = raspon ("A2: A11") Rnst.Izberite Rnst.Kopiraj za i = 1 do 5 ćelija (2, i + 1) .PasteSpecial xlValues Next i End Sub
Korak 7: Pritisnite "F8" da biste vidjeli izvršenje koda red po red i prikazat će vam lijepljenje ćelije u susjedne stupce jednu po jednu.
Ovdje možete vidjeti vrijednost i je 1, a podaci su zalijepljeni u stupac B po želji.
Korak 8: Kad ponovo pritisnete "F8", vidjet ćete da je sada vrijednost i 2. Dakle, 2 + 1 će postati 3, a podaci će se zalijepiti u ćeliju (2, 3), tj. Vrijednost retka je ista, ali stupac promjene broja kao što je prikazano na slici ispod:
Nakon dovršetka ponavljanja petlje, vidjet ćete podatke zalijepljene 5 puta, tj. Od broja 1 do 5 koji počinju zalijepiti iz stupca B u kolonu F, kao što je prikazano u nastavku:
Excel VBA set - primjer # 3
Pretpostavimo da želimo prikazati broj stanica u tom rasponu u okviru s porukom koji se pojavljuje klikom na gumb. Uzet ćemo iste podatke kao što je prikazano u nastavku.
Također, u ovom listu ćemo prikazati kod ovog primjera. Stoga dodajte novi list i u prozoru VBA pojavit će se kao dolje:
Morat ćemo umetnuti opciju naredbenog gumba. To je značajka excela, pa slijedite dolje navedene korake:
Korak 1: Unesite naziv podskupine kako kaže "Setcount ()" kao što je prikazano na slici ispod:
Kodirati:
Podbroj sub () Kraj Sub
Korak 2: Izjavite istu varijablu "Rnct" kao raspon u podskupini kao što je prikazano na slici ispod:
Kodirati:
Podbroj () Dim Rnct kao raspon Kraj Sub
Korak 3: Zatim upišite ključnu riječ "Set" i dajte raspon.
Kodirati:
Podbroj () Dim Rnct kao raspon raspona Rnct = Raspon ("A2: A11") Kraj Pod
Korak 4: Nakon što popravimo raspon, moramo vidjeti skočni okvir ili dijaloški okvir koji prikazuje broj ćelija u rasponu. Stoga upotrijebite funkciju "MsgBox" koja će se nakon izvršenja računanja pojaviti u dijaloškom okviru. Upišite "MsgBox varijable name.count". Trenutak nakon upisivanja imena varijable, tada se pojavljuje padajuća točka (.) Koja sadrži razne funkcije, a mi bismo odabrali "count" ili ručno upisali "count".
Upišite "MsgBox Rnct.count" i nakon izvršenja, pojavit će se broj.
Korak 5: Sada želimo umetnuti naredbeni gumb i kada kliknemo, na tom gumbu taj okvir za poruke trebao bi se pojaviti.
Kliknite na "Umetanje" na kartici "Programer" kako je istaknuto u crvenom okviru i vidjet ćete padajući izbor kategorije "Kontrole obrasca". Kliknite na prvi oblik pravokutnika u obliku kutije koji ćemo morati ručno nacrtati i umetnuti u excel list:
Korak 6: Nakon klika na okvir pravokutnika, nacrtajte i umetnite okvir u list, a nakon što započnete crtanje pojavit će se dijaloški okvir kao što je prikazano u nastavku. To je gumb prozora "Dodijeli makronaredbu" i odaberite makronaredbu "podbroj". Kliknite na "OK".
To znači da smo ovom gumbu dodijelili makronaredbu brojača. A nakon klika će se izvršiti.
7. korak: Pojavit će se kao što je prikazano u nastavku.
Korak 8: Desnom tipkom miša kliknite na nju i preimenujte naziv pomoću " Uredi tekst " kao što je prikazano u nastavku:
Korak 9: Dodijelite mu ime "COUNT" i vidjet ćete ga u excelu kao što je prikazano u nastavku.
Korak 10: Zatim kliknite gumb "COUNT": Jednom kada pritisnete gumb "COUNT", pojavljuje se okvir s porukama kao što je prikazano u nastavku:
Kao što vidimo, postoji 10 imena i pokazali su točan broj od raspona A2 do A11.
Stvari koje treba zapamtiti
- Provjerite imate li karticu "Developer" umetnutu u vrpce Excela za pokretanje ovih VBA kodova.
- 'Set' se najčešće primjenjuje na radnim listovima / rasponu ćelija na određenom listu.
Preporučeni članci
Ovo je vodič za VBA set. Ovdje smo raspravljali o tome kako dodijeliti referencu na objekt ili raspon ćelija pomoću excel VBA skupa ključna riječ, zajedno s praktičnim primjerima i preuzeti excel predložak. Ispod je nekoliko korisnih excel članaka vezanih uz VBA -
- VBA funkcije spajanja
- Vodiči za setove programa Excel
- Rad sa dometnim ćelijama u VBA
- Riješite jednadžbu u Excelu