Funkce ukončení VBA - Použití vlastnosti End ve VBA (s příklady)

Obsah

Ukončit funkci ve VBA

Ukončit funkci ve VBA

End je příkaz ve VBA, který má v aplikacích VBA více formulářů, jednoduchý příkaz End lze umístit kdekoli v kódu a automaticky zastaví provádění kódu, příkaz end se používá v mnoha postupech, jako je ukončení podprocesu nebo ukončení libovolná funkce smyčky jako End if.

Všechno má svůj konec a ve VBA se to nijak neliší. Toto slovo „ Konec “ jste určitě viděli ve všech kódech ve vašem VBA. Můžeme končit v „End Sub“, „End Function“, „End If“. Jsou běžné, jak víme, každý End naznačuje konec postupu. Tyto příkazy VBA End nevyžadují žádné speciální představení, protože jsme s nimi obeznámeni v našem kódování VBA.

Kromě výše uvedeného „Konec“ máme ve VBA jednu vlastnost „Konec“. V tomto článku vás provedeme touto vlastností a tím, jak ji použít v našem kódování.

Ukončit vlastnictví ve VBA

„Konec“ je vlastnost, kterou používáme ve VBA k pohybu navrhovaným směrem. Typickým příkladem směru je přesunutí z aktivní buňky do poslední použité buňky nebo poslední vstupní buňky vodorovně a svisle v listu.

Připomeňme si to například pomocí listu. Podívejte se na obrázek níže.

Právě teď jsme v buňce A1.

Pokud se chceme přesunout na poslední použitou buňku vodorovně, použijeme klávesovou zkratku aplikace Excel Ctrl + Šipka doprava a přenese nás na poslední použitou buňku vodorovně.

Podobně, pokud se chceme přesunout na poslední použitou buňku dolů nebo svisle, stiskneme klávesovou zkratku Ctrl + šipka dolů.

Pro pohyb zleva doprava tedy stiskneme Ctrl + šipka doleva. Pro přesun zdola nahoru stiskneme Ctrl + šipka nahoru.

Podobnou věc lze provést ve VBA, ale ne pomocí klávesy Ctrl . Spíše musíme použít slovo „Konec“.

Příklady funkce ukončení VBA aplikace Excel

Příklad č. 1 - Použijte vlastnost VBA End k přesunu v listu

Pojďme se podívat na to, jak použít Excel VBA End k pohybu v listu. Nejprve se musíme rozhodnout, kterou buňkou se musíme pohnout. Dobře, řekněme, že se musíme přesunout z buňky A1, takže odkazujte na buňku pomocí objektu VBA Range.

Kód:

Sub End_Example1 () Rozsah ("A1") End Sub

Vložením tečky (.) Zobrazíte seznam IntelliSense. Ze seznamu vyberte vlastnost „Ukončit“ VBA.

Kód:

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

Jakmile koncová vlastnost vybrala otevřenou závorku.

Kód:

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

Jakmile otevřete závorku, uvidíme všechny dostupné možnosti s vlastností „Konec“. Vyberte „xlToRight“ pro horizontální přesun z buňky A1 do poslední použité buňky.

Kód:

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

Po přesunu do poslední buňky musíme vybrat, co musíme udělat. Vložením tečky (.) Zobrazíte seznam IntelliSense.

Kód:

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

Vyberte metodu „Vybrat“ ze seznamu IntelliSense.

Kód:

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

Tím se buňka A1 použije k naposledy použitým buňkám vodorovně.

Podobně použijte další tři možnosti pro pohyb doprava, doleva, dolů, nahoru.

Přesun doprava z buňky A1.

Kód:

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

Přesun dolů z buňky A1.

Kód:

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

Přesunout nahoru z buňky A5.

Kód:

Sub End_Example1 () Range ("A5"). End (xlUp). Vyberte End Sub

Přesunout doleva z buňky D1.

Kód:

Sub End_Example1 () Range ("D1"). End (xlToLeft). Vyberte End Sub

Všechny výše uvedené kódy jsou ukázkovými příklady použití vlastnosti „Konec“ k přesunu v 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

Příklad č. 3 - Vyberte zprava doleva, zprava dolů a na začátek

Viděli jsme, jak vybrat vodorovně a svisle. Chcete-li vybrat svisle i vodorovně, musíme použít dvě vlastnosti „Konec“. Chcete-li vybrat data od A1 do D5, musíme použít následující kód.

Kód:

Sub End_Example3 () Range ("A1", Range ("A1"). End (xlDown) .End (xlToRight)). Vyberte 'Do z buňky A1 pro poslední použití buňky dolů a doprava End Sub

Tím se vybere celý rozsah, jak je uvedeno níže.