VBA beigu funkcija - Gala īpašuma izmantošana VBA (ar piemēriem)

Satura rādītājs

Beigu funkcija VBA

Beigu funkcija VBA

Beigas ir paziņojums VBA, kuram VBA lietojumprogrammās ir vairākas formas, vienkāršu beigu paziņojumu var ievietot jebkurā koda vietā, un tas automātiski aptur koda izpildi, beigu paziņojums tiek izmantots daudzās procedūrās, piemēram, lai izbeigtu apakšprocedūru vai beigtu jebkura cilpas funkcija, piemēram, End if.

Visam ir gals, un VBA tas neatšķiras. Jums noteikti jābūt redzamam šim vārdam “ Beigas ” visos VBA kodos. Mēs varam beigt ar “End Sub”, “End Function”, “End If”. Tie ir izplatīti, jo mēs zinām, ka katrs gals norāda uz procedūras beigām. Šiem VBA End paziņojumiem nav nepieciešams īpašs ievads, jo mēs to labi zinām mūsu VBA kodējumā.

Bez iepriekš minētā “End” mums VBA ir viens īpašums “End”. Šajā rakstā mēs iepazīsimies ar šo īpašumu un to, kā to izmantot mūsu kodēšanā.

Galīgais īpašums VBA

“Beigas” ir īpašums, ko mēs izmantojam VBA, lai virzītos ieteiktajā virzienā. Tipisks virziena piemērs ir pārvietošanās no aktīvās šūnas uz pēdējo izmantoto šūnu vai pēdējo ieejas šūnu horizontāli un vertikāli darblapā.

Piemēram, atcerēsimies to ar darblapu. Apskatiet zemāk redzamo attēlu.

Pašlaik mēs atrodamies A1 šūnā.

Ja mēs vēlamies pāriet uz pēdējo izmantoto šūnu horizontāli, mēs izmantojam Excel īsinājumtaustiņu Ctrl + bultiņa pa labi, un tas mūs aizvedīs līdz pēdējai izmantotajai šūnai horizontāli.

Līdzīgi, ja mēs vēlamies pāriet uz pēdējo izmantoto šūnu uz leju vai vertikāli, mēs nospiežam īsinājumtaustiņu Ctrl + lejupvērstā bultiņa.

Tātad, lai pārvietotos no kreisās uz labo, mēs nospiežam Ctrl + bultiņa pa kreisi. Lai pārietu no apakšas uz augšu, mēs nospiežam Ctrl + bultiņa uz augšu.

Līdzīgu lietu var izdarīt VBA, bet ne, izmantojot taustiņu Ctrl . Mums drīzāk jāizmanto vārds “Beigas”.

Excel VBA beigu funkcijas piemēri

1. piemērs - izmantojiet VBA beigu īpašumu, lai pārvietotos darblapā

Apskatīsim, kā izmantot Excel VBA End, lai pārvietotos lapā. Pirmkārt, mums jāizlemj, kura šūna mums jāpārvieto. Labi, pieņemsim, ka mums jāpārvietojas no šūnas A1, tāpēc norādiet šūnu, izmantojot objektu VBA diapazons.

Kods:

Apakšējā_piemērs1 () Diapazons ("A1") Beigu apakšgrupa

Ievietojiet punktu (.), Lai redzētu IntelliSense sarakstu. Sarakstā atlasiet VBA rekvizītu “Beigt”.

Kods:

Apakšgala_piemērs1 () diapazons ("A1"). Beigu beigu apakškopa

Kad izvēlētais gala rekvizīts ir atvērts iekavas.

Kods:

Apakšējā gala_piemērs1 () diapazons ("A1"). Beigas (beigu apakšgrupa

Tiklīdz atverat iekavas, mēs varam redzēt visas pieejamās iespējas ar rekvizītu “Beigt”. Atlasiet “xlToRight”, lai pārietu no šūnas A1 uz pēdējo izmantoto šūnu horizontāli.

Kods:

Sub End_Example1 () diapazons ("A1"). End (xlToRight) End Sub

Pēc pārejas uz pēdējo šūnu mums jāizvēlas, kas mums jādara. Ievietojiet punktu (.), Lai redzētu IntelliSense sarakstu.

Kods:

Apakšējā gala_piemērs1 () diapazons ("A1"). Beigas (xlToRight). Beigu apakšnodaļa

IntelliSense sarakstā izvēlieties metodi “Atlasīt”.

Kods:

Sub End_Eample1 () diapazons ("A1"). End (xlToRight). Atlasiet End Sub

Lai izmantotu šūnas horizontāli, tiks izmantota šūna A1.

Tāpat izmantojiet pārējās trīs iespējas, lai pārvietotos pa labi, pa kreisi, uz leju, uz augšu.

Lai pārvietotos pa labi no šūnas A1.

Kods:

Sub End_Eample1 () diapazons ("A1"). End (xlToRight). Atlasiet End Sub

Lai pārvietotos uz leju no šūnas A1.

Kods:

Sub End_Example1 () diapazons ("A1"). End (xlDown). Atlasiet End Sub

Lai pārvietotos uz augšu no šūnas A5.

Kods:

Sub End_Example1 () diapazons ("A5"). End (xlUp). Atlasiet End Sub

Lai pārvietotos pa kreisi no šūnas D1.

Kods:

Sub End_Eample1 () diapazons ("D1"). End (xlToLeft). Atlasiet End Sub

Visi iepriekš minētie kodi ir piemērs, kā izmantot rekvizītu “End”, lai pārvietotos darblapā.

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. piemērs - atlasiet no labās uz kreiso, no labās uz apakšu un uz augšu

Mēs esam redzējuši, kā izvēlēties horizontāli un vertikāli. Lai atlasītu gan vertikāli, gan horizontāli, mums jāizmanto divas īpašības “End”. Lai atlasītu datus no A1 līdz D5, mums jāizmanto zemāk redzamais kods.

Kods:

Apakšējā_piemērs3 () diapazons ("A1", diapazons ("A1"). Beigas (xlDown). Beigas (xlToRight)). Atlasiet 'Kam no šūnas A1 līdz pēdējai šūnas izmantošanai uz leju un pa labi End Sub

Tas atlasīs visu diapazonu, piemēram, zemāk.