К примеру, есть ячейка, в которой находится произвольный текст. В тексте ячейки постоянно меняются первые 1-3 символа, например: а. 1111111, аб. 1111111, абв. 1111111.
Каким образом можно проверить ячейку на наличие в первые 4 символах содержимого ячейки (в том числе и точку), на наличие одного из вариантов: "а.", "аб", "абв.", вырезать их из ячейки и передать в переменную, либо делать иное действие, если одного их данных вариантов вначале ячейки нет.
Сможет ли помочь в данном вопросе инструмент Find в VBA? Пробовал написать макрос при помощи Find, но не могу никак понять, как задать именно жесткий поиск по вышеуказаным наборам символов, чтобы указать макросу, что ищутся именно "а.", "аб." или "абв." и именно вначале содержимого ячейки Подскажите, пожалуйста, в какую сторону смотреть)
Спасибо!
Доброй ночи!
Подскажите, пожалуйста, по следующему вопросу.
К примеру, есть ячейка, в которой находится произвольный текст. В тексте ячейки постоянно меняются первые 1-3 символа, например: а. 1111111, аб. 1111111, абв. 1111111.
Каким образом можно проверить ячейку на наличие в первые 4 символах содержимого ячейки (в том числе и точку), на наличие одного из вариантов: "а.", "аб", "абв.", вырезать их из ячейки и передать в переменную, либо делать иное действие, если одного их данных вариантов вначале ячейки нет.
Сможет ли помочь в данном вопросе инструмент Find в VBA? Пробовал написать макрос при помощи Find, но не могу никак понять, как задать именно жесткий поиск по вышеуказаным наборам символов, чтобы указать макросу, что ищутся именно "а.", "аб." или "абв." и именно вначале содержимого ячейки Подскажите, пожалуйста, в какую сторону смотреть)
Пришла на ум примерно такая идея решения задачи. Например, ячейка с исходным текстом имеет адрес "А2" и в данной ячейке следующий текст "аб. Абвгд": [vba]
[/vba] То есть, методом Left взять 4 первые символа ячейки и уже их передав в переменную при помощи конструкции if then else проверять на совпадение с текстом, который ищется. Подскажите, пожалуйста, как проверить при помощи .Find взятые от исходного текста 4 первых символа на наличие текста "аб."? То есть, чтобы в случае, если в первых 4 символах есть текст "аб.", выполнялась одно условие, а если текст не "аб.", а просто "а.", выполнялось другое?
Пришла на ум примерно такая идея решения задачи. Например, ячейка с исходным текстом имеет адрес "А2" и в данной ячейке следующий текст "аб. Абвгд": [vba]
[/vba] То есть, методом Left взять 4 первые символа ячейки и уже их передав в переменную при помощи конструкции if then else проверять на совпадение с текстом, который ищется. Подскажите, пожалуйста, как проверить при помощи .Find взятые от исходного текста 4 первых символа на наличие текста "аб."? То есть, чтобы в случае, если в первых 4 символах есть текст "аб.", выполнялась одно условие, а если текст не "аб.", а просто "а.", выполнялось другое?giovanni
Sub dd() Dim xcell As Variant xcell = Range("A2").Value Select Case 1 Case InStr(xcell, "абв.") MsgBox "абв." Case InStr(xcell, "аб.") MsgBox "аб." Case InStr(xcell, "а.") MsgBox "а." End Select End Sub
Sub dd() Dim xcell As Variant xcell = Range("A2").Value Select Case 1 Case InStr(xcell, "абв.") MsgBox "абв." Case InStr(xcell, "аб.") MsgBox "аб." Case InStr(xcell, "а.") MsgBox "а." End Select End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
