VBA pabaigos funkcija | Galutinės nuosavybės naudojimas VBA (su pavyzdžiais)

Baigti funkciją VBA

Pabaiga yra VBA pareiškimas, turintis kelias formas VBA programose, paprastą pabaigos sakinį galima įdėti bet kurioje kodo vietoje ir jis automatiškai sustabdys kodo vykdymą. Pabaigos sakinys naudojamas daugelyje procedūrų, pavyzdžiui, norint užbaigti antrinę procedūrą arba užbaigti bet kokia ciklo funkcija, pvz., Pabaiga, jei.

Viskam yra pabaiga ir VBA nesiskiria. Turite būti matę šį žodį „ Pabaiga “ visuose VBA koduose. Mes galime baigti „End Sub“, „End Function“, „End If“. Tai yra įprasta, nes mes žinome, kad kiekviena pabaiga siūlo užbaigti procedūrą. Šiems „VBA End“ sakiniams nereikia jokio specialaus įvado, nes mes su juo esame susipažinę savo VBA kodavime.

Be aukščiau nurodyto „Pabaigos“, VBA turime vieną nuosavybę „Pabaiga“. Šiame straipsnyje mes apžvelgsime tą ypatybę ir kaip ją naudoti koduojant.

Galutinis turtas VBA

„Pabaiga“ yra nuosavybė, kurią naudojame VBA judėdami siūloma linkme. Tipiškas krypties pavyzdys yra judėjimas iš aktyvios langelio į paskutinį naudojamą langelį arba paskutinį įrašo langelį horizontaliai ir vertikaliai darbalapyje.

Pavyzdžiui, prisiminkime tai su darbalapiu. Pažvelkite į žemiau esantį vaizdą.

Šiuo metu esame A1 langelyje.

Jei norime pereiti prie paskutinio panaudoto langelio horizontaliai, mes naudojame „Excel“ spartųjį klavišą „ Ctrl“ + rodyklė dešinėn, tai nukels mus į paskutinį naudojamą langelį horizontaliai.

Panašiai, jei norime pereiti prie paskutinio panaudoto langelio žemyn arba vertikaliai, paspaudžiame spartųjį klavišą „ Ctrl“ + rodyklė žemyn.

Taigi norėdami pereiti iš kairės į dešinę, paspauskite „ Ctrl“ + kairę rodyklę, norėdami pereiti iš apačios į viršų - „ Ctrl“ + rodyklė aukštyn.

Panašų dalyką galima padaryti ir VBA, bet ne naudojant „ Ctrl“ klavišą, o mums reikia naudoti žodį „Pabaiga“.

„Excel VBA“ pabaigos funkcijos pavyzdžiai

Šį „VBA End Excel“ šabloną galite atsisiųsti čia - „VBA End Excel“ šablonas

1 pavyzdys - naudokite VBA pabaigos ypatybę norėdami perkelti į darbalapį

Pažvelkime, kaip naudoti „Excel VBA End“, kad galėtumėte judėti lape. Pirmiausia turime nuspręsti, kurią ląstelę turime perkelti. Gerai, tarkime, kad turime pereiti iš langelio A1, todėl nurodykite langelį naudodami objektą VBA Range.

Kodas:

 Pabaigos_pavyzdys1 () diapazonas („A1“) Pabaigos antrinis 

Įdėkite tašką (.), Kad pamatytumėte „IntelliSense“ sąrašą. Iš sąrašo pasirinkite „Baigti“ VBA ypatybę.

Kodas:

 Pabaigos_pavyzdys1 () diapazonas („A1“). Pabaigos pabaigos pogrupis 

Pasirinkus galutinę nuosavybę, atidaromos skliaustai.

Kodas:

 Pabaigos_pavyzdys1 () diapazonas („A1“). Pabaiga (pabaigos antrinis p 

Kai tik atidarysite skliaustus, galėsime pamatyti visas galimas ypatybes „Baigti“. Pasirinkite „xlToRight“, jei norite pereiti iš langelio A1 į paskutinį naudojamą langelį horizontaliai.

Kodas:

 Sub End_Eample1 () diapazonas ("A1"). End (xlToRight) End Sub 

Persikėlę į paskutinę langelį turime pasirinkti, ką turime daryti. Įdėkite tašką (.), Kad pamatytumėte „IntelliSense“ sąrašą.

Kodas:

Pabaigos_pavyzdys1 () diapazonas („A1“). Pabaiga (xlToRight). Pabaigos sub

„IntelliSense“ sąraše pasirinkite metodą „Pasirinkti“.

Kodas:

 Sub End_Eample1 () diapazonas ("A1"). End (xlToRight). Pasirinkite End Sub 

Tai bus naudojama nuo langelio A1 iki paskutinio panaudoto langelio horizontaliai.

Panašiai naudokite kitas tris parinktis, kad judėtumėte dešinėn, kairėn, žemyn, aukštyn.

Norėdami pereiti į dešinę iš langelio A1.

Kodas:

 Sub End_Eample1 () diapazonas ("A1"). End (xlToRight). Pasirinkite End Sub 

Norėdami judėti žemyn iš langelio A1.

Kodas:

 Sub End_Example1 () Range ("A1"). End (xlDown). Pasirinkite End Sub 

Norėdami judėti aukštyn iš A5 langelio.

Kodas:

 Sub End_Eample1 () Range ("A5"). End (xlUp). Pasirinkite End Sub 

Norėdami judėti kairėn iš D1 langelio.

Kodas:

 Sub End_Example1 () Range ("D1"). End (xlToLeft). Pasirinkite End Sub 

Visi aukščiau nurodyti kodai yra pavyzdžiai, kaip naudoti ypatybę „Pabaiga“ norint pereiti į darbalapį.

Dabar pamatysime, kaip pasirinkti diapazonus naudojant „End“ ypatybę.

2 pavyzdys - pasirinkimas naudojant galutinę nuosavybę

Turime užbaigti ypatybę, kad pasirinktume langelių diapazoną darbalapyje. Šiame pavyzdyje apsvarstykite toliau pateiktus duomenis.

Pasirinkite A1 iki paskutinio panaudoto langelio

Norėdami pasirinkti langelius nuo A1 iki paskutinio horizontaliai panaudoto langelio, pirmiausia paminėkite langelį A1 objekte Range.

Kodas:

 Sub End_Example2 () diapazonas ("A1", End Sub 

Antram argumentui atidarykite dar vieną Range objektą ir paminėkite langelį tik kaip A1.

Kodas:

 Pabaigos_pavyzdys2 () diapazonas („A1“, diapazonas („A1“) Pabaigos sub 

Uždarykite tik vieną skliaustą ir įdėkite tašką, kad pasirinktumėte ypatybę „Excel VBA End“.

Kodas:

 Sub End_Example2 () diapazonas ("A1", Range ("A1"). End (pabaigos sub 

Dabar pasirinkite „ xlToRight“ ir uždarykite du skliaustus.

Kodas:

 Sub End_Eample2 () Range ("A1", Range ("A1"). End (xlToRight)) Pabaiga Sub 

Dabar pasirinko „Pasirinkti“ metodą.

Kodas:

 Sub End_Example2 () Range ("A1", Range ("A1"). End (xlToRight)). Pasirinkite End Sub 

Gerai, mes baigėme.

Paleiskite šį kodą, kad pamatytumėte poveikį.

Kaip matote, jis pasirinko diapazoną nuo A1 iki D1.

Panašiai, jei norite pasirinkti žemyn, naudokite žemiau pateiktą kodą.

Kodas:

 Pabaigos_pavyzdys2 () diapazonas („A1“, diapazonas („A1“). Pabaiga (xlDown)). Pasirinkite „Norėdami pasirinkti iš kairės į dešinę Pabaigos antrinis 

Kodas:

 Pabaigos_pavyzdys2 () diapazonas („A1“, diapazonas („A1“). Pabaiga (xlDown)). Pasirinkite 'Norėdami pasirinkti iš viršaus į apačią Pabaiga Sub 

Kodas:

 Pabaigos_pavyzdys2 () diapazonas („D1“, diapazonas („D1“). Pabaiga (xlToLeft)). Pasirinkite 'Norėdami pasirinkti iš dešinės į kairę Pabaigos antrinis 

Kodas:

 Pabaigos_pavyzdys2 () diapazonas („A5“, diapazonas („A5“). Pabaiga (xlUp)). Pasirinkite „Norėdami pasirinkti iš apačios į viršų Pabaigos antrinis 

3 pavyzdys - pasirinkite iš dešinės į kairę, iš dešinės į apačią ir viršuje

Mes matėme, kaip pasirinkti horizontaliai ir vertikaliai. Norėdami pasirinkti tiek vertikaliai, tiek horizontaliai, turime naudoti dvi „End“ savybes. Norėdami pasirinkti duomenis nuo A1 iki D5, turime naudoti žemiau pateiktą kodą.

Kodas:

 Pabaigos_pavyzdys3 () diapazonas („A1“, diapazonas („A1“). Pabaiga (xlDown). Pabaiga (xlToRight)). Pasirinkite „Kam“ iš langelio A1, kad paskutinį kartą langelį naudotumėte žemyn ir dešinėn 

Tai pasirinks visą diapazoną, kaip nurodyta toliau.

Tokiu būdu mes galime naudoti VBA savybę „End“ funkcija, norėdami pasirinkti langelių diapazoną.


$config[zx-auto] not found$config[zx-overlay] not found