VBA-slutfunktion - Använda slutfastighet i VBA (med exempel)

Innehållsförteckning

Slutfunktion i VBA

End är ett uttalande i VBA som har flera former i VBA-applikationer, enkelt End-uttalande kan placeras var som helst i koden och det kommer automatiskt att stoppa exekveringen av koden. vilken loopfunktion som End if.

För allt finns det ett slut, och i VBA är det inte annorlunda. Du måste ha sett detta ord " Avsluta " i alla koder i din VBA. Vi kan avsluta i "End Sub", "End Function", "End If." Dessa är vanliga eftersom vi vet att varje slut föreslår slutet på proceduren. Dessa VBA End-uttalanden kräver ingen speciell introduktion eftersom vi känner till det i vår VBA-kodning.

Bortsett från ovanstående "Slut" har vi en egendom, "Slut" i VBA. I den här artikeln tar vi dig igenom den egenskapen och hur du använder den i vår kodning.

Slutfastighet i VBA

”Slut” är egenskapen vi använder i VBA för att gå i den föreslagna riktningen. Det typiska riktningsexemplet är att flytta från den aktiva cellen till den senast använda cellen eller den sista inmatningscellen horisontellt och vertikalt i kalkylbladet.

Låt oss till exempel komma ihåg detta med ett kalkylblad. Titta på bilden nedan.

Just nu är vi i A1-cellen.

Om vi ​​vill flytta till den senast använda cellen horisontellt använder vi excel-kortkommandot Ctrl + högerpil och det tar oss till den senast använda cellen horisontellt.

På samma sätt, om vi vill flytta till den senast använda cellen nedåt eller vertikalt, trycker vi på snabbtangenten Ctrl + Pil ner.

Så för att flytta från vänster till höger trycker vi på Ctrl + vänsterpil. För att flytta från botten till toppen trycker vi på Ctrl + uppåtpil.

En liknande sak kan göras i VBA men inte med Ctrl- tangenten. Vi måste snarare använda ordet "Slut."

Exempel på Excel VBA-slutfunktion

Exempel # 1 - Använd VBA-slutegenskap för att flytta i kalkylblad

Låt oss titta på hur du använder Excel VBA End för att flytta i arket. Först måste vi bestämma vilken cell vi behöver flytta. Ok, låt oss säga att vi måste flytta från cellen A1, så hänvisa cellen med VBA Range-objektet.

Koda:

Sub End_Example1 () Range ("A1") End Sub

Sätt punkt (.) För att se IntelliSense-listan. Välj "Avsluta" VBA-egenskap från listan.

Koda:

Sub End_Example1 () Range ("A1"). End End Sub

När slutegenskapen har valt öppen parentes.

Koda:

Sub End_Example1 () Range ("A1") End (End Sub

Så snart du öppnar parentes kan vi se alla tillgängliga alternativ med "End" -egenskapen. Välj “xlToRight” för att flytta från cell A1 till den senast använda cellen horisontellt.

Koda:

Sub End_Example1 () Range ("A1") End (xlToRight) End Sub

Efter att ha flyttat till den sista cellen måste vi välja vad vi behöver göra. Sätt punkt (.) För att se IntelliSense-listan.

Koda:

Sub End_Example1 () Range ("A1"). End (xlToRight). Avsluta sub

Välj "Välj" -metoden från IntelliSense-listan.

Koda:

Sub End_Example1 () Range ("A1"). End (xlToRight). Välj End Sub

Detta kommer att använda cell A1 för att senast använda celler horisontellt.

Använd också de andra tre alternativen för att flytta höger, vänster, nedåt, uppåt.

För att flytta höger från cell A1.

Koda:

Sub End_Example1 () Range ("A1"). End (xlToRight). Välj End Sub

För att flytta ner från cell A1.

Koda:

Sub End_Example1 () Range ("A1"). End (xlDown). Välj End Sub

Att flytta upp från cell A5.

Koda:

Sub End_Example1 () Range ("A5"). End (xlUp). Välj End Sub

För att flytta vänster från cell D1.

Koda:

Sub End_Example1 () Range ("D1"). End (xlToLeft). Välj End Sub

Alla ovanstående koder är exempel på hur du använder egenskapen "Slut" för att flytta i kalkylbladet.

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

Exempel # 3 - Välj höger till vänster, höger till botten och topp

Vi har sett hur man väljer horisontellt och vertikalt. För att välja både vertikalt och horisontellt måste vi använda två "End" -egenskaper. För att välja data från A1 till D5 måste vi använda koden nedan.

Koda:

Sub End_Example3 () Range ("A1", Range ("A1"). End (xlDown). End (xlToRight)). Välj "Till från cell A1 för att senast använda cellen nedåt och höger Avsluta Sub

Detta kommer att välja hela sortimentet enligt nedan.

Så här kan vi använda VBA "End" -funktionsegenskapen för att välja ett cellområde.

Intressanta artiklar...