Лява функция на VBA - Как да използвам лявата функция на Excel VBA?

Съдържание

Excel VBA вляво

Excel VBA вляво

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

Някои от функциите на Excel са интегрирани и с VBA. От всички много текстови функции, VBA LEFT е една от функциите, които използваме доста често от други формули.

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

Синтаксисът на функцията LEFT е точно същият като във функцията на работния лист.

Той има два аргумента.

Низ: Това не е нищо друго освен препратка към стойността или клетката. От тази стойност ние търсим да нарязваме героите.
Дължина: Колко символа искате да извлечете от низа, който сте предоставили. Това трябва да е числова стойност.

Как да използвам лявата функция на Excel VBA?

Пример # 1

Да приемем, че имате думата „Sachin Tendulkar“ и искате само първите 6 знака от тази дума. Ще покажем как да извлечете отляво, като използвате функцията LEFT във VBA.

Стъпка 1: Създайте име на макрос и дефинирайте променливата като низ.

Код:

Sub Left_Example1 () Dim MyValue като String End Sub

Стъпка 2: Сега задайте стойност на тази променлива

Код:

Sub Left_Example1 () Dim MyValue As String MyValue = End Sub

Стъпка 3: Отворете функцията НАЛЯВО.

Код:

Sub Left_Example1 () Dim MyValue As String MyValue = Left (End Sub

Стъпка 4: Първият аргумент е да се каже какъв е низът или стойността. Нашата стойност тук е „Sachin Tendulkar.“

Код:

Sub Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", End Sub

Стъпка 5: Дължината не е нищо друго, освен колко знака се нуждаем отляво. Имаме нужда от 6 знака.

Код:

Sub Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", 6) End Sub

Стъпка 6: Покажете стойността в VBA MsgBox.

Код:

Sub Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", 6) MsgBox MyValue End Sub

Стъпка 7: Стартирайте макроса с помощта на клавиша F5 или ръчно чрез опция за изпълнение, за да получите резултата в полето за съобщение.

Изход:

Вместо да показваме резултата в поле за съобщение, можем да съхраним този резултат в една от клетките в нашия работен лист на Excel. Трябва само да добавим референтната клетка и стойността на променливата.

Код:

Sub Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", 6) Range ("A1"). Value = MyValue End Sub

Сега, ако изпълните този код, ще получим стойността в клетка A1.

Пример # 2 - НАЛЯВО с други функции

В горния случай директно сме предоставили дължината на знаците, от които се нуждаем, от лявата посока, но това е по-подходящо за една или две стойности. Да приемем, че по-долу е списъкът със стойности, които имате във вашия Excel лист.

In each case, first name characters are different from one to another; we cannot directly specify the number of characters we needed from each name.

This is where the beauty of other functions will come into the picture. In order to supply the number of characters dynamically, we can use the “VBA Instr” function.

In the above set of names, we need all the characters from the left until we reach space character. So Instr function can return those many characters.

Step 1: Similarly, start an excel macro name and define a variable as a string.

Code:

Sub Left_Example2() Dim FirstName As String End Sub

Step 2: Assign the value to the variable through the LEFT function.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left( End Sub

Step 3: Here, we need to refer the cell to get the value from the cells. So write the code as CELLE (2,1).Value.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2,1).Value, End Sub

Step 4: The next thing is how many characters we need. After applying the LEFT function, don’t enter the length of the characters manually. Apply the Instr function.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2, 1).Value, InStr(1, Cells(2, 1).Value, " ")) End Sub

Step 5: Store this result in the B2 cell. So the code is CELLS (2,2).value = FirstName

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2, 1).Value, InStr(1, Cells(2, 1).Value, " ")) Cells(2, 2).Value = FirstName End Sub

Стъпка 6: Стартирайте този код ръчно или чрез F5, ще получим първото име.

Получихме първото име за едно име, но имаме и няколко други имена. Не можем да напишем 100 реда код за извличане, тогава как да извлечем?

Тук в картината влиза красотата на бримките. По-долу е цикъла на кода, който може да премахне всички нежелани стъпки и може да свърши работата в 3 реда.

Код:

Sub Left_Example2 () Dim FirstName As String Dim i As Integer For i = 2 To 9 FirstName = Left (Cells (i, 1) .Value, InStr (1, Cells (i, 1) .Value, "") - 1) Клетки (i, 2). Стойност = FirstName Next i End Sub