VBA lõpufunktsioon - Lõppomandi kasutamine VBA-s (koos näidetega)

Lang L: none (table-of-contents)

Funktsiooni lõpetamine VBA-s

Lõpp on VBA-s avaldus, millel on VBA-rakendustes mitu vormi, lihtsa lõpplause saab panna ükskõik kuhu koodi sisse ja see peatab koodi täitmise automaatselt, lõpplauset kasutatakse paljudes protseduurides, näiteks alamprotseduuri lõpetamiseks või lõpetamiseks mis tahes silmusfunktsioon nagu End if.

Kõigel on oma lõpp ja VBA-s pole see erinev. Olete vist näinud seda sõna „ Lõpp ” kõigis oma VBA koodides. Me võime lõpetada lõikudega „Lõpp-alam”, „Lõpeta funktsioon”, „Lõpeta kui”. Need on tavalised, kuna teame, et iga lõpp soovitab protseduuri lõpetada. Need VBA End avaldused ei vaja erilist tutvustamist, kuna oleme sellega oma VBA kodeeringus tuttavad.

Peale ülaltoodud lõpu on meil VBA-s üks vara „Lõpp”. Selles artiklis tutvustame teile seda omadust ja kuidas seda meie kodeerimisel kasutada.

Lõppomand VBA-s

"Lõpp" on vara, mida kasutame VBA-s soovitatud suunas liikumiseks. Tüüpiline suuna näide on liikumine töölehelt aktiivsest lahtrist viimati kasutatud lahtrisse või viimasele sisestusrakule horisontaalselt ja vertikaalselt.

Meenutagem seda näiteks töölehega. Vaadake allolevat pilti.

Praegu oleme lahtris A1.

Kui tahame liikuda horisontaalselt viimati kasutatud lahtrisse, kasutame Exceli kiirklahvi Ctrl + Parem nool ja see viib meid viimati kasutatud lahtrini horisontaalselt.

Samamoodi, kui tahame liikuda viimati kasutatud lahtrisse allapoole või vertikaalselt, vajutame otseteeklahvi Ctrl + nool alla.

Nii et vasakult paremale liikumiseks vajutage klahvikombinatsiooni Ctrl + vasaknool. Et liikuda alt üles, me vajutage Ctrl + Nool üles.

Sarnast saab teha ka VBA-s, kuid mitte klahvi Ctrl abil . Pigem peame kasutama sõna "Lõpp".

Exceli VBA lõppfunktsiooni näited

Näide # 1 - töölehel teisaldamiseks kasutage atribuuti VBA End

Vaatame, kuidas Excelis VBA End kasutada lehel liikumiseks. Esiteks peame otsustama, millist rakku me peame liikuma. Ok, oletame, et peame lahtrist A1 liikuma, nii et suunake lahter objekti VBA Range abil.

Kood:

Alamosa_näide1 () Vahemik ("A1") Lõpp alam

IntelliSense'i loendi kuvamiseks pange punkt (.) . Valige loendist VBA atribuut „Lõpeta”.

Kood:

Alamlõhe_näide1 () vahemik ("A1"). Lõpp-lõigu alamrühm

Kui valitud omadus lõpeb, on sulud avatud.

Kood:

Alamosa_näide1 () vahemik ("A1"). Lõpp (lõpp alam

Niipea kui sulgud avate, näeme kõiki võimalikke omadusi atribuudiga „Lõpeta”. Lahtrist A1 horisontaalselt viimati kasutatud lahtrisse liikumiseks valige „xlToRight” .

Kood:

Alamosa_näide1 () vahemik ("A1"). Lõpp (xlToRight) Lõpp alam

Pärast viimast lahtrisse liikumist peame valima, mida me peame tegema. IntelliSense'i loendi kuvamiseks pange punkt (.).

Kood:

Alamosa_näide1 () vahemik ("A1"). Lõpp (xlToRight). Lõpeta alam

Valige loendist IntelliSense meetod „Vali“.

Kood:

Sub End_Nample1 () Range ("A1"). End (xlToRight). Valige End Sub

See kasutab lahtrit A1, et viimati lahtrid horisontaalselt kasutada.

Samamoodi kasutage ülejäänud kolme võimalust paremale, vasakule, alla, üles liikumiseks.

Lahtrist A1 paremale liikumiseks.

Kood:

Sub End_Nample1 () Range ("A1"). End (xlToRight). Valige End Sub

Lahtrist A1 alla liikumiseks.

Kood:

Sub End_Nample1 () Range ("A1"). End (xlDown). Valige End Sub

Lahtrist A5 üles liikumiseks.

Kood:

Sub End_Nample1 () Range ("A5"). End (xlUp). Valige End Sub

Lahtrist D1 vasakule liikumiseks.

Kood:

Sub End_Eexample1 () Range ("D1"). End (xlToLeft). Valige End Sub

Kõik ülaltoodud koodid on näidisnäited atribuudi “End” kasutamise kohta töölehel liikumiseks.

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

Näide # 3 - valige paremalt vasakule, paremalt alt ja ülalt

Oleme näinud, kuidas valida horisontaalselt ja vertikaalselt. Nii vertikaalselt kui ka horisontaalselt valimiseks peame kasutama kahte omadust „End”. Andmete valimiseks vahemikus A1 kuni D5 peame kasutama allolevat koodi.

Kood:

Alamlõhe_näide3 () Vahemik ("A1", Vahemik ("A1"). Lõpp (xlDown). Lõpp (xlToRight)). Valige lahtrist A1 kuni "lahtrisse viimati allapoole ja paremale" Lõpeta alam

See valib kogu vahemiku nagu allpool.

Nii saame lahtrivahemiku valimiseks kasutada omadust VBA „End”.

Huvitavad Artiklid...