Цей підручник продемонструє, як використовувати функцію Left VBA.
Ліва функція
Функція VBA Left повертає перші n символів із рядка.
Ліва функція VBA n Перші символи
Функція VBA Left повертає перші n символів із рядка:
| 123456 | Sub LeftExample_1 ()MsgBox зліва ("ABCDEFGHI", 4) 'Результат: "ABCD"MsgBox ліворуч ("ABCDEFGHI", 2) 'Результат: "AB"MsgBox ліворуч ("ABCDEFGHI", 1) 'Результат: "A"MsgBox зліва ("ABCDEFGHI", 100) "Результат:" ABCDEFGHI "End Sub |
Ліва функція VBA n Перші символи у змінній
Як показано вище, ви можете визначити рядок, просто ввівши текст, оточений лапками. Але функція LEFT також працюватиме зі рядковими змінними. У цих прикладах буде вилучено перші n символів із рядкової змінної.
| 1234567891011 | Sub LeftExample_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 на аркуші аркуша1StrEx = 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 | Sub 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 | Sub LeftExample_5 ()Dim StrEx As String 'Визначте рядкову зміннуStrEx = "Олександр Грем Белл"MsgBox ліворуч (StrEx, InStr (StrEx, ""))Результат: "Олександр" (зверніть увагу на пробіл в кінці)MsgBox ліворуч (StrEx, InStr (StrEx, "") - 1)Результат: "Олександр" (без кінці в кінці)StrEx = "Леонардо да Вінчі"MsgBox InStr (StrEx, "")Результат: 9, тому що в позиції 9 знайдено пробілMsgBox ліворуч (StrEx, InStr (StrEx, "") - 1)Результат: "Леонардо"End Sub |
