Exceli VBA komplekt

„Set” on märksõna, mida kasutatakse VBA programmeerimisel objektile või lahtrivahemikule viite määramiseks, mis jääb kogu programmi või Exceli koodi korral fikseerituks. VBA komplekt aitab meil põhimõtteliselt vältida korduvat sisestust vahemikku, mille peame koodi täitmisel valima. Suuremas osas rakendatakse “Komplekti” enamasti konkreetse lehe töölehtedel / lahtrite vahemikus.

Süntaks:

Määra objekti nimi / muutuja = Objekt / vahemik

Märkus . Exceli töölehel peab olema vahekaart Arendaja.

Kui te ei näe Excelis vahekaarti Arendaja, vaadake järgmisi samme:

1. samm: klõpsake faili suvandil.

2. samm: ilmub rippmenüü, klõpsake vahekaarti Valikud .

3. samm: kui olete klõpsanud valikul „Suvandid”, ilmub allpool näidatud dialoogiboks ja klõpsake suvandil Kohanda linti .

4. samm: kui lohistame kohandatud lindivalikud alla, leiame arendaja jaoks valiku, peame märkima selle ruudu, mis võimaldab meil VBA-d Excelis kasutada.

Kuidas kasutada komplekti märksõna VBA-s?

Allpool on toodud erinevad näited komplekti märksõna kasutamiseks Excelis VBA.

Selle VBA komplekti Exceli malli saate alla laadida siit - VBA komplekti Exceli mall

Exceli VBA komplekt - näide nr 1

Võtame lihtsa näite märksõna komplektist rakenduses Excel VBA. Oletame, et tahaksime valida vahemiku ja seada see fikseeritud vahemikuks, et vältida kordumist. Allpool on lahtrid, mis sisaldavad nimesid:

Määratud märksõna kasutamiseks rakenduses Excel VBA toimige järgmiselt.

1. samm: klõpsake vahekaarti Arendaja ja seejärel klõpsake vasakpoolsel küljel suvandit „Visual Basic” (esimene võimalus), nagu allpool näidatud.

Kui olete sellel klõpsanud, ilmub uus aken, nagu allpool näidatud:

Võite märgata, et see sisaldab vasakpoolsel küljel kahte vahekaarti: „Sheet1 (Sheet1)” ja „ThisWorkbook”. Ainus erinevus on “Sheet1”, kui soovite käivitada koodi ainult selle konkreetse lehe jaoks ja “ThisWorkbook” saame kirjutada koodi ja käivitada selle, mida saab rakendada kogu exceli töövihiku jaoks.

2. samm: tehke topeltklõps lehel Sheet1 (Sheet1) ja näete tühja ekraani, kuhu peame koodi kirjutama. Esiteks kuulutage alamhulk alamnimeks ja vajutage sisestusklahvi ning näete allpool näidatud alamhulka:

Kood:

 Sub setexmp () End Sub

Nii loome alamhulga ja automaatselt kuvatakse „End Sub“. See on Exceli vaikimisi funktsioon. Kui “End Sub” ei ilmu, siis kood ei käivitu ja viskab vea.

3. samm: nüüd kuulutame koodis kasutatavad muutujad.

Tüüp Dim muutuja nimi ja muutuja tüüp. Nimi sarnaneb vahemiku identsusega ja tüübiga, kas täisarv, pikk, string, vahemik jne.

Kood:

 Sub setexmp () Dim Rnst As Range End Sub

Siin on “Rnst” muutuja nimi ja määrake (As) see vahemiku funktsiooniks. See annab süsteemile märku, et vahemik valitakse.

4. samm. Seejärel tippige märksõna „Set” ja määrake vahemik järgmises vormingus: Määra muutuja = Range („cell range”) .

Kood:

 Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") End Sub

5. samm: peame valima selle määratud reavahemiku. Tippige siis vali Rnst. Valige allpool viide ekraanipildile:

Kood:

 Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Vali lõpp Sub

6. samm: käivitage kood, vajutades nuppu F5 või nuppu Käivita, ja vaadake väljundit.

See valib täpsustatud vahemiku lahtritest A2 kuni A11.

Exceli VBA komplekt - näide nr 2

Oletame, et tahame need lahtrid kleepida või vahemikku teise lahtrisse lisada. Kasutame sama koodi nagu ülalpool ja lisame koodi andmete kleepimiseks mitmesse veergu.

Järgige järgmisi samme:

1. samm: kopeerime nüüd lahtrite vahemiku, mis on nime veerg. Tippige koopia, st “Rnst.Copy”, kui kirjutate “Rnst.”, Kuvatakse selline rippmenüü. See sisaldab mitmesuguseid funktsioone, nagu kopeerimine, kleepimine jne.

2. samm. Saate kerida allapoole ja valida soovitud funktsiooni. Tippige siia lihtsalt “Kopeeri” nagu näidatud alloleval ekraanipildil:

Kood:

 Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select Rnst.Copy End Sub

3. samm: koostage kood, vajutades klahvi F8.

Kui olete selle kopeerimisfunktsiooni käivitanud, näete, et üldiselt kopeeritakse vahemik ja lahtrite ümber kuvatakse punktiirjooned nagu allpool näidatud:

4. samm: nüüd peame selle lahtri kleepima, näiteks külgnevatesse veergudesse ükshaaval, nii et peame kasutama silmusfunktsiooni “For” ja oletame, et peame kleepima viis korda, nii et kirjutame selle järgmiselt:

Täisarvu i korral = 1 kuni 5 -> see täpsustab, mitu korda peame andmeid kleepima. Kui 5, siis 1 kuni 5 muud, olenevalt sellest, kumb arv teile parem on.

Kood:

 Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select Rnst.Copy for i = 1-5 End Sub

5. samm: valige lahter, kuhu soovite selle lahtrivahemiku kleepida. Oletame, et tahame kleepimist alustada veerust B2 ja siis peaks andmete kleepimine olema dünaamiline, st see peaks automaatselt valima külgnevad veerud ükshaaval ilma kattumiseta. Seega oleks süntaksiks „lahter (rea number, veeru number) .PasteSpecial”.

Lahtrid (2, i + 1) .PasteSpecial, siin tähistab 2-> rea numbrit ja i + 1 -> tähistab veeru numbrit. i + 1 tähendab, et silmuse “For” jaoks deklareeritud I esimene väärtus on i = 1, seega saab veeru väärtus 2, see täpsustab, et see hakkab kleepima veerust B. Ja kui i väärtus suureneb, valib ta külgnevad veerud ükshaaval.

Kood:

 Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Vali Rnst.Copy jaoks i = 1 kuni 5 lahtrit (2, i + 1) .PasteSpecial xlValues ​​End Sub

6. samm: tippige „ Next i ”, mis tähendab, et suurendate „i” väärtust ükshaaval, nii et veeru kleepimine jääks dünaamiliseks.

Kood:

 Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Vali Rnst.Copy jaoks i = 1 kuni 5 lahtrit (2, i + 1) .PasteSpecial xlValues ​​Next i End Sub

7. samm. Vajutage klahvi „F8“, et näha koodi realiseerimist ridade kaupa ja kuvatakse ükshaaval lahtri kleepimine külgnevatesse veergudesse.

Siin näete, et i väärtus on 1 ja andmed on kleebitud veergu B vastavalt soovile.

8. samm: Kui vajutate uuesti klahvi „F8“, näete, et nüüd on i väärtus 2. Seega saab 2 + 1 3 ja andmed kleebitakse lahtrisse (2, 3), st rea väärtus on sama, kuid veerg arvu muutused, nagu on näidatud alloleval ekraanipildil:

Kui silmuse kordamine on lõpule viidud, näete andmeid 5 korda kleebitud, st alates loenditest 1-5, alates kleebimisest veerust B kuni veeruni F, nagu näidatud allpool:

Exceli VBA komplekt - näide nr 3

Oletame, et me tahaksime ühe klõpsuga kuvatavas teadete lahtris näidata selle vahemiku lahtrite arvu. Võtame samad andmed, nagu allpool näidatud.

Samuti käivitame selle näite koodi uuel lehel. Seetõttu lisage uus leht ja VBA aknas ilmub see järgmiselt:

Peame sisestama käsunupu valiku. See on exceli funktsioon, seega toimige järgmiselt.

1. samm: sisestage alamhulga nimi, näiteks „Setcount ()”, nagu on näidatud alloleval ekraanipildil:

Kood:

 Alammäära arv () Lõpeta alamhulk

2. samm: kuulutage sama muutuja “Rnct” kui vahemik alamhulgas, nagu on näidatud alloleval ekraanipildil:

Kood:

 Sub Setcount () Dim Rnct As Range End Sub

3. samm. Seejärel tippige märksõna „Set” ja määrake vahemik.

Kood:

 Alamhulk () hämar Rnct kui vahemik seatud Rnct = vahemik ("A2: A11") lõpp alam

4. samm: pärast vahemiku kinnitamist peame nägema hüpikakent või dialoogiboksi, mis näitab vahemikus olevate rakkude arvu. Seetõttu kasutage funktsiooni „MsgBox”, mille täitmisel ilmub dialoogiboksi loendur. Tippige “MsgBox muutuja name.count”. Pärast muutuja nime sisestamist ilmub punkt (.) Ja rippmenüü, mis sisaldab erinevaid funktsioone, valime “loendama” või kirjutame käsitsi “loendama”.

Tippige “MsgBox Rnct.count” ja pärast täitmist ilmub see loendusena.

5. samm: nüüd tahame sisestada käsunupu ja klõpsates sellel nupul peaks ilmuma teade.

Klõpsake vahekaardi „Arendaja” nupul „Sisesta”, nagu punases kastis esile tõstetud, ja näete kategooria „Vormi juhtelemendid” rippmenüüd. Klõpsake kõige esimest ristkülikukujulist kuju, mille peame käsitsi joonistama ja Exceli lehele sisestama:

6. samm: klõpsates ristkülikukastil, joonistage ja sisestage kast lehele ja kui olete joonistama hakanud, ilmub dialoogiboks, nagu allpool näidatud. See on akna nupp „Määra makro” ja valige alamhulga makro „Määra arv”. Klõpsake nuppu „OK“.

See tähendab, et oleme sellele nupule määranud loendusmakro. Ja klõpsamisel see käivitub.

7. samm: see kuvatakse Excelis allpool näidatud viisil.

8. samm: paremklõpsake sellel ja nimetage see ümber, kasutades allpool näidatud suvandit „ Redigeeri teksti ”:

9. samm: andke sellele nimi kui „COUNT” ja näete seda Excelis loendatuna, nagu allpool näidatud.

10. samm: seejärel klõpsake nuppu “LOE”: Kui olete klõpsanud nupul “LOE”, kuvatakse allpool näidatud teadeteboks:

Nagu näeme, on 10 nime ja need on näidanud õiget arvu vahemikust A2 kuni A11.

Asjad, mida meeles pidada

  • Selle VBA-koodide käitamiseks veenduge, et teil oleks Exceli ribadesse sisestatud vahekaart „Arendaja”.
  • 'Komplekti' rakendatakse enamasti konkreetse lehe töölehtedel / lahtrite vahemikus.

Soovitatavad artiklid

See on VBA komplekti juhend. Siin arutatakse, kuidas määrata viide objektile või lahtrivahemikule, kasutades Exceli VBA komplekti märksõna koos praktiliste näidete ja allalaaditava excelimalliga. Allpool on mõned kasulikud exceli artiklid, mis on seotud VBA-ga -

  1. VBA liitunud funktsioon
  2. Juhendid Exceli ikoonikomplektide kohta
  3. Töötamine vahemiku lahtritega VBA-s
  4. Lahendage võrrand Excelis

Kategooria:

Exceli näpunäited