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

Turinys

Baigti funkciją VBA

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, o VBA nesiskiria. Turite būti matę šį žodį „ Pabaiga “ visuose VBA koduose. Mes galime baigti „End Sub“, „End Function“, „End If“. Tai yra įprasta, nes ž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, naudojame „Excel“ spartųjį klavišą „ Ctrl“ + rodyklė dešinėn, ir jis nukels mus į paskutinį panaudotą 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“ + rodyklę kairėn. Norėdami pereiti iš apačios į viršų, paspauskite „ Ctrl“ + rodyklę aukštyn.

Panašų dalyką galima padaryti ir VBA, bet ne naudojant „ Ctrl“ klavišą. Veikiau turime vartoti žodį „Pabaiga“.

„Excel VBA“ pabaigos funkcijos pavyzdžiai

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 diapazonas.

Kodas:

Pabaigos_pavyzdys1 () diapazonas („A1“) Pabaigos potikslis

Į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, galime 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 naudos langelį A1, kad paskutiniai langeliai būtų naudojami 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_Eample1 () diapazonas ("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_Eample1 () diapazonas ("D1"). End (xlToLeft). Pasirinkite End Sub

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

Now we will see how to select the ranges by using the “End” property.

Example #2 - Selection Using End Property

We need to End the property to select the range of cells in the worksheet. For this example, consider the below data.

Select A1 to Last Used Cell

To select the cells from A1 to the last used cell horizontally, first, mention the cell A1 in Range object.

Code:

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

For the second argument, open one more Range object and mention the cell as A1 only.

Code:

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

Close only one bracket and put a dot to select the Excel VBA End property.

Code:

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

Now select xlToRight and close two brackets.

Code:

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

Now chose the “Select” method.

Code:

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

Ok, we are done.

Run this code to see the impact.

As you can see, it has selected the range A1 to D1.

Similarly, to select downwards, use the below code.

Code:

Sub End_Example2() Range("A1", Range("A1").End(xlDown)).Select 'To select from left to right End Sub

Code:

Sub End_Example2() Range("A1", Range("A1").End(xlDown)).Select 'To select from top to down End Sub

Code:

Sub End_Example2() Range("D1", Range("D1").End(xlToLeft)).Select 'To select from right to left End Sub

Code:

Sub End_Example2() Range("A5", Range("A5").End(xlUp)).Select 'To select from bottom to up End Sub

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.