Овај водич ће показати како користити функцију Ригхт ВБА за издвајање текста са десне стране.
Десна функција
ВБА Десна функција Последњих н знакова
Функција ВБА Ригхт враћа последњих н знакова из низа:
| 123456 | Поддесно Пример_1 ()МсгБок Ригхт ("АБЦДЕФГХИ", 4) 'Резултат је: "ФГХИ"МсгБок Ригхт ("АБЦДЕФГХИ", 2) 'Резултат је: "ХИ"МсгБок Десно ("АБЦДЕФГХИ", 1) 'Резултат је: "И"МсгБок Ригхт ("АБЦДЕФГХИ", 100) 'Резултат је: "АБЦДЕФГХИ"Енд Суб |
ВБА Десна функција Последњих н знакова у променљивој
Као што је горе приказано, низ можете дефинисати једноставним уносом текста окруженог наводницима. Али функција РИГХТ ће такође радити са стринг променљивим. Ови примери ће извући последњих н знакова из стринг променљиве.
| 123456789 | Поддесно Примјер_2 ()Дим СтрЕк Ас Стринг 'Дефинишите променљиву низаСтрЕк = "АБЦДЕФГХИ"МсгБок десно (СтрЕк, 4) 'Резултат је: "ФГХИ"МсгБок Десно (СтрЕк, 2) 'Резултат је: "ХИ"МсгБок Десно (СтрЕк, 1) 'Резултат је: "И"МсгБок десно (СтрЕк, 100) 'Резултат је: "АБЦДЕФГХИ"Енд Суб |
ВБА програмирање | Генератор кода ради за вас!
ВБА Десна функција Последњих н знакова из ћелије
Низови се могу дефинисати у ВБА коду, али такође можете користити вредности из ћелија. Прочитајте вредност ћелије, задржите је у стринг променљивој и извуците последњих н знакова из те вредности ћелије радног листа.
| 123456789101112 | ПоддесноПример_3 ()Дим СтрЕк Ас Стринг 'Дефинишите променљиву низа„Прочитајте вредност ћелије А1 у листу 1СтрЕк = ТхисВоркбоок.Ворксхеетс ("Схеет1"). Ранге ("А1"). Валуе'За овај пример вредност ћелије А1 је "АБЦДЕФГ хИ"МсгБок Десно (СтрЕк, 4) 'Резултат је: "Г хИ"МсгБок Десно (СтрЕк, 2) 'Резултат је: "хИ"МсгБок Десно (СтрЕк, 1) 'Резултат је: "И"МсгБок десно (СтрЕк, 100) 'Резултат је: "АБЦДЕФГ хИ"Енд Суб |
ВБА десна функција Одсеците прво слово
Да бисте уклонили слова са почетка низа, користите функцију ДЕСНО заједно са функцијом ЛЕН.
Функција ВБА ЛЕН броји број знакова у низу:
| 1 | Лен (СтрЕк) |
Комбиновањем функција можемо уклонити одређени број знакова са почетка низа:
| 12345678 | Суб РигхтЕкампле_4 ()Дим СтрЕк Ас Стринг 'Дефинишите променљиву низаСтрЕк = "АБЦДЕФ"МсгБок Десно (СтрЕк, Лен (СтрЕк)) 'Резултат је: "АБЦДЕФ"МсгБок Десно (СтрЕк, Лен (СтрЕк) - 1) 'Резултат је: "БЦДЕФ"МсгБок Десно (СтрЕк, Лен (СтрЕк) - 2) 'Резултат је: "ЦДЕФ"Енд Суб |
ВБА право на издвајање текста после размака
Да бисте извукли презиме из низа са пуним именом, користите функцију Ригхт заједно са функцијом Лен и Инстр.
Функција ВБА ЛЕН броји број знакова у низу:
| 1 | Лен (СтрЕк) |
ВБА ИнСтр функција тражи подниз у низу и враћа број позиције подниза.
| 1 | ИнСтр (СтрЕк, "") |
Комбиновањем функција можемо извући део иза првог размака из фразе:
| 123456789101112131415 | Суб РигхтЕкампле_5 ()Дим СтрЕк Ас Стринг 'Дефинишите променљиву низаСтрЕк = "Луке Скивалкер"МсгБок десно (СтрЕк, Лен (СтрЕк) - ИнСтр (СтрЕк, ""))'Резултат је: "Скивалкер"СтрЕк = "Леонардо да Винчи"МсгБок десно (СтрЕк, Лен (СтрЕк) - ИнСтр (СтрЕк, ""))'Резултат је: "да Винци"СтрЕк = "Нека сила буде са вама"МсгБок десно (СтрЕк, Лен (СтрЕк) - ИнСтр (СтрЕк, ""))"Резултат је:" Сила са вама "Енд Суб |
Уморни сте од тражења примера ВБА кода? Испробајте АутоМацро!
ВБА право на издвајање последње речи
Да бисте извукли последњу реч из низа са фразом, користите функцију Ригхт заједно са функцијом Лен и ИнстрРев.
Као што смо видели горе, функција ВБА ЛЕН броји број знакова у низу:
| 1 | Лен (СтрЕк) |
ВБА ИнСтрРев функција тражи подниз у низу и враћа број позиције подниз. Покреће претрагу са краја фразе (с десна на лево), али враћа позицију са почетка низа (с лева на десно).
| 1 | ИнСтрРев (СтрЕк, "") |
Комбиновањем функција можемо извући део иза последњег размака из фразе:
| 123456789101112131415 | Суб РигхтЕкампле_6 ()Дим СтрЕк Ас Стринг 'Дефинишите променљиву низаСтрЕк = "Луке Скивалкер"МсгБок десно (СтрЕк, Лен (СтрЕк) - ИнСтрРев (СтрЕк, ""))'Резултат је: "Скивалкер"СтрЕк = "Леонардо да Винчи"МсгБок десно (СтрЕк, Лен (СтрЕк) - ИнСтрРев (СтрЕк, ""))'Резултат је: "да Винци"СтрЕк = "Нека сила буде са вама"МсгБок десно (СтрЕк, Лен (СтрЕк) - ИнСтрРев (СтрЕк, ""))'Резултат је: "ти"Енд Суб |
