Този урок ще покаже как да използвате функцията Left VBA.
Лява функция
Функцията VBA Left връща първите n знака от низ.
VBA лява функция n Първи знаци
Функцията VBA Left връща първите n знака от низ:
| 123456 | Подлево Пример_1 ()MsgBox вляво ("ABCDEFGHI", 4) 'Резултатът е: "ABCD"MsgBox вляво ("ABCDEFGHI", 2) 'Резултатът е: "AB"MsgBox вляво ("ABCDEFGHI", 1) 'Резултатът е: "A"MsgBox вляво ("ABCDEFGHI", 100) 'Резултатът е: "ABCDEFGHI"End Sub |
VBA лява функция n Първи знаци в променлива
Както е показано по -горе, можете да дефинирате низ просто като въведете текст, заобиколен от кавички. Но функцията LEFT ще работи и с низови променливи. Тези примери ще извлекат първите n знака от низова променлива.
| 1234567891011 | Подлево Пример_2 ()Dim StrEx As String 'Определете низова променливаStrEx = "ABCDEFGHI"MsgBox вляво (StrEx, 4) 'Резултатът е: "ABCD"MsgBox вляво (StrEx, 2) 'Резултатът е: "AB"MsgBox вляво (StrEx, 1) 'Резултатът е: "A"MsgBox вляво (StrEx, 100) 'Резултатът е: "ABCDEFGHI"End Sub |
VBA лява функция n Първи знаци в клетка
Низовете могат да бъдат дефинирани във VBA код, но също така можете да използвате стойности от клетки. Прочетете стойността на клетка, запазете я в низова променлива и извлечете n първи символа от тази стойност на клетката на работния лист.
| 12345678910111213 | Подлево Пример_3 ()Dim StrEx As String 'Определете низова променлива„Прочетете стойността на клетка A1 в работен лист Sheet1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Range ("A1"). Value„За този пример стойността на клетка A1 е„ A bCDEFGHI “MsgBox вляво (StrEx, 4) 'Резултатът е: "ABCD"MsgBox вляво (StrEx, 2) 'Резултатът е: "AB"MsgBox вляво (StrEx, 1) 'Резултатът е: "A"MsgBox вляво (StrEx, 100) 'Резултатът е: "ABCDEFGHI"End Sub |
VBA лява функция Изрязване на последната буква
За да премахнете букви от края на низ, използвайте функцията LEFT заедно с функцията LEN.
Функцията VBA LEN брои броя знаци в низ:
| 1 | Лен (StrEx) |
Чрез комбиниране на функциите можем да премахнем определен брой знаци от края на низа:
| 123456789 | Подлево LeftExample_4 ()Dim StrEx As String 'Определете низова променливаStrEx = "ABCDEF"MsgBox вляво (StrEx, Len (StrEx)) 'Резултатът е: "ABCDEF"MsgBox вляво (StrEx, Len (StrEx) - 1) 'Резултатът е: "ABCDE"MsgBox вляво (StrEx, Len (StrEx) - 2) 'Резултатът е: "ABCD"End Sub |
VBA Вляво за извличане на име
За да извлечете първото име от низ с пълно име, използвайте функцията Left заедно с функцията Instr.
Функцията VBA Instr търси подниза в низ и връща номера на позицията на подниза.
| 1 | InStr (StrEx, "") |
Комбинирайки функциите, можем да извлечем първата дума от фраза:
| 12345678910111213141516171819 | Подлево LeftExample_5 ()Dim StrEx As String 'Определете низова променливаStrEx = "Александър Греъм Бел"MsgBox отляво (StrEx, InStr (StrEx, ""))'Резултатът е: "Александър" (забележете пространството в края)MsgBox вляво (StrEx, InStr (StrEx, "") - 1)'Резултатът е: "Александър" (без място в края)StrEx = "Леонардо да Винчи"MsgBox InStr (StrEx, "")„Резултатът е: 9, защото има място в позиция 9MsgBox вляво (StrEx, InStr (StrEx, "") - 1)Резултатът е: "Леонардо"End Sub |
