Този урок ще покаже как да използвате функцията Right VBA за извличане на текст отдясно.
Дясна функция
VBA дясна функция Последни n знака
Функцията VBA Right връща последните n знака от низ:
| 123456 | Подправо Пример_1 ()MsgBox вдясно ("ABCDEFGHI", 4) "Резултатът е:" FGHI "MsgBox вдясно ("ABCDEFGHI", 2) "Резултатът е:" HI "MsgBox вдясно ("ABCDEFGHI", 1) 'Резултатът е: "I"MsgBox вдясно ("ABCDEFGHI", 100) "Резултатът е:" ABCDEFGHI "End Sub |
VBA дясна функция Последни n знака в променлива
Както е показано по -горе, можете да дефинирате низ просто като въведете текст, заобиколен от кавички. Но функцията RIGHT ще работи и с низови променливи. Тези примери ще извлекат последните n знака от низова променлива.
| 123456789 | Подправо Пример_2 ()Dim StrEx As String 'Определете низова променливаStrEx = "ABCDEFGHI"MsgBox вдясно (StrEx, 4) 'Резултатът е: "FGHI"MsgBox вдясно (StrEx, 2) 'Резултатът е: "HI"MsgBox вдясно (StrEx, 1) 'Резултатът е: "I"MsgBox вдясно (StrEx, 100) 'Резултатът е: "ABCDEFGHI"End Sub |
VBA програмиране | Code Generator работи за вас!
VBA дясна функция Последни n знака от клетка
Низовете могат да бъдат дефинирани във VBA код, но също така можете да използвате стойности от клетки. Прочетете стойността на клетка, запазете я в низова променлива и извлечете последните n знака от тази стойност на клетката на работния лист.
| 123456789101112 | Подправо Пример_3 ()Dim StrEx As String 'Определете низова променлива„Прочетете стойността на клетка A1 в работен лист Sheet1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Range ("A1"). Value„За този пример стойността на клетка A1 е„ ABCDEFG hI “MsgBox вдясно (StrEx, 4) 'Резултатът е: "G hI"MsgBox вдясно (StrEx, 2) 'Резултатът е: "hI"MsgBox вдясно (StrEx, 1) 'Резултатът е: "I"MsgBox вдясно (StrEx, 100) 'Резултатът е: "ABCDEFG hI"End Sub |
VBA дясна функция Изрязване на първото писмо
За да премахнете букви от началото на низ, използвайте функцията RIGHT заедно с функцията LEN.
Функцията VBA LEN брои броя знаци в низ:
| 1 | Лен (StrEx) |
Чрез комбиниране на функциите можем да премахнем определен брой знаци от началото на низа:
| 12345678 | Подправо Пример_4 ()Dim StrEx As String 'Определете низова променливаStrEx = "ABCDEF"MsgBox вдясно (StrEx, Len (StrEx)) 'Резултатът е: "ABCDEF"MsgBox вдясно (StrEx, Len (StrEx) - 1) 'Резултатът е: "BCDEF"MsgBox вдясно (StrEx, Len (StrEx) - 2) 'Резултатът е: "CDEF"End Sub |
VBA Право на извличане на текст след интервал
За да извлечете фамилията от низ с пълно име, използвайте дясната функция заедно с Len и Instr функцията.
Функцията VBA LEN брои броя знаци в низ:
| 1 | Лен (StrEx) |
Функцията VBA InStr търси подниза в низ и връща номера на позицията на подниза.
| 1 | InStr (StrEx, "") |
Комбинирайки функциите, можем да извлечем частта след първия интервал от фраза:
| 123456789101112131415 | Подправо Пример_5 ()Dim StrEx As String 'Определете низова променливаStrEx = "Люк Скайуокър"MsgBox вдясно (StrEx, Len (StrEx) - InStr (StrEx, ""))"Резултатът е:" Skywalker "StrEx = "Леонардо да Винчи"MsgBox вдясно (StrEx, Len (StrEx) - InStr (StrEx, ""))Резултатът е: "да Винчи"StrEx = "Нека Силата бъде с вас"MsgBox вдясно (StrEx, Len (StrEx) - InStr (StrEx, ""))"Резултатът е:" Силата да бъде с вас "End Sub |
Уморени ли сте от търсене на примери за VBA код? Опитайте AutoMacro!
VBA Право на извличане на последната дума
За да извлечете последната дума от низ с фраза, използвайте дясната функция заедно с Len и InstrRev функция.
Както видяхме по -горе, функцията VBA LEN брои броя знаци в низ:
| 1 | Лен (StrEx) |
Функцията VBA InStrRev търси подниза в низ и връща номера на позицията на подниза. Той започва търсенето от края на фразата (отдясно наляво), но връща позицията от началото на низ (отляво надясно).
| 1 | InStrRev (StrEx, "") |
Комбинирайки функциите, можем да извлечем частта след последното интервалче от фраза:
| 123456789101112131415 | Подправо Пример_6 ()Dim StrEx As String 'Определете низова променливаStrEx = "Люк Скайуокър"MsgBox вдясно (StrEx, Len (StrEx) - InStrRev (StrEx, ""))"Резултатът е:" Skywalker "StrEx = "Леонардо да Винчи"MsgBox вдясно (StrEx, Len (StrEx) - InStrRev (StrEx, ""))Резултатът е: "да Винчи"StrEx = "Нека Силата бъде с вас"MsgBox вдясно (StrEx, Len (StrEx) - InStrRev (StrEx, ""))"Резултатът е:" вие "End Sub |
