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“ šablonas1 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ą.