📌 Использование функции ПРАВСИМВ в Excel и коде VBA

Приветствуем всех 👋, кто читает наш канал, и благодарим за подписку!

В этом уроке мы рассмотрим, как использовать функцию ПРАВСИМВ в Excel и в коде макроса на VBA.

Использование функции ПРАВСИМВ в Excel и коде VBA

🔔 Функция ПРАВСИМВ позволяет извлекать последние символы из текстовой строки и принимает два аргумента

Первый аргумент (текст) - это текстовая строка, из которой нужно извлечь последние символы. Второй аргумент (количество_символов) - это количество символов, которые нужно извлечь справа. Если этот аргумент опущен, то по умолчанию функция ПРАВСИМВ извлечет последний символ из текстовой строки.

Рассмотрим пример. У нас есть список номеров телефонов, записанных в формате "xxx-xxx-xxxx", где x - цифры от 0 до 9.

Чтобы извлечь последние 4 цифры каждой записи можно использовать формулу:

где A1 - ячейка, содержащая номер телефона.

Результат: будут выделены последние 4 символа из ячейки A1.

▶️ Совместное использование функции ПРАВСИМВ()

Пример следующий: Представим, что у нас есть список адресов электронной почты.

Задача: извлечь доменное имя из каждого адреса мы можем использовать функцию НАЙТИ, для поиска "@", который разделяет имя пользователя и доменное имя, а затем использовать функцию, чтобы извлечь его.
Формула решения будет выглядеть следующим образом:

где A1 - ячейка, содержащая адрес электронной почты. Функция НАЙТИ найдет символ "@" в текстовой строке, а функция ДЛИНА найдет количество символов в текстовой строке. После этого, вычитая количество символов, найденных функцией НАЙТИ, из общего количества символов в текстовой строке, мы получим количество символов, которые нужно извлечь справа от символа "@". Таким образом, функция ПРАВСИМВ извлечет доменное имя из адреса электронной почты.

▶️ Ограничения применения функции ПРАВСИМВ()

🔔 Несмотря на ряд отмеченных приемуществ ПРАВСИМВ() имеет определенные ограничения. Вот 3 основных:

Ограничения применения функции ПРАВСИМВ()

▶️ Использование функции ПРАВСИМВ() в VBA

В VBA имеет синтаксис функции аналогичен. Она принимает два аргумента: текстовую строку и число символов, которые нужно извлечь.

🔘 Пример 1. Рассмотрим код для извлечения последних трех символов из текстовой строки:

В этом коде мы объявляем переменную myString типа String и присваиваем ей значение "Ваш текст!". Затем мы объявляем переменную lastThreeCharacters типа String и используем функцию Right, чтобы извлечь последние три символа из строки myString и присвоить их переменной lastThreeCharacters. Наконец, мы используем функцию MsgBox, чтобы вывести извлеченные символы в диалоговом окне сообщения.

🔘 Пример 2. Допустим, представлена база данных клиентов, задача извлечь первую букву из имени и фамилии. Ниже представлен макрос решающий поставленную задачу:

В этом коде мы используем цикл For, чтобы пройти через каждую строку в столбцах A и B, начиная со второй строки (первая строка обычно содержит заголовки столбцов). Затем мы объявляем переменные lastName, firstName и initials, которые будут использоваться для хранения фамилии, имени и инициалов клиента соответственно. Для извлечения первой буквы из имени и фамилии мы используем функцию Left. Затем мы объединяем полученные инициалы и помещаем их в столбец C с помощью функции Cells. Наконец, мы используем функцию Cells и метод End, чтобы найти последнюю заполненную строку в столбце A и использовать это значение для определения количества строк, которые нужно обработать.

▶️ Использование функции ПРАВСИМВ() в сочетании с другими функциями VBA

Сочетание с другими функциями VBA позволяет решать более сложные задачи. Например,

Использование функции ПРАВСИМВ() в сочетании с другими функциями VBA

⏩ ПРАВСИМВ() в сочетании с функцией Left

Допустим, представлен список имен и фамилий клиентов, разделенных пробелом, в ячейках A1:A5.

Следует создать новый список, где первая буква имени и первая буква фамилии, разделенные точкой.

Для решения поставленной задачи воспользуемся следующим макросом:

В этом макросе мы сначала объявляем два диапазона ячеек: nameRange для списка имен и фамилий и initialsRange для списка инициалов. Затем мы используем цикл For Each для перебора всех ячеек в диапазоне nameRange. В каждой итерации цикла мы извлекаем значение ячейки в переменную name, затем используем функцию Left, чтобы получить первую букву имени, и функцию ПРАВСИМВ, чтобы получить первую букву фамилии. Затем мы объединяем первые буквы имени и фамилии с помощью точки и сохраняем результат в переменную initials. Наконец, мы записываем значение переменной initials в ячейку в диапазоне initialsRange, соответствующую текущей ячейке в диапазоне nameRange.

⏩ Функция Mid для извлечения подстроки из текста с заданного символа и количества символов:

где строка - обязательный аргумент, содержащий строку, из которой нужно извлечь подстроку. начало - обязательный аргумент, определяющий начальный индекс, с которого нужно начать извлечение подстроки. Индексация начинается с единицы. длина - опциональный аргумент, определяющий количество символов, которые нужно извлечь. Если этот аргумент не указан, будет извлечена вся оставшаяся часть строки, начиная с указанного индекса.

Для извлечения доменного имени из адреса электронной почты рассмотрим пример, с использованием функции Mid.

Допустим, представлен список адресов электронной почты в столбце A, и мы хотим извлечь доменное имя из каждого адреса.

Для этого мы можем использовать код:

В этом примере мы сначала объявляем несколько переменных, которые будут использоваться в процессе извлечения доменного имени. Затем мы начинаем цикл, который перебирает все ячейки в столбце A с помощью функции Rows.Count и Range("A" & Rows.Count).End(xlUp).Row. Для каждого адреса электронной почты мы сначала сохраняем его в переменной email. Затем мы находим символ "@" в адресе с помощью функции InStr и сохраняем его позицию в переменной atSymbol. Затем мы находим следующий символ "." после символа "@" и сохраняем его позицию в переменной dotSymbol. Наконец, мы используем функцию Mid, чтобы извлечь доменное имя из адреса электронной почты, начиная с позиции, следующей за символом "@". Результаты извлечения записываются в столбец B.

🔔 Как видно из выше представленных примеров, ПРАВСИМВ() и Mid() могут использоваться для решения подобных задач. В зависимости от специфики задачи, одна из этих функций может оказаться удобнее или эффективнее, чем другая.

▶️ Ограничения функции ПРАВСИМВ в VBA

Использование ПРАВСИМВ() может быть ограничено в некоторых случаях:

Ограничения функции ПРАВСИМВ в VBA

🔲 Подводя итог...

Как видите, ПРАВСИМВ () - это мощный инструмент для работы с текстовыми строками в Microsoft Excel. Она позволяет извлекать последние символы из текстовых строк и может быть использована в сочетании с другими функциями Excel для получения нужной информации из текстовых строк. Однако, перед использованием этой функции, необходимо учитывать рассмотренные выше ограничения и убедиться, что функция применяется к правильному типу данных.

Наша команда очень заинтересована в создании качественного и полезного контента. Поэтому, если Вам понравился этот урок, не забудьте поблагодарить автора лайком 👍. Если у Вас есть вопросы или своё решение, не стесняйтесь оставить комментарий 💬. Нужно решение для другой проблемы? Пожалуйста, напишите свой вопрос в комментариях 💬, и мы обязательно рассмотрим его в ближайшей теме обзора. Мы ценим Вашу обратную связь 💝, так как это помогает нам оценить, насколько данный материал был полезен для Вас.