VBA završna funkcija - Korištenje krajnjeg svojstva u VBA (s primjerima)

Sadržaj

Krajnja funkcija u VBA

Krajnja funkcija u VBA

Kraj je izraz u VBA koji ima više obrazaca u VBA aplikacijama, jednostavni izraz End može se staviti bilo gdje u kodu i automatski će zaustaviti izvršavanje koda, krajnji se izraz koristi u mnogim postupcima poput završetka potprocedure ili završetka bilo koja funkcija petlje poput End if.

Za sve postoji kraj, a u VBA to nije drugačije. Sigurno ste vidjeli riječ " Kraj " u svim kodovima vašeg VBA-a. Možemo završiti u "End Sub", "End Function", "End If". Oni su uobičajeni jer znamo da svaki Kraj sugerira kraj postupka. Ove VBA završne izjave ne zahtijevaju posebno predstavljanje jer su nam poznate u našem VBA kodiranju.

Osim gore navedenog "End", u VBA imamo i jedno svojstvo "End". U ovom ćemo vas članku provesti kroz to svojstvo i kako ga koristiti u našem kodiranju.

Krajnje svojstvo u VBA

"Kraj" je svojstvo koje koristimo u VBA za kretanje u predloženom smjeru. Tipičan primjer smjera je pomicanje od aktivne ćelije do posljednje korištene ćelije ili stanice posljednjeg unosa vodoravno i okomito u radnom listu.

Primjerice, prisjetimo se toga na radnom listu. Pogledajte donju sliku.

Trenutno smo u ćeliji A1.

Ako se želimo vodoravno pomaknuti do posljednje korištene ćelije, koristimo excel tipku prečaca Ctrl + strelica udesno i ona će nas odvesti do zadnje korištene ćelije vodoravno.

Slično tome, ako se želimo pomaknuti do posljednje korištene ćelije prema dolje ili okomito, pritisnemo prečac Ctrl + strelica prema dolje.

Za pomicanje slijeva udesno pritisnemo Ctrl + strelica ulijevo. Za pomicanje odozdo prema gore pritisnite Ctrl + strelica prema gore.

Slično se može učiniti u VBA, ali ne pomoću tipke Ctrl . Umjesto toga, trebamo upotrijebiti riječ "Kraj".

Primjeri funkcije Excel VBA End End

Primjer # 1 - Koristite VBA krajnje svojstvo za premještanje u radni list

Pogledajmo kako koristiti Excel VBA End za kretanje po listu. Prvo, moramo odlučiti koju ćeliju moramo premjestiti. Ok, recimo da se moramo pomaknuti iz ćelije A1, pa uputite ćeliju pomoću objekta VBA Range.

Kodirati:

Sub End_Example1 () Raspon ("A1") Kraj Sub

Stavite točku (.) Da biste vidjeli popis IntelliSense. S popisa odaberite svojstvo „End“ VBA.

Kodirati:

Sub End_Example1 () Raspon ("A1"). Kraj End Sub

Nakon što odaberete krajnju osobinu, otvorite zagradu.

Kodirati:

Sub End_Example1 () Raspon ("A1"). Kraj (End Sub

Čim otvorite zagradu, vidjet ćemo sve dostupne opcije sa svojstvom „Kraj“. Odaberite "xlToRight" da biste se horizontalno pomaknuli od ćelije A1 do zadnje korištene ćelije.

Kodirati:

Sub End_Example1 () Raspon ("A1"). Kraj (xlToRight) Kraj Sub

Nakon prelaska u zadnju ćeliju moramo odabrati što trebamo učiniti. Stavite točku (.) Da biste vidjeli popis IntelliSense.

Kodirati:

Sub End_Example1 () Raspon ("A1"). Kraj (xlToRight). Kraj pod

Odaberite metodu "Select" s popisa IntelliSense.

Kodirati:

Sub End_Example1 () Raspon ("A1"). End (xlToRight). Odaberite End Sub

Ovo će koristiti ćeliju A1 za posljednju upotrebu stanica vodoravno.

Slično tome, koristite ostale tri opcije za pomicanje udesno, ulijevo, dolje, gore.

Za pomicanje udesno iz ćelije A1.

Kodirati:

Sub End_Example1 () Raspon ("A1"). End (xlToRight). Odaberite End Sub

Za pomicanje prema dolje iz ćelije A1.

Kodirati:

Sub End_Example1 () Raspon ("A1"). End (xlDown) .Odaberite End Sub

Za pomicanje prema gore iz ćelije A5.

Kodirati:

Sub End_Example1 () Raspon ("A5"). Kraj (xlUp). Odaberite End Sub

Za pomicanje lijevo iz ćelije D1.

Kodirati:

Sub End_Example1 () Raspon ("D1"). End (xlToLeft) .Odaberite End Sub

Svi gore navedeni kodovi su primjeri korištenja svojstva "End" za premještanje na radnom listu.

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

Primjer # 3 - Odaberite Desno nalijevo, Desno na dno i Vrh

Vidjeli smo kako odabrati vodoravno i okomito. Da bismo odabrali i vertikalno i vodoravno, trebamo upotrijebiti dva svojstva "Kraj". Da bismo odabrali podatke od A1 do D5, trebamo upotrijebiti donji kod.

Kodirati:

Sub End_Example3 () Raspon ("A1", Raspon ("A1"). Kraj (xlDown). End (xlToRight)). Odaberite 'To iz ćelije A1 do zadnje upotrebe ćelije prema dolje i nadesno Završi Sub

Ovo će odabrati cijeli raspon kao u nastavku.