Крайна функция на VBA - Използване на крайно свойство във VBA (с примери)

Съдържание

Крайна функция във VBA

Крайна функция във VBA

End е извлечение във VBA, което има множество форми във VBA приложения, простият End изказ може да бъде поставен навсякъде в кода и той автоматично ще спре изпълнението на кода, крайният израз се използва в много процедури, като например за прекратяване на подпроцедурата или за прекратяване всяка циклична функция като End if.

За всичко има край и във VBA не е по-различно. Сигурно сте виждали тази дума „ Край “ във всички кодове във вашата VBA. Можем да завършим в „End Sub“, „End Function“, „End If“. Те са често срещани, тъй като знаем, че всеки Край предполага края на процедурата. Тези оператори на VBA End не изискват специално въведение, защото сме запознати с него в нашето VBA кодиране.

Освен горното „End“, имаме едно свойство „End“ във VBA. В тази статия ще ви преведем през това свойство и как да го използваме в нашето кодиране.

Крайна собственост във VBA

„End“ е свойството, което използваме във VBA, за да се движим в предложената посока. Типичният пример за посока е преместването от активната клетка към последната използвана клетка или последната клетка за влизане хоризонтално и вертикално в работния лист.

Например, нека си припомним това с работен лист. Погледнете изображението по-долу.

В момента се намираме в клетка А1.

Ако искаме да преминем към последната използвана клетка хоризонтално, използваме клавишната комбинация на Excel Ctrl + стрелка надясно и тя ще ни отведе до последната използвана клетка хоризонтално.

По същия начин, ако искаме да преминем към последната използвана клетка надолу или вертикално, натискаме клавишната комбинация Ctrl + стрелка надолу.

Така че, за да се движим отляво надясно, натискаме Ctrl + стрелка наляво. За да се придвижите отдолу нагоре, натискаме Ctrl + стрелка нагоре.

Подобно нещо може да се направи във VBA, но не и с помощта на клавиша Ctrl . По-скоро трябва да използваме думата „Край“.

Примери за крайна функция на Excel VBA

Пример # 1 - Използвайте крайното свойство на VBA за преместване в работен лист

Нека да разгледаме как да използваме Excel VBA End за придвижване в листа. Първо, трябва да решим коя клетка трябва да преместим. Добре, да предположим, че трябва да се преместим от клетката A1, така че препратете клетката, като използвате обекта VBA Range.

Код:

Sub End_Example1 () Обхват ("A1") Край Sub

Поставете точка (.), За да видите списъка на IntelliSense. Изберете “End” VBA свойство от списъка.

Код:

Sub End_Example1 () Обхват ("A1"). End End Sub

След като крайното свойство избра отворена скоба.

Код:

Sub End_Example1 () Обхват ("A1"). End (End Sub

Веднага след като отворите скоби, можем да видим всички налични опции със свойството „End“. Изберете “xlToRight”, за да преминете от клетка А1 до последната използвана клетка хоризонтално.

Код:

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

След като се преместим в последната клетка, трябва да изберем какво трябва да направим. Поставете точка (.), За да видите списъка на IntelliSense.

Код:

Sub End_Example1 () Диапазон ("A1"). End (xlToRight). Крайна под

Изберете метода “Select” от списъка IntelliSense.

Код:

Sub End_Example1 () Обхват ("A1"). End (xlToRight). Изберете End Sub

Това ще използва клетка А1 за последно използване на клетки хоризонтално.

По същия начин използвайте останалите три опции за придвижване надясно, наляво, надолу, нагоре.

За да се придвижите надясно от клетка A1.

Код:

Sub End_Example1 () Обхват ("A1"). End (xlToRight). Изберете End Sub

За да се придвижите надолу от клетка A1.

Код:

Sub End_Example1 () Обхват ("A1"). End (xlDown). Изберете End Sub

За да се придвижите нагоре от клетка A5.

Код:

Sub End_Example1 () Обхват ("A5"). End (xlUp). Изберете End Sub

За придвижване наляво от клетка D1.

Код:

Sub End_Example1 () Обхват ("D1"). End (xlToLeft). Изберете End Sub

Всички горепосочени кодове са примерни примери за използване на свойството „End“ за придвижване в работния лист.

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 - Изберете отдясно наляво, отдясно надолу и отгоре

Видяхме как да избираме хоризонтално и вертикално. За да изберем както вертикално, така и хоризонтално, трябва да използваме две свойства „End“. За да изберете данните от A1 до D5, трябва да използваме кода по-долу.

Код:

Sub End_Example3 () Range ("A1", Range ("A1"). End (xlDown) .End (xlToRight)). Изберете 'To от клетка A1 за последно използване на клетка надолу и надясно End Sub

Това ще избере пълния диапазон, както е показано по-долу.