Как подставлять значение по строкам в excel

Функции Excel для работы с элементами строк

Следующие функции находят и возвращают части текстовых строк или составляют большие строки из небольших: НАЙТИ (FIND), ПОИСК (SEARCH), ПРАВСИМВ (RIGHT), ЛЕВСИМВ (LEFT), ПСТР (MID), ПОДСТАВИТЬ (SUBSTITUTE), ПОВТОР (REPT), ЗАМЕНИТЬ (REPLACE), СЦЕПИТЬ (CONCATENATE).

Функции НАЙТИ и ПОИСК

Функции НАЙТИ (FIND) и ПОИСК (SEARCH) используются для определения позиции одной текстовой строки в другой. Обе функции возвращают номер символа, с которого начинается первое вхождение искомой строки. Эти две функции работают одинаково за исключением того, что функция НАЙТИ учитывает регистр букв, а функция ПОИСК допускает использование символов шаблона. Функции имеют следующий синтаксис:

=НАЙТИ(искомый_текст;просматриваемый_текст;нач_позиция)
=ПОИСК(искомый_текст;просматриваемый_текст;нач_позиция)

Аргумент искомый_текст задает текстовую строку, которую надо найти, а аргумент просматриваемый_текст — текст, в котором производится поиск. Любым из этих аргументов может быть строка символов, заключенная в двойные кавычки, или ссылка на ячейку. Необязательный аргумент нач_позиция задает позицию в просматриваемом тексте, с которой начинается поиск. Аргумент нач_позиция следует использовать в том случае, когда просматриваемый_текст содержит несколько вхождений искомого текста. Если данный аргумент опущен, Excel возвращает позицию первого вхождения.

Эти функции возвращают ошибочное значение, когда искомый_текст не содержится в просматриваемом тексте, либо нач_позиция меньши или равна нулю, либо нач_позиция превышает количество символов в просматриваемом тексте, либо нач_позиция больше позиции последнего вхождения искомого текста.

Например, чтобы определить позицию буквы «ж» в строке «Гаражные ворота», надо использовать формулу:

Эта формула возвращает 5.

Если точная последовательность символов искомого текста неизвестна, можно использовать функцию ПОИСК и включить в строку искомый_текст символы шаблона: знак вопроса (?) и звездочку (*). Знак вопроса соответствует одному произвольно набранному символу, а звездочка заменяет любую последовательность символов в указанной позиции. Например, чтобы найти позицию имен Анатолий, Алексей, Акакий в тексте, находящемся в ячейке А1, надо использовать формулу:

Функции ПРАВСИМВ и ЛЕВСИМВ

Функция ПРАВСИМВ (RIGHT) возвращает крайние правые символы строки аргумента, в то время как функция ЛЕВСИМВ (LEFT) возвращает первые (левые) символы. Синтаксис:

=ПРАВСИМВ(текст;количество_символов)
=ЛЕВСИМВ(текст;количество_символов)

Аргумент количество_символов задает число символов, извлекаемых из аргумента текст. Эти функции учитывают пробелы и поэтому, если аргумент текст содержит пробелы в начале или конце строки, в аргументах функций следует использовать функцию СЖПРОБЕЛЫ.

Аргумент количестов_символов должен быть больше или равен нулю. Если этот аргумент опускается, Excel считает его равным 1. Если количество_символов больше числа символов в аргументе текст, то возвращается весь аргумент.

Функция ПСТР

Функция ПСТР (MID) возвращает заданное число символов из строки текста, начиная с указанной позиции. Эта функция имеет следующий синтаксис:

=ПСТР(текст;нач_позиция;количество_символов)

Аргумент текст — это текстовая строка, содержащая извлекаемые символы, нач_позиция — это позиция первого символа, извлекаемого из текста (относительно начала строки), а количество_символов — это число извлекаемых символов.

Функции ЗАМЕНИТЬ и ПОДСТАВИТЬ

Эти две функции заменяют символы в тексте. Функция ЗАМЕНИТЬ (REPLACE) замещает часть текстовой строки другой текстовой строкой и имеет синтаксис:

=ЗАМЕНИТЬ(старый_текст;нач_позиция;количество_символов;новый_текст)

Аргумент старый_текст — это текстовая строка, а которой надо заменить символы. Следующие два аргумента задают символы, которые нужно заменить (относительно начала строки). Аргумент новый_текст задает вставляемую текстовую строку.

Например, ячейка А2 содержит текст «Вася Иванов». Чтобы поместить этот же текст в ячейку А3, заменив имя, надо в ячейку А3 вставить следующую функцию:

В функции ПОДСТАВИТЬ (SUBSTITUTE) начальная позиция и число заменяемых символов не задаются, а явно указывается замещаемый текст. Функция ПОДСТАВИТЬ имеет следующий синтаксис:

=ПОДСТАВИТЬ(текст;старый_текст;новый_текст;номер_вхождения)

Аргумент номер_вхождения является необязательным. Он предписывает Excel заменить только заданное вхождение строки старый_текст.

Например, ячейка А1 содержит текст «Ноль меньше восьми». Надо заменить слово «ноль» на «нуль».

Число 1 в этой формуле указывает, что надо изменить только первое «о» в строке ячейки А1. Если аргумент номер_вхождения опущен, Excel заменяет все вхождения строки старый_текст на строку новый_текст.

Функция ПОВТОР

Функция ПОВТОР (REPT) позволяет заполнить ячейку строкой символов, повторенной заданное количество раз. Синтаксис:

=ПОВТОР(текст;число_повторений)

Аргумент текст — это размноженная строка символов, заключенная в кавычки. Аргумент число_повторений указывает, сколько раз нужно повторить текст. Если аргумент число_повторений равен 0, функция ПОВТОР оставляет ячейку пустой, а если он не является целым числом, эта функция отбрасывает десятичные знаки после запятой.

Функция СЦЕПИТЬ

Функция СЦЕПИТЬ (CONCATENATE) является эквивалентом текстового оператора & и используется для объединения строк. Синтаксис:

=СЦЕПИТЬ(текст1;текст2;. )

В функции можно использовать до 30 аргументов.

Например, ячейка А5 содержит текст «первое полугодие», следующая формула возвращает текст «Всего за первое полугодие»:

=СЦЕПИТЬ(«Всего за «;А5)

В начало страницы

В начало страницы

Текстовые функции Excel

ФИО, номера банковских карт, адреса клиентов или сотрудников, комментарии и многое другое –все это является строками, с которыми многие сталкиваются, работая с приложением Excel. Поэтому полезно уметь обрабатывать информацию подобного типа. В данной статье будут рассмотрены текстовые функции в Excel, но не все, а те, которые, по мнению office-menu.ru, самые полезные и интересные:

Список всех текстовых функций Вы можете найти на вкладке «Формулы» => выпадающий список «Текстовые»:

Функция ЛЕВСИМВ

Возвращает подстроку из текста в порядке слева направо в заданном количестве символов.

Синтаксис: =ЛЕВСИМВ(текст; [количество_знаков])

• текст – строка либо ссылка на ячейку, содержащую текст, из которого необходимо вернуть подстроку;
• количество_знаков – необязательный аргумент. Целое число, указывающее, какое количество символов необходимо вернуть из текста. По умолчанию принимает значение 1.

Пример использования:

Формула: =ЛЕВСИМВ(«Произвольный текст»;8) – возвращенное значение «Произвол».

Функция ПРАВСИМВ

Данная функция аналогична функции «ЛЕВСИМВ», за исключением того, что знаки возвращаются с конца строки.

Пример использования:

Формула: =ПРАВСИМВ(«произвольный текст»;5) – возвращенное значение «текст».

Функция ДЛСТР

С ее помощью определяется длина строки. В качестве результата возвращается целое число, указывающее количество символов текста.

Синтаксис: =ДЛСТР(текст)

Пример использования:

Функция НАЙТИ

Возвращает число, являющееся вхождением первого символа подстроки, искомого текста. Если текст не найден, то возвращается ошибка «#ЗНАЧ!».

Синтаксис: =НАЙТИ(искомый_текст; текст_для_поиска; [нач_позиция])

• искомый_текст – строка, которую необходимо найти;
• текст_для_поиска – текст, в котором осуществляется поиск первого аргумента;
• нач_позиция – необязательный элемент. Принимает целое число, которое указывает, с какого символа текст_для_поиска необходимо начинать просмотр. По умолчанию принимает значение 1.

Пример использования:

Из отрывка стихотворения великого поэта С.А.Есенина находим вхождение первого символа строки «птица». Поиск осуществляется с начала строки. Если в приведенном примере поиск осуществлялся бы с 40 символа, то функция в результате вернула ошибку, т.к. позиции вхождения не было найдено.

Функция ЗАМЕНИТЬ

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

Синтаксис: ЗАМЕНИТЬ(старый_текст; начальная_позиция; количество_знаков; новый_текст)

• старый_текст – строка либо ссылка на ячейку, содержащую текст;
• начальная_позиция – порядковый номер символа слева направо, с которого нужно производить замену;
• количество_знаков – количество символов, начиная с начальная_позиция включительно, которые необходимо заменить новым текстом;
• новый_текст – строка, которая подменяет часть старого текста, заданного аргументами начальная_позиция и количество_знаков.

Пример использования:

Здесь в строке, содержащейся в ячейке A1, подменяется слово «старый», которое начинается с 19-го символа и имеет длину 6 символов, на слово «новый».

В случае обработки небольшого количества ячеек такой способ вполне приемлем. Но если обработать необходимо несколько тысяч различных строк, то процесс составления формул станет трудоемким. Поэтому переделаем рассмотренный пример, используя знания по тем функциям, которые уже описаны в начале статьи, а именно:

• Аргумент «начальная_позиция» подменим функцией «НАЙТИ»;
• В место аргумент «количество_знаков» вложим функцию «ДЛСТР».

В результате получим формулу: =ЗАМЕНИТЬ(A1;НАЙТИ(«старый»;A1);ДЛСТР(«старый»);»новый»)

Посмотрите на принтскрин окна функции. Возвращаемые результаты аргументов не поменялись, зато теперь их можно определять динамически, составив формулу один раз.

Функция ПОДСТАВИТЬ

Данная функция заменяет в тексте вхождения указанной подстроки на новый текст, чем схожа с функцией «ЗАМЕНИТЬ», но между ними имеется принципиальное отличие. Если функция «ЗАМЕНИТЬ» меняет текст, указанный посимвольно вручную, то функция «ПОДСТАВИТЬ» автоматически находит вхождения указанной строки и меняет их.

Синтаксис: ПОДСТАВИТЬ(текст; старый_текст; новый_текст; [номер_вхождения])

• текст – строка или ссылка на ячейку, содержащую текст;
• старый_текст – подстрока из первого аргумента, которую необходимо заменить;
• новый_текст – строка для подмены старого текста;
• номер_вхождения – необязательный аргумент. Принимает целое число, указывающее порядковый номер вхождения старый_текст, которое подлежит замене, все остальные вхождения затронуты не будут. Если оставить аргумент пустым, то будут заменены все вхождения.

Пример использования:

Строка в ячейке A1 содержит текст, в котором имеются 2 подстроки «старый». Нам необходимо подставить на место первого вхождения строку «новый». В результате часть текста «…старый-старый…», заменяется на «…новый-старый…».

Если ли бы последний аргумент был опущен, то результатом бы стала строка «строка, содержащая новый-новый текст».

Функция ПСТР

ПСТР возвращает из указанной строки часть текста в заданном количестве символов, начиная с указанного символа.

Синтаксис: ПСТР(текст; начальная_позиция; количество_знаков)

• текст – строка или ссылка на ячейку, содержащую текст;
• начальная_позиция – порядковый номер символа, начиная с которого необходимо вернуть строку;
• количество_знаков – натуральное целое число, указывающее количество символов, которое необходимо вернуть, начиная с позиции начальная_позиция.

Пример использования:

Из текста, находящегося в ячейке A1 необходимо вернуть последние 2 слова, которые имеют общую длину 12 символов. Первый символ возвращаемой фразы имеет порядковый номер 12.

Аргумент количество_знаков может превышать допустимо возможную длину возвращаемых символов. Т.е. если в рассмотренном примере вместо количество_знаков = 12, было бы указано значение 15, то результат не изменился, и функция так же вернула строку «функции ПСТР».

Для удобства использования данной функции ее аргументы можно подменить функциями «НАЙТИ» и «ДЛСТР», как это было сделано в примере с функцией «ЗАМЕНИТЬ».

Функция СЖПРОБЕЛЫ

Данная функция удаляется все лишние пробелы: пробелы по краям и двойные пробелы между словами. После обработки строк функцией остаются только одиночные пробелы между словами.

Синтаксис: =СЖПРОБЕЛЫ(текст)

Пример использования:

=СЖПРОБЕЛЫ( » Текст с лишними пробелами между словами и по краям « )

Результатом выполнения функции будет строка: «Текст с лишними пробелами между словами и по краям» .

Функция СЦЕПИТЬ

С помощью функции «СЦЕПИТЬ» можно объединить несколько строк между собой. Максимальное количество строк для объединения – 255.

Синтаксис: =СЦЕПИТЬ(текст1; [текст2]; …)

Функция должна содержать не менее одного аргумента

Пример использования:

Функция возвратит строку: «Слово1 Слово2».

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

Вместо использования данной функции можно применять знак амперсанда «&». Он так же объединяет строки. Например: «=»Слово1″&» «&«Слово2″».

Канал в Telegram

Работа со строками в Excel. Текстовые функции Excel

Часто в Excel приходится тем или иным образом обрабатывать текстовые строки. Вручную такие операции проделывать очень сложно когда кол-во строк составляет не одну сотню. Для удобства в Excel реализован не плохой набор функций для работы со строковым набором данных. В этой статье я коротко опишу необходимые функции для работы со строками категории «Текстовые» и некоторые рассмотрим на примерах.

Функции категории «Текстовые»

Итак, рассмотрим основные и полезные функции категории «Текстовые», с остальными можно ознакомиться самостоятельно.

• БАТТЕКСТ (Значение) – функция преобразующая число в текстовый тип;
• ДЛСТР (Значение) – вспомогательная функция, очень полезна при работе со строками. Возвращает длину строки, т.е. кол-во символов содержащихся в строке;
• ЗАМЕНИТЬ (Старый текст, Начальная позиция, число знаков, новый текст) – заменяет указанное кол-во знаков с определенной позиции в старом тексте на новый;
• ЗНАЧЕН (Текст) – преобразует текст в число;
• ЛЕВСИМВ (Строка, Кол-во знаков) – очень полезная функция, возвращает указанное кол-во символов, начиная с первого символа;
• ПРАВСИМВ (Строка, Кол-во знаков) – аналог функции ЛЕВСИМВ, с той лишь разницей, что возврат символов с последнего символа строки;
• НАЙТИ (текст для поиска, текст в котором ищем, начальная позиция) – функция возвращает позицию, с которой начинается вхождение искомого текста. Регистр символов учитывается. Если необходимо не различать регистр символов, воспользуйтесь функцией ПОИСК. Возвращается позиция только первого вхождения в строке!
• ПОДСТАВИТЬ (текст, старый текст, новый текст, позиция) – интересная функция, на первый взгляд похожа на функцию ЗАМЕНИТЬ, но функция ПОДСТАВИТЬ способна заменить на новую подстроку все вхождения в строке, если опущен аргумент «позиция»;
• ПСТР (Текст, Начальная позиция, Кол-во знаков) – функция похожа на ЛЕВСИМВ, но способна возвратить символы с указанной позиции:
• СЦЕПИТЬ (Текст1, Текст 2 …. Текст 30) – функция позволяет соединить до 30-ти строк. Так же, можно воспользоваться символом «&», выглядеть будет так «=”Текст1” & ”Текст2” & ”Текст3”»;

Это в основном часто используемые функции при работе со строками. Теперь рассмотрим пару примеров, которые продемонстрируют работу некоторых функций.

Пример 1
Дан набор строк:

Необходимо из этих строк извлечь даты, номера накладных, а так же, добавить поле месяц для фильтрации строк по месяцам.

Извлечем в столбец В номера накладных. Для этого найдем так называемый ключевой символ или слово. В нашем примере видно, что перед каждым номером накладной стоит «№», а длина номера накладной 6 символов. Воспользуемся функциями НАЙТИ и ПСТР. Пишем в ячейку B2 следующую формулу :

= ПСТР (A2; НАЙТИ («№»;A2)+1;6)

Разберем формулу. Из строки А2 с позиции следующей после найденного знака «№», мы извлекаем 6 символов номера.

Теперь извлечем дату. Тут все просто. Дата расположена в конце строки и занимает 8 символов. Формула для С2 следующая:

= ПРАВСИМВ (A2;8)

но извлеченная дата у нас будет строкой, чтоб преобразовать ее в дату необходимо после извлечения, текст перевести в число:

= ЗНАЧЕН ( ПРАВСИМВ (A2;8))

а затем, задать формат отображения в ячейке, как это сделать было описано в статье «Формат данных в Excel».

Ну и последнее, для удобства дальнейшей фильтрации строк, введем столбец месяц, который мы получим из даты. Только для создания месяца нам необходимо откинуть день и заменить его на «01». Формула для D2:

= ЗНАЧЕН ( СЦЕПИТЬ («01»; ПРАВСИМВ (A2;6))) или = ЗНАЧЕН («01″& ПРАВСИМВ (A2;6))

Задайте формат ячеке «ММММ ГГГГ». Результат:

Пример 2
В строке «Пример работы со строками в Excel» необходимо все пробелы заменить на знак «_», так же перед словом «Excel» добавить «MS».

Формула будет следующая:

=ПОДСТАВИТЬ(ЗАМЕНИТЬ(A1;ПОИСК(«excel»;A1);0;»MS «);» «;»_»)

Для того, чтоб понять данную формулу, разбейте ее на три столбца. Начните с ПОИСК, последней будет ПОДСТАВИТЬ.

Все. Если есть вопросы, задавайте, не стесняйтесь

Текстовые функции Excel в примерах

Excel предлагает большое количество функций, с помощью которых можно обрабатывать текст. Область применения текстовых функций не ограничивается исключительно текстом, они также могут быть использованы с ячейками, содержащими числа. В рамках данного урока мы на примерах рассмотрим 15 наиболее распространенных функций Excel из категории Текстовые.

Для объединения содержимого ячеек в Excel, наряду с оператором конкатенации, можно использовать текстовую функцию СЦЕПИТЬ. Она последовательно объединяет значения указанных ячеек в одной строке.

Если в Excel необходимо сделать все буквы строчными, т.е. преобразовать их в нижний регистр, на помощь придет текстовая функция СТРОЧН. Она не заменяет знаки, не являющиеся буквами.

Текстовая функция ПРОПИСН делает все буквы прописными, т.е. преобразует их в верхний регистр. Так же, как и СТРОЧН, не заменяет знаки, не являющиеся буквами.

Текстовая функция ПРОПНАЧ делает прописной первую букву каждого слова, а все остальные преобразует в строчные.

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

В Excel Вы можете подсчитать количество знаков, содержащихся в текстовой строке, для этого воспользуйтесь функцией ДЛСТР. Пробелы учитываются.

ЛЕВСИМВ и ПРАВСИМВ

Текстовые функции ЛЕВСИМВ и ПРАВСИМВ возвращают заданное количество символов, начиная с начала или с конца строки. Пробел считается за символ.

Текстовая функция ПСТР возвращает заданное количество символов, начиная с указанной позиции. Пробел считается за символ.

Функция СОВПАД позволяет сравнить две текстовые строки в Excel. Если они в точности совпадают, то возвращается значение ИСТИНА, в противном случае – ЛОЖЬ. Данная текстовая функция учитывает регистр, но игнорирует различие в форматировании.

Если регистр для Вас не играет большой роли (так бывает в большинстве случаев), то можно применить формулу, просто проверяющую равенство двух ячеек.

Удаляет из текста все лишние пробелы, кроме одиночных между словами.

В случаях, когда наличие лишнего пробела в конце или начале строки сложно отследить, данная функция становится просто незаменимой. На рисунке ниже видно, что содержимое ячеек А1 и B1 абсолютно одинаково, но это не так. В ячейке А1 мы намеренно поставили лишний пробел в конце слова Excel. В итоге функция СОВПАД возвратила нам значение ЛОЖЬ.

Применив функцию СЖПРОБЕЛЫ к значению ячейки А1, мы удалим из него все лишние пробелы и получим корректный результат:

Функцию СЖПРОБЕЛЫ полезно применять к данным, которые импортируются в рабочие листы Excel из внешних источников. Такие данные очень часто содержат лишние пробелы и различные непечатаемые символы. Чтобы удалить все непечатаемые символы из текста, необходимо воспользоваться функцией ПЕЧСИМВ.

Функция ПОВТОР повторяет текстовую строку указанное количество раз. Строка задается как первый аргумент функции, а количество повторов как второй.

Текстовая функция НАЙТИ находит вхождение одной строки в другую и возвращает положение первого символа искомой фразы относительно начала текста.

Данная функция чувствительна к регистру…

… и может начинать просмотр текста с указанной позиции. На рисунке ниже формула начинает просмотр с четвертого символа, т.е. c буквы “r“. Но даже в этом случае положение символа считается относительно начала просматриваемого текста.

Текстовая функция ПОИСК очень похожа на функцию НАЙТИ, основное их различие заключается в том, что ПОИСК не чувствительна к регистру.

ПОДСТАВИТЬ

Заменяет определенный текст или символ на требуемое значение. В Excel текстовую функцию ПОДСТАВИТЬ применяют, когда заранее известно какой текст необходимо заменить, а не его местоположение.

Приведенная ниже формула заменяет все вхождения слова “Excel” на “Word”:

Заменяет только первое вхождение слова “Excel”:

Удаляет все пробелы из текстовой строки:

Заменяет символы, расположенные в заранее известном месте строки, на требуемое значение. В Excel текстовую функцию ЗАМЕНИТЬ применяют, когда известно где располагается текст, при этом сам он не важен.

Формула в примере ниже заменяет 4 символа, расположенные, начиная с седьмой позиции, на значение “2013”. Применительно к нашему примеру, формула заменит “2010” на “2013”.

Заменяет первые пять символов текстовой строки, т.е. слово “Excel”, на “Word”.

Вот и все! Мы познакомились с 15-ю текстовыми функциями Microsoft Excel и посмотрели их действие на простых примерах. Надеюсь, что данный урок пришелся Вам как раз кстати, и Вы получили от него хотя бы малость полезной информации. Всего доброго и успехов в изучении Excel!

Функции VBA для работы с текстом

• ASC ()— эта функция позволяет вернуть числовой код для переданного символа. Например, ASC( «D» ) вернет 68. Эту функцию удобно использовать для того, чтобы определить следующую или предыдущую букву. Обычно она используется вместе с функцией Chr(), которая производит обратную операцию — возвращает символ по переданному его числовому коду.Варианты этой функции — AscB() и AscW():
  • AscB () — возвращает только первый байт числового кода для символа.
  • AscW () — возвращает код для символа в кодировке Unicode
• Chr () — возвращает символ по его числовому коду. Может использоваться в паре с функцией Asc(), но чаще всего её применяют, когда нужно вывести служебный символ (например кавычки — » ), т.к. кавычки просто так в VBA-коде не ввести(нужно ставить двойные). Я обычно именно эту функцию и использую.

  Dim sWord As String sWord = Chr(34) & «Слово в кавычках» & Chr(34)

  Есть варианты этой функции — ChrB() и ChrW(). Работают аналогично таким же вариантам для функции Asc().
  InStr () и InStrRev ()— одна из самых популярных функций. Позволяет обнаружить в теле строковой переменной символ или последовательность символов и вернуть их позицию. Если последовательность не обнаружена, то возвращается 0.

  Dim sStr As String sStr = «w» If InStr(1, «Hello, World!», sStr, vbTextCompare) > 0 Then MsgBox «Искомое слово присутствует!» Else MsgBox «Искомое слово отсутствует!» End If

  Разница функций в том, что InStr() ищет указанное слово от начала строки, а InStrRev() с конца строки
  Left (), Right (), Mid ()— возможность взять указанное вами количество символов из существующей строковой переменной слева, справа или из середины соответственно.

  Dim sStr As String sStr = «Hello, World!» MsgBox Mid(sStr, 1, 5)

  Dim sStr As String sStr = «Hello, World!» MsgBox Replace(sStr, «Hello», «Bay»)

  Dim sStr As String sStr = «Hello, World!» MsgBox StrConv(«Hello, World!», vbUpperCase)

  В качестве второго параметра параметра могут применяться константы:

  • vbUpperCase: Преобразует все текстовые символы в ВЕРХНИЙ РЕГИСТР
  • vbLowerCase: Преобразует все текстовые символы в нижний регистр
  • vbProperCase: Переводит первый символ каждого слова в Верхний Регистр
  • *vbWide: Преобразует символы строки из однобайтовых в двухбайтовые
  • *vbNarrow: Преобразует символы строки из двухбайтовых в однобайтовые
  • **vbKatakana: Преобразует символы Hiragana в символы Katakana
  • **vbHiragana: Преобразует символы Katakana в символы Hiragana
  • ***vbUnicode: Преобразует строку в Юникод с помощью кодовой страницы системы по умолчанию
  • ***vbFromUnicode: Преобразует строку из Юникод в кодовую страницу системы по умолчанию

  * применимо для локализацией Дальнего востока
  ** применимо только для Японии
  *** не поддерживается операционными системами под управлением Macintosh

Поиск значений в списке данных

​Смотрите также​ я и хотела​ не связанных диапазона​ разный. Таких строк​Пример во вложении(на​ да и на​Application.EnableEvents = False​ сформирует правильную ссылку​ задачи дизайн не​.​ наименований строк и​ одно из них.​30108,26​). Как мы помним,​ когда таблица данных​ОК​ ячейка диапазона (также​Предположим, что требуется найти​ узнать нужую функцию​ и что с​

В этой статье

​ ежемесячно около 100,​ первом листе как​ английском все.​

​newVal = Target​ на внешний источник​ имеет значения. Наличие​

​После этого все ячейки,​ столбцов. Без выполнения​ Так как у​рублей. Но проблема​

​ у нас платеж​ используется с одним​.​

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

​ ним делать ума​ вручную приходится сидеть​ должно быть и​

Поиск значений в списке по вертикали по точному совпадению

​Как сделала выбор​Application.Undo​ информации.​ заголовка (шапки) важно.​ значения в которых​

Примеры функции ВПР

​ данного условия инструмент​ нас изменения переменной​ состоит в том,​

Примеры функций ИНДЕКС и ПОИСКПОЗ

​ проводится в конце​

​ переменным значением. Возьмем​Следуйте инструкциям мастера.​Формула​ сотрудника по его​ не приходить за​

​ не приложу​ и всё это​ ниже пустые шаблоны​​ что бы при​​oldval = Target​Делаем активной ячейку, куда​ В нашем примере​​ соответствуют вышеописанному условию,​​ при использовании двух​

​ происходит по столбцам,​ что заёмщик в​ календарного месяца, то​

​ наиболее типичный пример​

Поиск значений в списке по вертикали по приблизительному совпадению

​К началу страницы​ПОИСКПОЗ(«Апельсины»;C2:C7;0)​

​ идентификационному номеру или​​ готовыми решениями, а​VideoAlex​ делать..​

​ , на втором​ наборе первых слов​If Len(oldval) <>​ хотим поместить раскрывающийся​ это ячейка А1​ будут выделены цветом.​​ переменных работать не​​ то мы будем​ состоянии платить максимум​ есть, величина этого​ с кредитованием.​Довольно часто требуется рассчитать​ищет значение «Апельсины»​ узнать ставку комиссионного​ ее использовать, самостоятельно.​: В общем вот​​Юрий М​​ листе имена и​

​ выскакивало нужное значение​ 0 And oldval​ список.​

​ со словом «Деревья».​

Поиск значений по вертикали в списке неизвестного размера по точному совпадению

​Проанализировав табличный массив, можно​ будет.​ использовать поле​

​ 29000 рублей в​​ аргумента будет равна​Итак, в настоящее время​ итоговый результат для​ в диапазоне C2:C7.​ вознаграждения, предусмотренную за​VideoAlex​ вам файл с​: Lybo4ka, зайдите, пожалуйста,​ ip адреса) ,​ (фио)? Уж очень​ <> newVal Then​

​Открываем параметры проверки данных.​​ То есть нужно​ сделать некоторые выводы.​Затем выделяем весь полученный​

​«Подставить значения по столбцам​​ месяц, то есть,​​«0»​ нам предлагаются следующие​ различных комбинаций вводных​ Начальную ячейку не​ определенный объем продаж.​

​: И я тут​​ удф. делайте с​ в свой профиль​ за раннее огромное​ хочу понять и​Target = Target​ В поле «Источник»​ выбрать стиль таблицы​ Как видим, при​ табличный диапазон, включая​​ в»​​ ему следует либо​

​. Но, учитывая то,​

Поиск значений в списке по горизонтали по точному совпадению

​ условия кредитования:​ данных. Таким образом​ следует включать в​

​ Необходимые данные можно​ еще извиняюсь за​​ ним что хотите​​ и исправьте отображаемое​ спасибо всем кто​ осилить эту задачу.​

​ & «,» &​ вводим формулу: =ДВССЫЛ(“[Список1.xlsx]Лист1!$A$1:$A$9”).​ со строкой заголовка.​

​ существующем сроке кредитования​

Поиск значений в списке по горизонтали по приблизительному совпадению

​ наименование столбцов, строк​. Устанавливаем туда курсор,​

​ найти банк, предлагающий​​ что этот показатель​Срок кредитования – 3​ пользователь сможет оценить​

​ этот диапазон.​ быстро и эффективно​ тафтологии​Lyubov Vladimirova​ имя (ник): сейчас​ откликнулся на мольбу​Помогите советом или​ newVal​Имя файла, из которого​

​ Получаем следующий вид​ (36 месяцев), чтобы​ и ячейку с​

​ а затем кликаем​

Создание формулы подстановки с помощью мастера подстановок (только Excel 2007)

​ условия с более​​ не является обязательным,​ года (36 месяцев);​ все возможные варианты​1​ находить в списке​Lyubov Vladimirova​: в каждой строке​

​ оно с нарушением​ о помощи.​ ссылкой! Пожалуйста…​Else​ берется информация для​ диапазона:​ вложиться в выше​ формулой​ по ячейке в​ низкой процентной ставкой,​ и по умолчанию,​Сумма займа – 900000​ действий, отобрать те,​ — это количество столбцов,​ и автоматически проверять​

1. ​: Здравствуйте, дело в​

2. ​ в левом столбце​​ наших Правил. У​​_Boroda_​​Kuzmich​​Target = newVal​​ списка, заключено в​​Ставим курсор в ячейку,​

3. ​ обозначенную сумму ежемесячного​​ПЛТ​​ исходном наборе данных,​ либо уменьшить тело​

   ​ если его не​

4. ​ рублей;​​ результат взаимодействия которых​ ​ которое нужно отсчитать​ их правильность. Значения,​​ том, что это​​ есть какое-то уникальное​​ Вас ведь найдутся​​: Так нужно?​

5. ​: Как раз и​​End If​​ квадратные скобки. Этот​​ где будет находиться​​ платежа, нам нужно​​. Переходим во вкладку​​ которая содержит текущую​

6. ​ займа, либо увеличить​​ использовать, значение и​​Процентная ставка – 12,5%​ его удовлетворяет, и,​​ справа от начальной​​ возвращенные поиском, можно​​ был мой пример,​​ ключ слово, по​

7. ​ на клавиатуре символы​

​В соседний столбец​

support.office.com

Таблица данных в Microsoft Excel

​ начните с изучения​If Len(newVal) =​ файл должен быть​ выпадающий список. Открываем​ взять заём не​«Данные»​ величину процентов. После​ срок кредитования. Просчитать​ так подразумевается равным​ годовых.​ наконец, выбрать самый​ ячейки, чтобы получить​ затем использовать в​ который ввел в​​ которому Эксель бы​​c​​ такую формулу​​ логики работы кода​ 0 Then Target.ClearContents​ открыт. Если книга​ параметры инструмента «Проверка​

​ превышающий 860000,00 рублей,​. Как и в​

​ того, как координаты​ различные варианты действий​

Использование таблицы данных

​«0»​​Выплаты происходят в конце​​ оптимальный вариант. В​ столбец, из которого​ вычислениях или отображать​ заблуждение, вероятно, Вас.​ определял, что к​и​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЕСЛИ(A2=» Name=»;A2&ИНДЕКС(Лист2!A$4:A$541;СЧЁТЕСЛИ(A$1:A2;A2));ЕСЛИ(A2=» Address=»;A2&ИНДЕКС(Лист2!B$4:B$541;СЧЁТЕСЛИ(A$1:A2;A2));A2))&»»​ в этом примере.​Application.EnableEvents = True​ с нужными значениями​​ данных» (выше описан​​ то есть, на​ предыдущий раз, щелкаем​​ ячейки отобразились в​​ нам поможет таблица​, то в указанном​​ платежного периода (месяца)​​ Excel для выполнения​​ возвращается значение. В​​ как результаты. Существует​ помог разрешить вопрос.​ этой строке стоит​​h​​Ее можно укоротить,​Откройте файл Поиск​End If​ находится в другой​

​ путь). В поле​ 40000 меньше первоначально​ по кнопке​ поле, жмем на​ подстановок.​ примере его вообще​ по аннуитетной схеме,​ данной задачи существует​ этом примере значение​ несколько способов поиска​Lyubov Vladimirova​ присвоить значение «Зарплата​?​ я сознательно так​

​ значений в базе​End Sub​ папке, нужно указывать​ «Источник» прописываем такую​ запланированного.​«Анализ «что если»»​ кнопку​Для начала используем таблицу​ можно не применять.​ то есть, равными​ специальный инструмент –​ возвращается из столбца​ значений в списке​: VideoAlex, спасибо большое​

​ Эля» или «зарплата​​Спасибо!​​ написал, чтобы понятнее​ данных по первым​Не забываем менять диапазоны​ путь полностью.​ функцию:​Если же мы все-таки​, в группе инструментов​«OK»​ подстановок с одной​Итак, приступаем к расчету.​ долями. При этом,​«Таблица данных»​ D​ данных и отображения​ за помощь. Вероятно,​

​ Дима», и мне​Сергей Беляев​ было​ буквам…​ на «свои». Списки​Возьмем три именованных диапазона:​Протестируем. Вот наша таблица​

Способ 1: применение инструмента с одной переменной

​ намерены брать кредит​«Работа с данными»​.​ переменной. Посмотрим, как​ Выделяем ячейку на​ вначале всего срока​

​(​Продажи​ результатов.​

• ​ я еще вернусь​ хотелось бы понять,​
• ​: Не совсем понятно,​Нормальные формульные теги​
• ​Перейдите в редактор​ создаем классическим способом.​

​Это обязательное условие. Выше​ со списком на​ размером 900000 рублей,​. В открывшемся списке​Инструмент производит расчет и​ будет изменяться величина​ листе, куда будет​ кредитования значительную часть​«Таблица подстановки»​.​Поиск значений в списке​ с незначительными вопросами,​ какая формула могла​ потому что восьмая​ преобразовывают N в​ VBA​ А всю остальную​

​ описано, как сделать​ одном листе:​ то срок кредитования​ выбираем пункт​ заполняет весь табличный​ обязательного месячного платежа​ выводиться расчетное значение.​ выплат составляют процентные​​). Давайте узнаем, как​​К началу страницы​

​ по вертикали по​​ но большое-большое, огромное​ бы нам помочь​ позиция включает вторую.​ Ч, поэтому обставил​Слева будет VBAProject,​ работу будут делать​ обычный список именованным​Добавим в таблицу новое​ должен составлять 4​«Таблица данных…»​ диапазон значениями, которые​

​ при различных вариациях​

​ Клацаем по кнопке​​ платежи, но по​ им пользоваться для​Для выполнения этой задачи​ точному совпадению​ Вам спасибо.​ автоматизировать этот процесс.​ По какому признаку​ формулу VBA-шными тегами.​ выделите Forms-ufrmNilem –​ макросы.​ диапазоном (с помощью​

​ значение «елка».​​ года (48 месяцев).​.​ соответствуют различным вариантам​ годовой ставки, начиная​«Вставить функцию»​ мере сокращения тела​ выполнения указанных выше​ используется функция ГПР.​Поиск значений в списке​Михаил С.​Скажите пожалуйста, для​

​ исключить вторую позицию?​​sd31337​ правый клик мыши-ViewCode​На вкладке «Разработчик» находим​ «Диспетчера имен»). Помним,​Теперь удалим значение «береза».​ Только в таком​Запускается окно инструмента​ процентной ставки. Если​

​ от​​.​ процентные платежи уменьшаются,​ сценариев.​ См. пример ниже.​ по вертикали по​: тогда примерно так​ Вашего примера с​Вот решение с​:​Перед вами будет​ инструмент «Вставить» –​ что имя не​

​Осуществить задуманное нам помогла​​ случае размер ежемесячного​«Таблица данных»​ установить курсор в​9,5%​Запускается​ а увеличивается размер​​Скачать последнюю версию​​Функция ГПР выполняет поиск​ приблизительному совпадению​​ (см. файл)​​ Анной, Эксель определяет​ дополнительными столбцами. Можно​_Boroda_​ код, описывающий работу​ «ActiveX». Здесь нам​ может содержать пробелов​​ «умная таблица», которая​​ платежа не превысит​. В данном случае​ любой элемент данной​годовых и заканчивая​Мастер функций​ погашения самого тела.​ Excel​​ по столбцу​​Поиск значений по вертикали​Lyubov Vladimirova​ релевантное значение по​

1. ​ убрать на скрытый​,​ формы.​ нужна кнопка «Поле​ и знаков препинания.​​ легка «расширяется», меняется.​​ установленную границу в​

   

2. ​ нам потребуются оба​​ табличной области, то​​12,5%​. Производим переход в​​ Общая же выплата,​​Читайте также: Подбор параметра​Продажи​​ в списке неизвестного​​: Михаил, спасибо большое​ Имени Фамилии? У​​ лист. Решение тупое,​​Огромное СПАСИБО ,​

   

3. ​При инициализации формы​ со списком» (ориентируемся​Создадим первый выпадающий список,​

   ​Теперь сделаем так, чтобы​​ 29000 рублей.​​ поля. В поле​ можно увидеть, что​годовых с шагом​ категорию​ как уже было​ в Excel​и возвращает значение​ размера по точному​ за участие) Вопрос​ меня так не​ но рабочее и​ то что нужно​ Private Sub UserForm_Initialize()​​ на всплывающие подсказки).​​ куда войдут названия​

   ​ можно было вводить​​Таким образом, воспользовавшись данным​​«Подставлять значения по столбцам​ в строке формул​0,5%​«Финансовые»​ сказано выше, остается​

   ​Инструмент​​ из строки 5 в​​ совпадению​ решен, огромное спасибо,​ получалось. Мой Эксель​ понятное решение. Что​ =)​ в массив x​​Щелкаем по значку –​​ диапазонов.​ новые значения прямо​​ табличным массивом и​​ в»​ отображается не обычная​. Все остальные условия​, выбираем из перечня​ без изменений.​«Таблица данных»​ указанном диапазоне.​Поиск значений в списке​ что не остались​ брал только целое​ делать с вашим​​EndruAN​​ записывается​ становится активным «Режим​Когда поставили курсор в​​ в ячейку с​​ проанализировав «за» и​​указываем координаты ячейки,​​ формула расчета платежа,​​ оставляем неизменными. Чертим​​ наименование​

   ​Нужно рассчитать, какова будет​​предназначен для того,​​Дополнительные сведения см. в​​ по горизонтали по​​ равнодушны)​ значение из ячейки,​ Ивановым пока не​​: Есть в экселе​​диапазон от A2​

   

4. ​ конструктора». Рисуем курсором​ поле «Источник», переходим​ этим списком. И​ «против» каждого варианта,​ содержащей срок кредита​​ а специальная формула​​ табличный диапазон, наименования​«ПЛТ»​ сумма ежемесячного платежа,​ чтобы рассчитывать результат​ разделе, посвященном функции​ точному совпадению​Lyubov Vladimirova​ со всеми символами,​ ясно. Как решите​ таблица со списком​ до последней непустой​ (он становится «крестиком»)​ на лист и​ данные автоматически добавлялись​ заёмщик может принять​ в первичных данных.​

   

5. ​ неразрывного массива. То​ колонок которого будут​и клацаем по​ включающего в себя​ при различных вариациях​ ГПР.​Поиск значений в списке​: VideoAlex, доброго времени​​ что нам не​​ сами так и​​ продуктов, и категорий.​​ ячейки в столбце​​ небольшой прямоугольник –​​ выделяем попеременно нужные​ в диапазон.​ конкретное решение об​ В поле​ есть, изменять значения​ соответствовать различным вариациям​ кнопке​​ погашение тела кредита​​ одной или двух​К началу страницы​ по горизонтали по​ суток) У нас​ подходит т.к. идентификатор​ ответ получите.​ Например, каши -​​ А (Sheet1)​​ место будущего списка.​​ ячейки.​​Сформируем именованный диапазон. Путь:​ условиях кредитования, выбрав​«Подставлять значения по строкам​

   

6. ​ в отдельных ячейках​ процентной ставки. При​«OK»​ и выплат по​ определенных переменных. После​​Для выполнения этой задачи​​ приблизительному совпадению​ возникли проблемы с​​ всегда другой, в​​Lyubov Vladimirova​​ рис, гречка… Нужно​​x = Range(«A2»,​Жмем «Свойства» – открывается​​Теперь создадим второй раскрывающийся​​ «Формулы» — «Диспетчер​

   

7. ​ наиболее отвечающий его​ в»​ теперь нельзя. Удалять​ этом строку​.​ процентам. Для этого​ расчета все возможные​ используется функция ГПР.​Создание формулы подстановки с​​ макросом ) в​​ конце (5W3229PU24E5U). А​: Добрый день, Сергей.​ что-бы при выборе​ Cells(Rows.Count, 1).End(xlUp)).Value​

   

8. ​ перечень настроек.​ список. В нем​​ имен» — «Создать».​​ пожеланиям вариант из​указываем адрес ячейки​ результаты расчета можно​«Ежемесячные выплаты»​​Вслед за этим происходит​​ в Экселе имеется​ варианты предстанут в​​Важно:​​ помощью мастера подстановок​ англоязычной версии у​​ можете, пожалуйста, пояснить​​ 8-я и 2-я​ ячейки с выпадающим​​Затем вы вводите​​Вписываем диапазон в строку​ должны отражаться те​ Вводим уникальное название​​ всех возможных.​​ исходных параметров, содержащей​

   

9. ​ только все вместе,​оставляем так, как​​ активация окошка аргументов​​ оператор​ виде таблицы, которую​  Значения в первой​ (только Excel 2007)​ меня появляется такая​ алгоритм действий, если​ позиция отличны друг​ списком категорий, в​ в TextBox1 какую-либо​ ListFillRange (руками). Ячейку,​ слова, которые соответствуют​ диапазона – ОК.​​Конечно, таблицу подстановок можно​ величину тела кредита.​​ а не по​ есть. В первой​ вышеуказанной функции.​ПЛТ​ называют матрицей факторного​ строке должны быть​Для решения этой задачи​ ошибка (см. скриншот)​ не сложно? Я​ от друга, ничего​​ другой ячейке формировался​​ букву, срабатывает процедура​

   

10. ​ куда будет выводиться​ выбранному в первом​Создаем раскрывающийся список в​ использовать не только​ После того, как​ отдельности.​ её ячейке должна​Ставим курсор в поле​.​ анализа.​ отсортированы по возрастанию.​ можно использовать функцию​лог​ новичок в Экселе,​ исключать мы не​ список входящий только​Private Sub TextBox1_Change()​ выбранное значение –​ списке названию. Если​ любой ячейке. Как​ для расчета кредитных​

​ все данные введены.​Кроме того, можно заметить,​ содержаться формула, которую​«Ставка»​ПЛТ​«Таблица данных»​В приведенном выше примере​ ВПР или сочетание​->​ спасибо большое.​​ можем. В том-то​​ в эту категорию.​ и в ListBox1​

​ в строку LinkedCell.​ «Деревья», то «граб»,​ это сделать, уже​ вариантов, но и​ Клацаем по кнопке​ что величина ежемесячного​ мы рассчитали ранее.​, после чего кликаем​

​относится к группе​относится к группе​

Способ 2: использование инструмента с двумя переменными

​ функция ГПР ищет​ функций ИНДЕКС и​error111720_02.xml​Сергей Беляев​ и дело, что​Таблица с продуктами​ записываются все значения​ Для изменения шрифта​ «дуб» и т.д.​ известно. Источник –​ для решения множества​«OK»​ платежа при 12.5%​ Для большей информативности​ по ячейке на​ финансовых функций и​ инструментов​ значение 11 000 в строке 3​​ ПОИСКПОЗ.​​Errors were detected​: Извиняюсь, что забыл​

1. ​ я сама не​ построена по принципу​ из​ и размера –​​ Вводим в поле​​ имя диапазона: =деревья.​​ других задач.​​.​ годовых, полученная в​ можно добавить строки​ листе со значением​ его задачей является​«Анализ «что если»»​​ в указанном диапазоне.​​Дополнительные сведения см. в​​ in file ‘C:UsersUser_XDownloads1​​ решение приложить.​​ могу это решить​​ ячейка 1 категория,​диапазона х, начинающиеся​ Font.​ «Источник» функцию вида​Снимаем галочки на вкладках​Урок: Условное форматирование в​​Программа выполняет расчет и​​ результате применения таблицы​«Общая сумма кредита»​ годовой процентной ставки.​ вычисление ежемесячного кредитного​, которая размещена на​ Значение 11 000 отсутствует, поэтому​ разделе, посвященном функции​

   

2. ​ (2).xlsm’​VideoAlex​ ) Придется программу​ ячейка 2 продукт.​ на эту букву.​​Скачать пример выпадающего списка​​ =ДВССЫЛ(E3). E3 –​​ «Сообщение для ввода»,​​ Экселе​ заполняет табличный диапазон​ подстановок, соответствует величине​​и​​ Как видим, в​​ платежа аннуитетного типа​​ ленте во вкладке​ она ищет следующее​​ ВПР.​​-​

   

3. ​: Моя функция берет​​ писать какую-нибудь )​​Vlad999​При выборе какого-либо​При вводе первых букв​​ ячейка с именем​ «Сообщение об ошибке».​​В общем, нужно отметить,​ данными. На пересечении​ при том же​«Общая сумма процентов»​​ поле тут же​ на основании суммы​​«Данные»​ максимальное значение, не​Что означает:​Removed Part: /xl/vbaProject.bin​ столько сколько ей​ Раз Экселем нет​​: Условия Excel 2007​​ значения в ListBox1​

   

4. ​ с клавиатуры высвечиваются​ первого диапазона.​ Если этого не​ что таблица подстановок​ строк и столбцов​ размере процентов, которую​. Столбец, в котором​ отображаются её координаты.​ тела кредита, срока​в блоке​

   

5. ​ превышающее 11 000, и возвращает​=ИНДЕКС(нужно вернуть значение из​ part. (Visual Basic​ дают​ решения. Спасибо)​ не это ищете?​ происходит выделение этого​ подходящие элементы. И​Бывает, когда из раскрывающегося​ сделать, Excel не​ является очень полезным​ теперь можно наблюдать,​ мы получили путем​ находится расчет, делаем​ Но, как мы​ кредитования и процентной​«Работа с данными»​

   

6. ​ 10 543.​​ C2:C10, которое будет​​ for Applications (VBA))​Вы можете и​​VideoAlex​​KoGG​ значения в диапазоне.​​ это далеко не​​ списка необходимо выбрать​ позволит нам вводить​ и сравнительно простым​​ каким именно будет​​ применения функции​ без заголовка.​​ помним, нам нужна​​ ставки. Синтаксис этой​

   

7. ​. До версии Excel​Дополнительные сведения см. в​ соответствовать ПОИСКПОЗ(первое значение​Вопрос: можно этот​ по одной букве​: Думаю что Иванов​: файл приложите и​Попробуйте на листе​ все приятные моменты​ сразу несколько элементов.​ новые значения.​​ инструментом для определения​​ ежемесячный платеж, при​ПЛТ​Далее рассчитаем общую сумму​ месячная ставка, а​ функции представлен в​ 2007 этот инструмент​ разделе, посвященном функции​ «Капуста» в массиве​ макрос мне в​ искать соответствие, но​​ и Дима это​​ опишите в какой​

   

8. ​ Sheet1 заполнить базу​ данного инструмента. Здесь​ Рассмотрим пути реализации​Вызываем редактор Visual Basic.​

​ результата при различных​ соответствующей величине годовых​. Это лишний раз​ займа при текущих​ поэтому производим деление​ таком виде​ носил наименование​ ГПР.​ B2:B10))​ Plain Text увидеть?​ вероятность ошибки будет​ один человек и​ ячейке вып. список​

​ данных, нажав на​ можно настраивать визуальное​ задачи.​ Для этого щелкаем​ комбинациях переменных. Применив​ процентов и указанном​ доказывает правильность расчета.​ условиях. Для этого​ полученного результата на​=ПЛТ(ставка;кпер;пс;бс;тип)​«Таблица подстановки»​

​К началу страницы​Формула ищет в C2:C10​ Ибо компьютер ругается​ очень велика​ зарплата Иванову будет​ и где должно​ стрелку Заполнить.. (​ представление информации, указывать​Создаем стандартный список с​ правой кнопкой мыши​

​ одновременно с ним​ сроке кредитования.​Проанализировав данный табличный массив,​ выделяем первую ячейку​ 12 (​«Ставка»​

​, что даже более​Примечание:​

​ первое значение, соответствующее​ на него и​VideoAlex​ или Диме -​ появляться содержание выбранной​ в В1 установите​ в качестве источника​ помощью инструмента «Проверка​ по названию листа​ условное форматирование, кроме​Как видим, значений довольно​

​ следует сказать, что,​

lumpics.ru

Выпадающий список в Excel с помощью инструментов или макросов

​ строки​/12​— аргумент, определяющий​ точно отражало его​ Поддержка надстройки «Мастер подстановок»​ значению​ рубит на корню.​

​: Алгоритм прост до​ не критично. ТС​ категории.​ 20 –​ сразу два столбца.​ данных». Добавляем в​ и переходим по​ того, можно визуализировать​ много. Для решения​ как видим, только​

Создание раскрывающегося списка

​«Общая сумма кредита»​).​ процентную ставку кредитных​ суть, чем нынешнее​ в Excel 2010​

​Капуста​ Прикрепленные файлы Error_Message1.png​ безобразия.​ просто устала и​

1. ​Сделано.​будет 20 случайных​
2. ​Marina_Spb​ исходный код листа​ вкладке «Исходный текст».​ полученную информацию.​
3. ​ других задач их​ при ставке 9,5%​и умножаем содержимое​В поле​

​ выплат. Показатель выставляется​ название.​

​ прекращена. Эта надстройка​

Выпадающий список в Excel с подстановкой данных

​(B7), и возвращает​ (4.52 КБ)​Функция берет каждое​ по запарке два​Lybo4ka​ значений).​: Здравствуйте!​ готовый макрос. Как​

1. ​ Либо одновременно нажимаем​Автор: Максим Тютюшев​ может быть ещё​ годовых получается приемлемый​
2. ​ ячеек​«Кпер»​ за период. У​Таблицу подстановки можно использовать​ была заменена мастером​ значение в ячейке​VideoAlex​ значение из списка​ раза этого Иванова​: Здравствуйте, уважаемые форумчане.​Затем кликните Поиск​Сделала выбор из​ это делать, описано​
3. ​ клавиши Alt +​Под выпадающим списком понимается​ больше. Поэтому, чтобы​ для нас уровень​«Ежемесячный платеж»​таким же образом​ нас период выплат​ во многих случаях.​

​ функций и функциями​ C7 (​: Public Function Morgan_Freeman(chto​

​ соответствий и сравнивает​ воткнула. Сергей Беляев,​

​ Столкнулись с одной​

​ с формой и​ списка, все хорошо,​ выше. С его​

​ F11. Копируем код​ содержание в одной​ сделать выдачу результатов​ ежемесячного платежа (менее​и​ вносим координаты ячеек​ равен месяцу. Поэтому​

1. ​ Например, типичный вариант,​ для работы со​100​ As String, gde​ его с НАЧАЛОМ​
2. ​ хотелось бы посмотреть​ задачкой, с которой​ проделайте процедуру, описанную​ но когда 200​ помощью справа от​
3. ​ (только вставьте свои​ ячейке нескольких значений.​ более наглядной и​ 29000 рублей).​«Срок кредита»​ срока кредита. В​ годовую ставку в​
4. ​ когда нужно рассчитать​ ссылками и массивами.​).​ As Range) Dim​ заданной строки. Когда​ на решение.​ не можем справиться,​ выше.​ значений (ФИО), сложно​ выпадающего списка будут​ параметры).Private Sub Worksheet_Change(ByVal​ Когда пользователь щелкает​ сразу определить, какие​Урок: Расчет аннуитетного платежа​. После этого щелкаем​ этом случае делить​ 12,5% следует разбить​ сумму ежемесячного платежа​В Excel 2007 мастер​Дополнительные сведения см. в​ arr(), i As​ находит совпадение просто​Lybo4ka, макросы подойдут?​ на форуме впервые,​Попробуйте применить это​ и долго их​ добавляться выбранные значения.Private​ Target As Range)​ по стрелочке справа,​ значения не удовлетворяют​ в Экселе​ по клавише​ ничего не надо.​
5. ​ на число месяцев​ по кредиту при​
6. ​ подстановок создает формулу​ разделах, посвященных функциям​ Integer arr =​ берет соответствующее значение​Пока писал ТС​ надеюсь на любезность​ к своему файлу​ искать в списке.​

​ Sub Worksheet_Change(ByVal Target​ Dim lReply As​ появляется определенный перечень.​ заданному условию, можно​Конечно, отыскать в настоящее​Enter​

​В поле​ в году, то​ различных вариациях периода​

Выпадающий список в Excel с данными с другого листа/файла

​ подстановки, основанную на​ ИНДЕКС и ПОИСКПОЗ.​ gde For i​ из списка соответствий.​ ответила и ответ​ с вашей стороны​sd31337​Как можно сделать,​ As Range) On​ Long If Target.Cells.Count​ Можно выбрать конкретное.​

1. ​ использовать инструменты визуализации.​ время банки, которые​.​
2. ​«Пс»​ есть, 12.​ кредитования и суммы​

​ данных листа, содержащих​К началу страницы​ = 1 To​ Извините за тафталогию​ меня поразил. Как​ и подсказке, можно​: Добрый день!​ что бы при​ Error Resume Next​ > 1 Then​

Как сделать зависимые выпадающие списки

​Очень удобный инструмент Excel​

​ В нашем случае​ выдают кредит под​Для расчета общей суммы​нужно указать координаты​«Кпер»​ займа, либо периода​ названия строк и​Для выполнения этой задачи​

1. ​ UBound(arr, 1) If​Сергей Беляев​ тогда отличать Иванова​
2. ​ ли нашу потребность​Не раз спасали​ наборе первых слов​ If Not Intersect(Target,​ Exit Sub If​
3. ​ для проверки введенных​ это будет условное​ 9,5% годовых, очень​ процентов при текущих​ ячейки, содержащей величину​— аргумент, определяющий​ кредитования и процентной​ столбцов. С помощью​ используется функция ВПР.​ Left(chto, Len(arr(i, 1)))​: Ексель как и​ от Дмитрия?​ реализовать при помощи​
   

   Выбор нескольких значений из выпадающего списка Excel

   ​ на Вашем форуме​ выскакивало нужное значение?​ Range(«Е2:Е9»)) Is Nothing​ Target.Address = «$C$2″​ данных. Повысить комфорт​

   1. ​ форматирование. Выделяем все​ сложно, если вообще​ условиях аналогичным образом​ тела кредита. Выполняем​ численность периодов за​ ставки. Также этот​ мастера подстановок можно​Важно:​ = arr(i, 1)​ другая программа может​Lyubov Vladimirova​ Эксель.​ .​Спасибо​ And Target.Cells.Count =​ Then If IsEmpty(Target)​ работы с данными​ значения табличного диапазона,​ реально. Поэтому посмотрим,​ отнимаем от общей​ это. Также ставим​ весь срок предоставления​ инструмент можно использовать​ найти остальные значения​  Значения в первой​ Then Morgan_Freeman =​
   2. ​ справиться с любой​: Подойдет все, если​В Excel таблице​Столкнулся с задачей​Serge_007​ 1 Then Application.EnableEvents​ Then Exit Sub​ позволяют возможности выпадающих​ исключая заголовки строк​ какие варианты существуют​ суммы займа величину​ перед отобразившемся координатами​ кредита. В нашем​ при анализе моделей​ в строке, если​ строке должны быть​ arr(i, 2) Next​ проблемой(ну почти с​ будет работать…список справа-​
   3. ​ нам нужно автоматически​ добавления новых устройств​: http://www.excelworld.ru/board/vba/tricks/find_in_database/9-1-0-27​ = False If​ If WorksheetFunction.CountIf(Range(«Деревья»), Target)​
​ списков: подстановка данных,​ и столбцов.​
​ вложиться в приемлемый​ тела кредита. Для​
​ знак​ примере период равен​ инвестиционных проектов.​ известно значение в​
​ отсортированы по возрастанию.​
​ End Function​
​ любой). Проблема заключается​
​ он будет дополняться,​
​ сопоставить ячейки с​ к карте мониторинга​Marina_Spb​
​ Len(Target.Offset(0, 1)) =​ = 0 Then​ отображение данных другого​
​Перемещаемся во вкладку​
​ уровень ежемесячного платежа​
​ вывода результата на​
​«-»​ одному месяцу, а​
​Но также следует знать,​
​ одном столбце, и​
​В приведенном выше примере​


   ​Влад​ в том, что​ («оплата за телефон,​ рандомным текстом (содержащим,​ .​: Я правильно поняла,​

   Выпадающий список с поиском

   1. ​ 0 Then Target.Offset(0,​ lReply = MsgBox(«Добавить​ листа или файла,​«Главная»​ при различных комбинациях​ экран щелкаем по​
   2. ​. Дело в том,​ срок кредитования составляет​ что чрезмерное применение​ наоборот. В формулах,​ функция ВПР ищет​: Хых… Видали мы​
   3. ​ у вас противоречивые​ Платеж за одну​
   4. ​ однако, чёткие ключевые​Руками добавлять почти​ что это можно​ 1) = Target​ введенное имя «​ наличие функции поиска​и клацаем по​ других переменных: величины​

   ​ кнопке​

   ​ что функция​ 3 года или​ данного инструмента может​ которые создает мастер​ имя первого учащегося​ такие траблы) Вылазит​ условия, поэтому ни​ услугу, платеж за​ слова, которые мы​ 600 объектов очень​

   exceltable.com

Подстановка данных при вводе из имеющегося списка (Формулы/Formulas)

​ только с помощью​​ Else Target.End(xlToRight).Offset(0, 1)​
​ & _ Target​ и зависимости.​ значку​ тела займа и​Enter​ПЛТ​
​ 36 месяцев. Таким​ привести к торможению​ подстановок, используются функции​ с 6 пропусками в​
​ на тех машинах,​

​ на Си ни​​ другую услугу, чтобы​

​ загодя знаем), с​​ долго , если​ макросов?​ = Target End​ & » в​

​Путь: меню «Данные» -​​«Условное форматирование»​ срока кредитования. При​. Таким образом мы​по умолчанию выдает​ образом, количество периодов​ системы, так как​
​ ИНДЕКС и ПОИСКПОЗ.​ диапазоне A2:B7. Учащихся​

​ где при установке​​ на на Асемблере​ в этих цифрах​ унифицированным описанием этих​ есть люди знающие​Nic70y​ If Target.ClearContents Application.EnableEvents​ выпадающий список?», vbYesNo​ инструмент «Проверка данных»​
​. Он расположен в​ этом процентную ставку​ получаем сумму, которую​ итоговый результат именно​
​ будет рано 36.​

​ пересчет данных производится​​Щелкните ячейку в диапазоне.​ с​ офиса была снята​ даже вашу проблему​ не сидеть и​ ячеек, которое мы​ как из списка​: Если к ячейке,​ = True End​ + vbQuestion) If​ — вкладка «Параметры».​ блоке инструментов​ оставим неизменной (12,5%).​
​ переплачиваем при возврате​ с отрицательным знаком,​«ПС»​ постоянно. Поэтому рекомендуется​На вкладке​6​ галка на установке​
​ не решить. У​ не путаться из​

​ также загодя подготовим​​ в .тхт либо​ в которую нужно​ If End Sub​ lReply = vbYes​
​ Тип данных –​«Стили»​ В решении данной​ займа.​
​ справедливо считая ежемесячный​— аргумент, определяющий​
​ в небольших табличных​Формулы​ пропусками в таблице нет,​
​ VBA.​ вас нет условия.​ первого столбца..)мне бы​
​ и которое должно​ из столбца ,​ вводить, будет прилегать​Чтобы выбранные значения показывались​
​ Then Range(«Деревья»).Cells(Range(«Деревья»).Rows.Count +​ «Список».​на ленте. В​ задачи нам поможет​
​Теперь настало время применить​ кредитный платеж убытком.​
​ приведенную стоимость кредита,​ массивах для решения​в группе​
​ поэтому функция ВПР​rango​ Вы не привели​ хотелось увидеть решение,​
​ вставляться напротив них,​ подставить значения по​
​ сам список, то​ снизу, вставляем другой​ 1, 1) =​Ввести значения, из которых​
​ раскрывшемся меню выбираем​ инструмент​ инструмент​ Но нам для​ то есть, это​ аналогичных задач не​
​Решения​ ищет первую запись​
​: Добрый день!​ пример Иванова Дмитрия​ как это можно​ в зависимости от​
​ нужно мне критерию​ и макросов не​

excelworld.ru

подставить значения из списка (Формулы/Formulas)

​ код обработчика.Private Sub​​ Target End If​
​ будет складываться выпадающий​ пункт​«Таблица данных»​
​«Таблица данных»​ наглядности применения таблицы​ размер тела кредита​ использовать этот инструмент,​
​выберите команду​ со следующим максимальным​имеются листы с​ такого как у​ реализовать.​ содержащейся в них​Суть проблемы .​ надо.​ Worksheet_Change(ByVal Target As​
​ End If End​
​ список, можно разными​
​«Правила выделения ячеек»​
​с использованием двух​
​. Выделяем весь табличный​
​ данных нужно, чтобы​
​ на момент его​
​ а применять копирование​
​Подстановка​
​ значением, не превышающим​​ названиями по месяцам​​ вас во второй​​VideoAlex​​ части текста. Формулу​Есть список вида​
​А без Вашего​ Range) On Error​
​ If End Sub​​ способами:​​. В дополнительном списке​ переменных.​
​ массив, кроме наименований​
​ данное число было​
​ выдачи. В нашем​
​ формул с помощью​
​.​​ 6. Она находит​​ внутри которых одинаковые​ позиции. Если вам​
​: Когда ответите как​ ВПР / VLOOKUP​50109 10.50.27.1​ примера неизвестно.​ Resume Next If​Сохраняем, установив тип файла​Вручную через «точку-с-запятой» в​ кликаем по позиции​Чертим новый табличный массив.​ строк. После этого​ положительным. Поэтому мы​

​ случае этот показатель​​ маркера заполнения.​
​Если команда​ значение 5 и возвращает​
​ таблицы.​
​ надо искать такого,​ отличить иванова от​ не подходит, так​50111 10.50.27.129​
​Marina_Spb​ Not Intersect(Target, Range(«Н2:К2»))​ «с поддержкой макросов».​ поле «Источник».​

​«Меньше…»​​ Теперь в наименованиях​​ переходим во вкладку​​ и ставим знак​
​ равен 900000 рублей.​Оправданным применение​Подстановка​

excelworld.ru

Подстановка при выборе из выпадающего списка

​ связанное с ним​​Задача сделать сводную​ но после него​ дмитрия тогда можно​ как она ищет​50117 10.50.29.1​: Мозг вскипел) изучила​ Is Nothing And​Переходим на лист со​Ввести значения заранее. А​.​ столбцов будет указываться​
​«Данные»​«минус»​«БС»​«Таблицы данных»​

​недоступна, необходимо загрузить​​ имя​ таблицу и универсальную​

​ не будет больше​​ будет взяться за​ или точное или​50118 10.50.29.65​ ссылку Сергея, ну​ Target.Cells.Count = 1​ списком. Вкладка «Разработчик»​

​ в качестве источника​

CyberForum.ru

Автоматическая подстановка значений в необходимые ячейки

​Вслед за этим открывается​​ срок кредитования (от​. Щелкаем по кнопке​перед одним из​— аргумент, указывающий​является только в​ надстройка мастера подстановок.​Алексей​ формулу собирающую данные​ данных, то это​ решение а пока​ же примерное совпадение,​
​50122 10.50.30.65​ не осилить мне​ Then Application.EnableEvents =​ — «Код» -​ указать диапазон ячеек​ окно настройки условного​2​ на ленте​ аргументов функции. Как​ на величину тела​ больших табличных диапазонах,​Загрузка надстройки мастера подстановок​.​ из всех листов,​ не проблема.​ смысла не вижу​ получается или ничего​50130 10.50.32.65​ это. Я даже​ False If Len(Target.Offset(1,​ «Макросы». Сочетание клавиш​ со списком.​ форматирования. В левом​до​«Анализ «что если»»​ известно, умножение​ кредита на момент​ когда копирование формул​Нажмите кнопку​Дополнительные сведения см. в​ с авто подстановкой​Михаил С.​Lyubov Vladimirova​ не комментирует, т.к.​50133 10.50.33.1​ не понимаю с​ 0)) = 0​
​ для быстрого вызова​​Назначить имя для диапазона​ поле указываем величину,​​6​
​, которая размещена в​«минус»​ его полной выплаты.​ может отнять большое​Microsoft Office​ разделе, посвященном функции​

​ названия листов из​​: Lyubov Vladimirova, а​: Хорошо, дайте мне​ точно совпадать код​где​ чего начать. Пример​ Then Target.Offset(1, 0)​ – Alt +​ значений и в​​ менее которой ячейки​​лет в месяцах​​ группе инструментов​​на​
​ Естественно, что данный​

​ количество времени, а​​, а затем —​ ВПР.​ ячеек строки 1​ вот к этим​ немного времени.​
​ напротив фамилии не​50109​ хороший, но для​ = Target Else​ F8. Выбираем нужное​ поле источник вписать​ будут выделены. Как​ с шагом в​«Работа с данными»​«минус»​ показатель будет равен​

​ во время самой​​ кнопку​К началу страницы​rango​ данным что соответствует?​Вот здесь я​ будет 2 раза​\ имя устройства​ профи.​ Target.End(xlDown).Offset(1, 0) =​ имя. Нажимаем «Выполнить».​ это имя.​ помним, нас удовлетворяет​ один год), а​

​(в Excel 2016​​в итоге дает​ нулю. Этот аргумент​ процедуры увеличивается вероятность​Параметры Excel​Для выполнения этой задачи​: Другими словами нужно​Lyubov Vladimirova​ добавила ориентировочный именованный​ никогда или же​10.50.27.1​При том, что​ Target End If​
​Когда мы введем в​
​Любой из вариантов даст​ условие, при котором​ в строках —​ группа инструментов​«плюс»​

​ не является обязательным​​ допущения ошибок. Но​и выберите категорию​ используются функции СМЕЩ​ вместо обычной ссылки​: Пожалуйста, не могли​ список тех значений,​ вписывает любое ближайшее​\ IP адрес​ с обычными формулами​ Target.ClearContents Application.EnableEvents =​ пустую ячейку выпадающего​ такой результат.​ ежемесячный платеж по​ величина тела кредита​

​«Прогноз»​​.​ параметром. Если его​ и в этом​Надстройки​ и ПОИСКПОЗ.​ на ячейку другого​

​ бы вы описать​​ которые должны подставляться​ значение, т.е. любое​
​ устройства​ excel я неплохо​ True End If​ списка новое наименование,​​ кредиту будет составлять​ (от​). Затем открывается небольшое​В поля​ пропустить, то подразумевается,​ случае рекомендуется в​

​.​​Примечание:​ листа вида​ алгоритм данной функции?​ к каждой соответствующей​ описание, а нам​Необходимо подряд подставить​ справляюсь)​ End Sub​ появится сообщение: «Добавить​Необходимо сделать раскрывающийся список​

​ менее​​850000​ меню. В нем​«Бс»​ что он равен​

​ диапазоне таблицы подстановки​​В поле​ Данный метод целесообразно использовать​=сентябрь!R[1]C​ Если не сложно?​ строке. Извините пожалуйста,​ нужна чёткая идентификация​ значения в​Прошу помощи!?​Чтобы выбираемые значения отображались​ введенное имя баобаб​ со значениями из​29000​до​ выбираем позицию​
​и​ числу «0».​ отключить автоматический пересчет​Управление​ при поиске данных​использовать формулу​ Спасибо. Если нет,​ если ввела в​ по части текста,​Name=​Marina_Spb​ в одной ячейке,​ в выпадающий список?».​ динамического диапазона. Если​рублей. Вписываем данное​950000​«Таблица данных…»​«Тип»​«Тип»​

​ формул, во избежание​​выберите значение​ в ежедневно обновляемом​

​с подстановкой значения названия​​ то ладно, будем​ заблуждение отправленным вначале​ т.е. по фамилии​
​50270​: Спустя почти пять​ разделенные любым знаком​Нажмем «Да» и добавиться​ вносятся изменения в​

​ число. В правом​​рублей с шагом​.​
​данные вообще не​— также необязательный​ излишней нагрузки на​Надстройки Excel​ внешнем диапазоне данных.​ книги​ разбираться )​ файлом со своими​ или по названию​

​\сюда добавить следующий​​ часов разобралась я​ препинания, применим такой​ еще одна строка​ имеющийся диапазон (добавляются​ поле существует возможность​10000​Открывается небольшое окошко, которое​ вносим. Клацаем по​ аргумент. Он сообщает​ систему.​и нажмите кнопку​ Известна цена в​из ячейки: Вместо​VideoAlex​ отметками. Здесь немного​ конторы, т.к. большинство​ объект​ немного что такое​ модуль.​ со значением «баобаб».​ или удаляются данные),​ выбора цвета выделения,​рублей). При этом​

​ так и называется​​ кнопке​ о том, когда​Главное отличие между различными​

​Перейти​​ столбце B, но​сентябрь​: Да вроде описал.​ понятнее информация выглядит?​ платежей у нас​Left=43​ макрос, даже смогла​

​Private Sub Worksheet_Change(ByVal​​Когда значения для выпадающего​

​ они автоматически отражаются​​ хотя можно оставить​ обязательным условием является​«Таблица данных»​«OK»​ именно будет проводиться​ вариантами применения таблицы​.​ неизвестно, сколько строк​- формула.​Lyubov Vladimirova​VideoAlex​ повторяющиеся, но названия​

​Top=43​​ добавить перевод «из​ Target As Range)​ списка расположены на​

​ в раскрывающемся списке.​​ его и по​ то, чтобы ячейка,​. Как видим, у​.​ платеж: в начале​ данных состоит в​

​В области​​ данных возвратит сервер,​Не понимаю какую​: Здравствуйте, к этим​: Теперь появился вопрос​ у многих неочевидные.​Group=8​

​ цифры в сумму»,​​On Error Resume​ другом листе или​

​Выделяем диапазон для выпадающего​​ умолчанию. После того,​ в которой находится​ него имеется два​После этого оператор производит​ периода (параметр –​

​If Not Intersect(Target,​​ стандартный способ не​ меню находим инструмент​ настройки введены, клацаем​ нашем случае​ мы работаем с​ в заранее обозначенную​) или в конце​ одна переменная или​ с пунктом​ алфавитном порядке.​: Код =ДВССЫЛ(B$1&»!B»&СТРОКА(B3))​ добавим впоследствиии, которые​ файл был гораздо​

​ было бы реализовать​​10.50.67.65​ не пойму как​ Range(«C2:C5»)) Is Nothing​ работает. Решить задачу​ «Форматировать как таблицу».​ по кнопке​ПЛТ​

planetaexcel.ru

Подстановка в формулу значения из ячейки в качестве названия листа

​ одной переменной, то​​ ячейку результат общего​
​ периода (параметр –​ две.​Мастер подстановок​C1​
​rango​ будут добавлены в​ понятнее. Этот файл​) Подскажите, пожалуйста.​\сюда добавить ip​ создать такие ячейки​ And Target.Cells.Count =​

​ можно с помощью​​Откроются стили. Выбираем любой.​«OK»​), располагалась на границе​ нам понадобится только​​ ежемесячного платежа –​​«0»​​Сразу давайте рассмотрим вариант,​и нажмите кнопку​​ — это левая верхняя​​: Спасибо!​​ будущем) Для того​
​ просто два ничем​Идентификационный код всегда​

​ адрес этого объекта​​ как в образце,​

​ 1 Then​​ функции ДВССЫЛ: она​

CyberForum.ru

​ Для решения нашей​

Функция ПОДСТАВИТЬ в Excel выполняет динамическую замену определенной части строки на указанное новое значение и возвращает новую строку, содержащую замененную часть текста. Благодаря этой функции можно подставлять значения из другой ячейки. Рассмотрим возможности функции на конкретных примерах в Excel.

Функция ПОДСТАВИТЬ при условии подставляет значение

Пример 1. В результате расчетов, произведенных в некотором приложении, были получены некоторые значения, записанные в таблицу Excel. Некоторые величины рассчитать не удалось, и вместо числового представления была сгенерирована ошибка “NaN”. Необходимо заменить все значения “NaN” на число 0 в соответствующих строках.

Таблица данных:

Для замены и подстановки используем рассматриваемую формулу в качестве массива. Вначале выделим диапазон ячеек C2:C9, затем введем формулу через комбинацию Ctrl+Shift+Enter:

Функция ЧЗНАЧ выполняет преобразование полученных текстовых строк к числовым значениям. Описание аргументов функции ПОДСТАВИТЬ:

• B2:B9 – диапазон ячеек, в которых требуется выполнить замену части строки;
• “NaN” – фрагмент текста, который будет заменен;
• 0 – фрагмент, который будет вставлен на место заменяемого фрагмента.

Для подстановки значений во всех ячейках необходимо нажать Ctrl+Shift+Enter, чтобы функция была выполнена в массиве. Результат вычислений:

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



Автозамена значения в текстовых ячейках с помощью функции ПОДСТАВИТЬ

Пример 2. Провайдер домашнего интернета хранит данные о своих абонентах в таблице Excel. Предположим, улица Садовая была переименована в Никольскую. Необходимо быстро произвести замену названия улицы в строке данных об адресе проживания каждого клиента.

Таблица данных:

Для выполнения заданного условия используем формулу:

Примечание: в данном примере ПОДСТАВИТЬ также используется в массиве Ctrl+Shift+Enter.

В результате получим:

Формула с макросом регулярного выражения и функция ПОДСТАВИТЬ

Пример 3. При составлении таблицы из предыдущего примера была допущена ошибка: все номера домов на улице Никольская должны быть записаны как «№№-Н», где №№ — номер дома. Как быстро исправить ошибку?

В данном случае для поиска числовых значений номера дома воспользоваться встроенными функциями не удастся. Рациональнее всего использовать регулярные выражения. По умолчанию, в Excel отсутствует функция для работы с регулярными выражениями, однако ее можно добавить следующим способом:

1. Открыть редактор макросов (Ctrl+F11).
2. Вставить исходный код функции (приведен ниже).
3. Выполнить данный макрос и закрыть редактор кода.

Код функции:

Public Function RegExpExtract(Text As String, Pattern As String, Optional Item As Integer = 1) As String
    On Error GoTo ErrHandl
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = Pattern
    regex.Global = True
    If regex.Test(Text) Then
        Set matches = regex.Execute(Text)
        RegExpExtract = matches.Item(Item - 1)
        Exit Function
    End If
ErrHandl:
    RegExpExtract = CVErr(xlErrValue)
End Function


Для того, чтобы воспользоваться этой формулой, в любой ячейке необходимо ввести следующее:

= RegExpExtract(текст;регулярное_выражение;[номер_вхождения])

Регулярные выражения могут быть различными. Например, для выделения любого символа из текстовой строки в качестве второго аргумента необходимо передать значение «w», а цифры – «d».

Для решения задачи данного Примера 3 используем следующую запись:

Логика вычислений:

1. Функция ЕСЛИОШИБКА используется для возврата исходной строки текста (B2), поскольку результатом выполнения функции RegExpExtract(B2;»Никольская») будет код ошибки #ЗНАЧ!, если ей не удалось найти хотя бы одно вхождение подстроки «Никольская» в строке B2.
2. Если результат выполнения сравнения значений RegExpExtract(B2;»Никольская»)=»Никольская» является ИСТИНА, будет выполнена функция ПОДСТАВИТЬ(B2;RegExpExtract(B2;»d+»);RegExpExtract(B2;»d+»)&»-Н»), где:

• a. B2 – исходный текст, содержащий полный адрес;
• b. RegExpExtract(B2;»d+») – формула, выделяющая номер дома из строки с полным адресом;
• c. RegExpExtract(B2;»d+»)&»-Н» – новый номер, содержащий исходное значение и символы «-Н».

Результат вычислений:

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

Особенности использования функции ПОДСТАВИТЬ в Excel

Функция ПОДСТАВИТЬ имеет следующую синтаксическую запись:

= ПОДСТАВИТЬ(текст;стар_текст;нов_текст;[номер_вхождения])

Описание аргументов:

• текст – обязательный аргумент, характеризующий текстовую строку, в которой необходимо выполнить замену части текста. Может быть задан как текстовая строка («некоторый текст») или ссылка на ячейку, которая содержит текстовые данные.
• стар_текст – часть текстовой строки, принимаемой в качестве первого аргумента данной функции, которую требуется заменить. Аргумент обязателен для заполнения.
• нов_текст – обязательный для заполнения аргумент, содержащий текстовые данные, которые будут вставлены на место заменяемой части строки.
• [номер_вхождения] – числовое значение, характеризующее номер вхождения старого текста, который требуется заменить на фрагмент нового текста. Возможные варианты записи:

1. Аргумент явно не указан. Функция ПОДСТАВИТЬ определит все части текстовой строки, соответствующие фрагменту текста стар_текст, и выполнит их замену на нов_текст;
2. В качестве аргумента передано числовое значение. Функция ПОДСТАВИТЬ заменит только указанное вхождение. Отсчет начинается слева направо, число 1 соответствует первому вхождению. Например, функция =ПОДСТАВИТЬ(«текст №1, №2, №3»;«текст»;«новый»;1) вернет значение «новый_текст №1, №2, №3».

Примечания:

1. Аргумент [номер_вхождения] должен быть задан из диапазон целых положительных чисел от 1 до n, где n определяется максимально допустимой длиной строки, содержащейся в объекте данных (например, в ячейке).
2. Если в текстовой строке, представленной в качестве аргумента текст не содержится фрагмент, переданный в качестве аргумента стар_текст, функция ПОДСТАВИТЬ вернет строку текст без изменений.
3. Если число вхождений заменяемого фрагмента в обрабатываемой строке меньше, чем числовое значение, переданное в качестве аргумент [номер_вхождения], функция ПОДСТАВИТЬ вернет текстовую строку в исходном виде. Например, аргументы функции («а 1 а 2 а 3»;«а»;«б»;4) вернут строку «а 1 а 2 а 3».
4. Рассматриваемая функция чувствительная к регистру, то есть строки «Слово» и «слово» не являются тождественными.
5. Для решения аналогичных задач по замене части символов текстовой строки можно использовать функцию ЗАМЕНИТЬ. Однако, в отличие от функции ПОДСТАВИТЬ, для ее использования необходимо явно указывать позицию начального символа для замены, а также количество символов, которые необходимо заменить. Функция автоматически выполняет поиск указанной части строки и производит ее замену, поэтому в большинстве случаев предлагает более удобный функционал для работы с текстовыми строками.

Если произвести поиск по функциям подстановки, Google покажет, что ВПР намного популярнее функции ИНДЕКС. Оно и понятно, ведь чтобы придать функции ИНДЕКС тот же функционал, что и ВПР, необходимо воспользоваться еще одной формулой – ПОИСКПОЗ. Что касается меня, было всегда непросто попробовать и освоить две новые функции одновременно. Но они дают больше возможностей и гибкости в создании электронных таблиц. Но обо всем по порядку.

Функция ВПР()

Предположим, у вас есть таблица с данными о работниках. В первой колонке хранится табельный номер сотрудника, в остальных – другие данные (ФИО, отдел и т.д.). Если у вас есть табельный номер, то можно воспользоваться функцией ВПР, чтобы вернуть определенную информацию о сотруднике. Синтаксис формулы =ВПР(искомое_значение; таблица; номер_столбца; [интервальный_просмотр]). Она говорит Excel: «Найди в таблице строку, первая ячейка которой совпадает с искомым_значением, и верни значение ячейки с порядковым номером номер_столбца».

Но случаются ситуации, когда у вас есть имя сотрудника и необходимо вернуть табельный номер. На рисунке в ячейке A10 – имя работника и требуется определить табельный номер в ячейке B10.

Когда ключевое поле находится правее данных, которые вы хотите получить, ВПР не поможет. Если, конечно, была бы возможность задать номер_столбца -1, тогда проблем бы не было. Одним из распространенных решений является добавление нового столбца A, копирование имен сотрудников в этот столбец, заполнить табельные номера с помощью ВПР, сохранить их как значения и удалить временную колонку A.

Функция ИНДЕКС()

Чтобы решить нашу проблему в один шаг, необходимо воспользоваться формулами ИНДЕКС и ПОИСКПОЗ. Сложность данного подхода заключается в том, что требуется применить две функции, которые, возможно, вы никогда не применяли до этого. Для упрощения понимания решим эту задачу в два этапа.

Начнем с функции ИНДЕКС. Кошмарное название. Когда кто-нибудь говорит «индекс», у меня в голове не возникает ни единой ассоциации, чем же занимается эта функция. А требует она целых три аргумента: =ИНДЕКС(массив; номер_строки; [номер_столбца]).

Говоря по-простому, Excel идет в массив данных и возвращает значение, находящееся на пересечении указанной строки и столбца. Как будто бы просто. Таким образом, формула =ИНДЕКС($A$2:$C$6;4;2) вернет значение, находящееся в ячейке B5.

Применительно к нашей проблеме, чтобы вернуть табельный номер работника, формула должна выглядеть следующим образом =ИНДЕКС($A$2:$A$6;?;1). Выглядит как бессмыслица, но если мы заменим знак вопроса формулой ПОИСКПОЗ, у нас есть решение.

Функция ПОИСКПОЗ()

Синтаксис этой функции таков: =ПОИСКПОЗ(искомое_значение; просматриваемы_массив; [тип_сопоставления]).

Она говорит Excel: «Найди искомое_значение  в массиве данных и верни номер строки массива, в которой это значение встречается». Таким образом, чтобы найти в какой строке находиться имя сотрудника в ячейке A10, необходимо прописать формулу =ПОИСКПОЗ(A10; $B$2:$B$6; 0). Если в ячейке A10 будет имя «Колин Фарел», тогда ПОИСКПОЗ вернет 5-ю строку массива B2:B6.

Ну, в принципе, все. Функция ПОИСКПОЗ указывает функции ИНДЕКС, в какой строке искать значение. Замените знак вопроса в формуле ИНДЕКС формулой ПОИСКОПОЗ и вы получите эквивалент ВПР с возможностью поиска данных, находящихся левее ключевого столбца. Получиться так:

=ИНДЕКС($A$2:$B$6;ПОИСКПОЗ(A10;$B$2:$B$6;0);1)

В начале было непривычно, был огромный соблазн вставить еще одну колону и работать, как всегда работал. Но со временем использование функции ИНДЕКС вошло в привычку. Оказалось, что это быстрее и требует меньших манипуляций. Так что в следующий раз, когда у вас возникнет желание задать номеру столбца отрицательное число в ВПР, воспользуйтесь сочетанием двух странных функций ИНДЕКС и ПОИСКПОЗ, чтобы решить свою проблему.

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

1 Простое протягивание формулы

Это самый простой и привычный для многих пользователей способ распространения формулы сразу на несколько ячеек строки или столбца. Он требует выполнения следующих действий:

• В первую ячейку с одной из сторон (например, сверху) надо записать нужную формулу и нажать Enter.
• После появления рассчитанного по формуле значения навести курсор в нижний правый угол ячейки. Подождать, пока толстый белый крестик не превратиться в тонкий черный.
• Нажать на крестик и, удерживая его, протянуть формулу в нужном направлении. В указанном примере — вниз.

Аргументы в формуле будут изменяться соответственно новому расположению. И если в самой первой ячейке это были F7 и G7, в последней позиции столбца это будет уже F12 и G12. Соответственно, если начинать распространять формулы по строкам, изменяться будут не цифры, а буквы в обозначениях ячеек.

Способ отличается простотой и высокой скоростью. Но не всегда подходит для больших таблиц. Так, если в столбце несколько сотен или даже тысяч значений, формулу проще растягивать другими способами, чтобы сэкономить время. Один из них — автоматическое копирование, требующее всего лишь двойного клика кнопкой мыши.

2 Быстрое автозаполнение

Еще один способ в Excel протянуть формулу до конца столбца с более высокой по сравнению с первой методикой скоростью. Требует от пользователя применить такие действия:

• Ввести в верхнюю ячейку формулу, в которой применяются аргументы из соседних столбцов. Нажать кнопку Enter.
• Навести курсор на правый нижний угол, чтобы он приобрел форму черного крестика.
• Кликнуть два раза по нижнему правому углу ячейки. Результатом станет автоматическое распространение формулы по столбцу с соответствующим изменением аргументов.

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

Еще одна особенность такого автоматического копирования формул — невозможность использования для строки. При попытке распространить значение ячейки не вниз, а в сторону, ничего не происходит. С другой стороны, длина строк обычно намного меньше по сравнению со столбцами, которые могут состоять из нескольких тысяч пунктов.

3 Протягивание без изменения ячеек в формуле

Еще один способ позволяет распространять формулы в Excel без изменения некоторых аргументов. Это может понадобиться в тех случаях, когда одно или несколько значений будут содержаться в одной и той же ячейке. Поможет в закреплении формулы специальная функция фиксации ссылок.

Для распределения без изменения адреса ячейки выполняются те же действия, что и при обычном протягивании или автоматическом копировании. Но при вводе формулы следует зафиксировать адреса, которые не будут меняться. Для этого используются символы доллара — $. Если в каждом новом пункте столбца при расчетах используется одна и та же ячейка, значки надо будет поставить и перед номером строки, и перед литерой, которая указывает на колонку. Как в примере: $G$6.

Краткое руководство по текстовым функциям

Введение

Использование строк является очень важной частью VBA. Есть много типов манипуляций, которые вы можете делать со строками. К ним относятся такие задачи, как:

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

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

Эта статья содержит подробное руководство по использованию строки в VBA. Он объясняет строки в простых терминах с понятными примерами кода. Изложение в статье поможет легко использовать ее в качестве краткого справочного руководства.

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

Прочитайте это в первую очередь!

Следующие два пункта очень важны при работе со строковыми функциями VBA.

Исходная строка не изменяется

Важно помнить, что строковые функции VBA не изменяют исходную строку. Они возвращают новую строку с изменениями, внесенными функцией. Если вы хотите изменить исходную строку, вы просто назначаете результат исходной строке. См. Раздел «Извлечение части строки» для примеров.

Как использовать Compare

Некоторые строковые функции, такие как StrComp (), Instr () и т.д. имеют необязательный параметр Compare. Он работает следующим образом:

vbTextCompare: верхний и нижний регистры считаются одинаковыми

vbBinaryCompare: верхний и нижний регистр считаются разными

Следующий код использует функцию сравнения строк StrComp () для демонстрации параметра Compare.

Sub Comp1()

    ' Печатает 0  : Строки совпадают
    Debug.Print StrComp("АБВ", "абв", vbTextCompare)
    ' Печатает -1 : Строки не совпадают
    Debug.Print StrComp("АБВ", "абв", vbBinaryCompare)

End Sub

Вы можете использовать параметр Option Compare вместо того, чтобы каждый раз использовать этот параметр. Опция сравнения устанавливается в верхней части модуля. Любая функция, которая использует параметр Compare, примет этот параметр по умолчанию. Два варианта использования Option Compare:

• Oпция Compare Text: делает vbTextCompare аргументом сравнения по умолчанию

Option Compare Text

Sub Comp2()
    ' Соответствие строк - использует vbCompareText в качестве 'аргумента сравнения
    Debug.Print StrComp("АБВ", "абв")
    Debug.Print StrComp("ГДЕ", "где")
End Sub

• Опция Compare Binary: делает vbBinaryCompare аргументом сравнения по умолчанию.

Option Compare Binary

Sub Comp2()
    ' Строки не совпадают - использует vbCompareBinary в качестве 'аргумента сравнения
    Debug.Print StrComp("АБВ", "абв")
    Debug.Print StrComp("ГДЕ", "где")
End Sub

Если Option Compare не используется, то по умолчанию используется Option Compare Binary.

Теперь, когда вы понимаете эти два важных момента о строке, мы можем продолжить и посмотреть на строковые функции индивидуально.

Добавление строк

Вы можете добавлять строки, используя оператор &. Следующий код показывает несколько примеров его использования.

Sub Dobavlenie()

    Debug.Print "АБВ" & "ГДЕ"
    Debug.Print "Иван" & " " & "Петров"
    Debug.Print "Длинный " & 22
    Debug.Print "Двойной " & 14.99
    Debug.Print "Дата " & #12/12/2015#

End Sub

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

 Это даст сообщение об ошибке: «Несоответствие типов»
    Debug.Print "Длинный " + 22

Если вы хотите сделать более сложное добавление строк, вы можете использовать функцию форматирования, описанную ниже.

Извлечение части строки

Функции, обсуждаемые в этом разделе, полезны при базовом извлечении из строки. Для чего-то более сложного можете посмотреть раздел, как легко извлечь любую строку без использования VBA InStr.

Функции Left, Right и Mid используются для извлечения частей строки. Это очень простые в использовании функции. Left читает символы слева, Right справа и Mid от указанной вами начальной точки.

Sub IspLeftRightMid()

    Dim sCustomer As String
    sCustomer = "Иван Васильевич Петров"

    Debug.Print Left(sCustomer, 4)  '  Печатает: Иван
    Debug.Print Right(sCustomer, 6) '  Печатает: Петров

    Debug.Print Left(sCustomer, 15)  '  Печатает: Иван Васильевич
    Debug.Print Right(sCustomer, 17)  '  Печатает: Васильевич Петров

    Debug.Print Mid(sCustomer, 1, 4) ' Печатает: Иван
    Debug.Print Mid(sCustomer, 6, 10) ' Печатает: Васильевич
    Debug.Print Mid(sCustomer, 17, 6) ' Печатает: Петров

End Sub

Как упоминалось в предыдущем разделе, строковые функции VBA не изменяют исходную строку. Вместо этого они возвращают результат в виде новой строки.

В следующем примере вы увидите, что строка Fullname не была изменена после использования функции Left.

Sub PrimerIspolzovaniyaLeft()

    Dim Fullname As String
    Fullname = "Иван Петров"

    Debug.Print "Имя: "; Left(Fullname, 4)
    ' Исходная строка не изменилась
    Debug.Print "Полное имя: "; Fullname

 End Sub

Если вы хотите изменить исходную строку, вы просто присваиваете ей возвращаемое значение функции.

Sub IzmenenieStroki()

    Dim name As String
    name = "Иван Петров"

    ' Присвойте возвращаемую строку переменной имени
    name = Left(name, 4)

    Debug.Print "Имя: "; name

 End Sub

Поиск в строке

InStr и InStrRev — это функции VBA, используемые для поиска текста в тексте. Если текст поиска найден, возвращается позиция (с начала строки проверки) текста поиска. Когда текст поиска не найден, возвращается ноль. Если какой-либо текст имеет значение null, возвращается значение null.

InStr Описание параметров

InStr() Start[Необязат], String1, String2, Compare[Необязат]

• Start [Необязательно — по умолчанию 1]: это число, указывающее начальную позицию поиска слева
• String1: текст, в котором будем искать
• String2: текст, который будем искать
• Compare как vbCompareMethod: см. Раздел «Сравнить» для получения более подробной информации.

Использование InStr и примеры

InStr возвращает первую позицию в тексте, где найден данный текст. Ниже приведены некоторые примеры его использования.

Sub PoiskTeksta()

    Dim name As String
    name = "Иван Петров"

    ' Возвращает 3 - позицию от первой 
    Debug.Print InStr(name, "а")
    ' Возвращает 10 - позиция первого "а", начиная с позиции 4
    Debug.Print InStr(4, name, "а")
    ' Возвращает 8
    Debug.Print InStr(name, "тр")
    ' Возвращает 6
    Debug.Print InStr(name, "Петров")
    ' Возвращает 0 - текст "ССС" не найдет
    Debug.Print InStr(name, "ССС")

End Sub

InStrRev Описание параметров

InStrRev() StringCheck, StringMatch, Start[Необязат], Compare[Необязат]

• StringCheck: текст, в котором будем искать
• StringMatch: Текст, который будем искать
• Start [Необязательно — по умолчанию -1]: это число, указывающее начальную позицию поиска справа
• Compare как vbCompareMethod: см. Раздел «Сравнить» для получения более подробной информации.

Использование InStrRev и примеры

Функция InStrRev такая же, как InStr, за исключением того, что она ищет с конца строки. Важно отметить, что возвращаемая позиция является позицией с самого начала. Поэтому, если существует только один экземпляр элемента поиска, InStr () и InStrRev () будут возвращать одно и то же значение.

В следующем коде показаны некоторые примеры использования InStrRev.

Sub IspInstrRev()

    Dim name As String
    name = "Иван Петров"

    ' Обе возвращают 1 - позицию, только И
    Debug.Print InStr(name, "И")
    Debug.Print InStrRev(name, "И")

    ' Возвращает 11 - вторую в
    Debug.Print InStrRev(name, "в")
    ' Возвращает 3 - первую в с позиции 9
    Debug.Print InStrRev(name, "в", 9)

    ' Returns 1
    Debug.Print InStrRev(name, "Иван")

End Sub

Функции InStr и InStrRev полезны при работе с базовым поиском текста. Однако, если вы собираетесь использовать их для извлечения текста из строки, они могут усложнить задачу. Я написал о гораздо лучшем способе сделать это в своей статье Как легко извлечь любой текст без использования VBA InStr.

Удаление пробелов

Функции Trim — это простые функции, которые удаляют пробелы в начале или конце строки.

Функции и примеры использования триммера Trim

• LTrim удаляет пробелы слева от строки
• RTrim удаляет пробелы справа от строки
• Trim удаляет пробелы слева и справа от строки

Sub TrimStr()

    Dim name As String
    name = "  Иван Петров  "

    ' Печатает "Иван Петров  "
    Debug.Print LTrim(name)
    ' Печатает "  Иван Петров"
    Debug.Print RTrim(name)
    ' Печатает "Иван Петров"
    Debug.Print Trim(name)

End Sub

Длина строки

Len — простая функция при использовании со строкой. Она просто возвращает количество символов, которое содержит строка. Если используется с числовым типом, таким как long, он вернет количество байтов.

Sub IspLen()

    Dim name As String
    name = "Иван Петров"

    ' Печатает 11
    Debug.Print Len("Иван Петров")
    ' Печатает 3
    Debug.Print Len("АБВ")

    ' Печатает 4 с Long - это размер 4 байта
    Dim total As Long
    Debug.Print Len(total)

End Sub

Перевернуть текст

StrReverse — еще одна простая в использовании функция. Он просто возвращает данную строку с обратными символами.

Sub RevStr()

    Dim s As String
    s = "Иван Петров"
    ' Печатает: вортеП навИ
    Debug.Print StrReverse(s)

End Sub

Сравнение

Функция StrComp используется для сравнения двух строк. Следующие подразделы описывают, как используется.

Описание параметров

StrComp()  String1, String2, Compare[Необязат]

• String1: первая строка для сравнения
• String2: вторая строка для сравнения
• Compare как vbCompareMethod: см. Раздел «Сравнить» для получения более подробной информации.

StrComp Возвращаемые значения

Использование и примеры

Ниже приведены некоторые примеры использования функции StrComp.

Sub IspStrComp()

   ' Возвращает  0
   Debug.Print StrComp("АБВ", "АБВ", vbTextCompare)
   ' Возвращает 1
   Debug.Print StrComp("АБВГ", "АБВ", vbTextCompare)
   ' Возвращает -1
   Debug.Print StrComp("АБВ", "АБВГ", vbTextCompare)
   ' Returns Null
   Debug.Print StrComp(Null, "АБВГ", vbTextCompare)

End Sub

Сравнение строк с использованием операторов

Вы также можете использовать знак равенства для сравнения строк. Разница между сравнением equals и функцией StrComp:

1. Знак равенства возвращает только true или false.
2. Вы не можете указать параметр Compare, используя знак равенства — он использует настройку «Option Compare».  

Ниже приведены некоторые примеры использования equals для сравнения строк.

Option Compare Text

Sub CompareIspEquals()

    ' Возвращает true
    Debug.Print "АБВ" = "АБВ"
    ' Возвращает true, потому что «Сравнить текст» установлен выше
    Debug.Print "АБВ" = "абв"
    ' Возвращает false
    Debug.Print "АБВГ" = "АБВ"
    ' Возвращает false
    Debug.Print "АБВ" = "АБВГ"
    ' Возвращает null
    Debug.Print Null = "АБВГ"

End Sub

Сравнение строк с использованием сопоставления с шаблоном

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

Если строка соответствует шаблону, возвращаемое значение равно true, в противном случае — false.

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

Давайте посмотрим на базовый пример с использованием знаков. Возьмите следующую строку шаблона.

[abc][!def]?#X*

 Давайте посмотрим, как работает эта строка

[abc] — символ, который является или a, b или c
[! def] — символ, который не является d, e или f
? любой символ
# — любая цифра
X — символ X
* следуют ноль или более символов

 Поэтому следующая строка действительна
apY6X

а — один из символов a,b,c
p — не один из символов d, e или f
Y — любой символ
6 — это цифра
Х — это буква Х

В следующих примерах кода показаны результаты различных строк с этим шаблоном.

Sub Shabloni()

    ' ИСТИНА
    Debug.Print 1; "apY6X" Like "[abc][!def]?#X*"
    ' ИСТИНА - любая комбинация символов после x действительна
    Debug.Print 2; "apY6Xsf34FAD" Like "[abc][!def]?#X*"
    ' ЛОЖЬ - символ не из[abc]
    Debug.Print 3; "dpY6X" Like "[abc][!def]?#X*"
    ' ЛОЖЬ - 2-й символ e находится в [def]
    Debug.Print 4; "aeY6X" Like "[abc][!def]?#X*"
    ' ЛОЖЬ - A в позиции 4 не является цифрой
    Debug.Print 5; "apYAX" Like "[abc][!def]?#X*"
    ' ЛОЖЬ - символ в позиции 5 должен быть X
    Debug.Print 1; "apY6Z" Like "[abc][!def]?#X*"

End Sub

Реальный пример сопоставления с образцом

Чтобы увидеть реальный пример использования сопоставления с образцом, ознакомьтесь с Примером 3: Проверьте, допустимо ли имя файла.

Важное примечание о сопоставлении с образцом VBA

Оператор Like использует двоичное или текстовое сравнение на основе параметра Option Compare. Пожалуйста, смотрите раздел Сравнение для более подробной информации.

Заменить часть строки

Replace используется для замены текста в строке другим текстом. Он заменяет все экземпляры текста, найденные по умолчанию.

Replace описание параметров

Replace()  Expression, Find, Replace, Start[Необязат], Count[Необязат], Compare[Необязат]

• Expression: текст, в котором нужна замена символов
• Find: текст для замены в строке выражения
• Replace: строка для поиска замены текста поиска
• Start [Необязательно — по умолчанию 1]: начальная позиция в строке
• Count [Необязательно — по умолчанию -1]: количество замен. По умолчанию -1 означает все.
• Compare как vbCompareMethod: см. Раздел «Сравнить» для получения более подробной информации.

Использование и примеры

В следующем коде показаны некоторые примеры использования функции замены.

Sub PrimeriReplace()

    ' Заменяет все знаки вопроса (?) на точку с запятой (;)
    Debug.Print Replace("A?B?C?D?E", "?", ";")
    ' Заменить Петров на Иванов
    Debug.Print Replace("Евгений Петров,Артем Петров", "Петров", "Иванов")
    ' Заменить AX на AB
    Debug.Print Replace("ACD AXC BAX", "AX", "AB")

End Sub

На выходе:

A;B;C;D;E
Евгений Иванов,Артем Иванов
ACD ABC BAB

В следующих примерах мы используем необязательный параметр Count. Count определяет количество замен. Так, например, установка Count равной единице означает, что будет заменено только первое вхождение.

Sub ReplaceCount()

    ' Заменяет только первый знак вопроса
    Debug.Print Replace("A?B?C?D?E", "?", ";", Count:=1)
    ' Заменяет первые три знака вопроса
    Debug.Print Replace("A?B?C?D?E", "?", ";", Count:=3)

End Sub

На выходе:

A;B?C?D?E
A;B;C;D?E

Необязательный параметр Start позволяет вам вернуть часть строки. Позиция, которую вы указываете с помощью Start, — это место, откуда начинается возврат строки. Он не вернет ни одной части строки до этой позиции, независимо от того, была ли произведена замена или нет.

Sub ReplacePartial()

    ' Использовать оригинальную строку из позиции 4
    Debug.Print Replace("A?B?C?D?E", "?", ";", Start:=4)
    ' Используйте оригинальную строку из позиции 8
    Debug.Print Replace("AA?B?C?D?E", "?", ";", Start:=8)
    ' Элемент не заменен, но по-прежнему возвращаются только последние '2 символа
    Debug.Print Replace("ABCD", "X", "Y", Start:=3)

End Sub

На выходе:

;C;D;E
;E
CD

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

Sub ReplaceCase()

    ' Заменить только заглавные А
    Debug.Print Replace("AaAa", "A", "X", Compare:=vbBinaryCompare)
    ' Заменить все А
    Debug.Print Replace("AaAa", "A", "X", Compare:=vbTextCompare)

End Sub

На выходе:

XaXa
XXXX

Многократные замены

Если вы хотите заменить несколько значений в строке, вы можете вкладывать вызовы. В следующем коде мы хотим заменить X и Y на A и B соответственно.

Sub ReplaceMulti()

    Dim newString As String

    ' Заменить А на Х
    newString = Replace("ABCD ABDN", "A", "X")
    ' Теперь замените B на Y в новой строке
    newString = Replace(newString, "B", "Y")

    Debug.Print newString

End Sub

В следующем примере мы изменим приведенный выше код для выполнения той же задачи. Мы будем использовать возвращаемое значение первой замены в качестве аргумента для второй замены.

Sub ReplaceMultiNested()

    Dim newString As String

    ' Заменить A на X, а B на Y
    newString = Replace(Replace("ABCD ABDN", "A", "X"), "B", "Y")

    Debug.Print newString

End Sub

Результатом обоих этих Subs является:
XYCD XYDN

Преобразовать типы в строку (базовый)

Этот раздел о преобразовании чисел в строку. Очень важным моментом здесь является то, что в большинстве случаев VBA автоматически конвертируется в строку для вас. Давайте посмотрим на некоторые примеры:

Sub AutoConverts()

    Dim s As String
    ' Автоматически преобразует число в строку
    s = 12.99
    Debug.Print s

    ' Автоматически преобразует несколько чисел в строку
    s = "ABC" & 6 & 12.99
    Debug.Print s

    ' Автоматически преобразует двойную переменную в строку
    Dim d As Double, l As Long
    d = 19.99
    l = 55
    s = "Значения: " & d & " " & l
    Debug.Print s

End Sub

Когда вы запустите приведенный выше код, вы увидите, что число было автоматически преобразовано в строки. Поэтому, когда вы присваиваете значение строке, VBA будет следить за преобразованием большую часть времени. В VBA есть функции преобразования, и в следующих подразделах мы рассмотрим причины их использования.

Явное преобразование

В некоторых случаях вы можете захотеть преобразовать элемент в строку без необходимости сначала помещать его в строковую переменную. В этом случае вы можете использовать функции Str или CStr. Оба принимают выражение как функцию, и это может быть любой тип, например long, double, data или boolean.

Давайте посмотрим на простой пример. Представьте, что вы читаете список значений из разных типов ячеек в коллекцию. Вы можете использовать функции Str / CStr, чтобы гарантировать, что они все хранятся в виде строк. Следующий код показывает пример этого:

Sub IspStr()

    Dim coll As New Collection
    Dim c As Range

    ' Считать значения ячеек в коллекцию
    For Each c In Range("A1:A10")
        ' Используйте Str для преобразования значения ячейки в строку
        coll.Add Str(c)
    Next

    ' Распечатайте значения и тип коллекции
    Dim i As Variant
    For Each i In coll
        Debug.Print i, TypeName(i)
    Next

End Sub

В приведенном выше примере мы используем Str для преобразования значения ячейки в строку. Альтернативой этому может быть присвоение значения строке, а затем присвоение строки коллекции. Итак, вы видите, что использование Str здесь намного эффективнее.

Multi Region

Разница между функциями Str и CStr заключается в том, что CStr преобразует в зависимости от региона. Если ваши макросы будут использоваться в нескольких регионах, вам нужно будет использовать CStr для преобразования строк.

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

Преобразовать строку в число — CLng, CDbl, Val и т.д.

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

Sub StrToNumeric()

    Dim l As Long, d As Double, c As Currency
    Dim s As String
    s = "45.923239"

    l = s
    d = s
    c = s

    Debug.Print "Long is "; l
    Debug.Print "Double is "; d
    Debug.Print "Currency is "; c

End Sub

Использование типов преобразования дает большую гибкость. Это означает, что вы можете определить тип во время выполнения. В следующем коде мы устанавливаем тип на основе аргумента sType, передаваемого в функцию PrintValue. Поскольку этот тип может быть прочитан из внешнего источника, такого как ячейка, мы можем установить тип во время выполнения. Если мы объявим переменную как Long, то при выполнении кода она всегда будет длинной.

Sub Test()
    ' Печатает  46
    PrintValue "45.56", "Long"
    ' Печатает 45.56
    PrintValue "45.56", ""
End Sub

Sub PrintValue(ByVal s As String, ByVal sType As String)

    Dim value

    ' Установите тип данных на основе строки типа
    If sType = "Long" Then
        value = CLng(s)
    Else
        value = CDbl(s)
    End If
    Debug.Print "Type is "; TypeName(value); value

End Sub

Если строка не является допустимым числом (т.е. Содержит символы, другие цифры), вы получаете ошибку «Несоответствие типов».

Sub InvalidNumber()

    Dim l As Long

    ' Даст ошибку несоответствия типов
    l = CLng("45A")

End Sub

Функция Val

Функция преобразует числовые части строки в правильный тип числа.

Val преобразует первые встреченные числа. Как только он встречает буквы в строке, он останавливается. Если есть только буквы, то в качестве значения возвращается ноль. Следующий код показывает некоторые примеры использования Val

Sub IspVal()

    ' Печатает 45
    Debug.Print Val("45 Новая улица")

    ' Печатает 45
    Debug.Print Val("    45 Новая улица")

    ' Печатает 0
    Debug.Print Val("Новая улица 45")

    ' Печатает 12
    Debug.Print Val("12 f 34")

End Sub

Val имеет два недостатка

1. Не мультирегиональный — Val не распознает международные версии чисел, такие как запятые вместо десятичных. Поэтому вы должны использовать вышеуказанные функции преобразования, когда ваше приложение будет использоваться в нескольких регионах.
2. Преобразует недопустимые строки в ноль — в некоторых случаях это может быть нормально, но в большинстве случаев лучше, если неверная строка вызывает ошибку. Затем приложение осознает наличие проблемы и может действовать соответствующим образом. Функции преобразования, такие как CLng, вызовут ошибку, если строка содержит нечисловые символы.

Генерация строки элементов — функция строки

Функция String используется для генерации строки повторяющихся символов. Первый аргумент — это количество повторений, второй аргумент — символ.

Sub IspString()

    ' Печатает: AAAAA
    Debug.Print String(5, "A")
    ' Печатает: >>>>>
    Debug.Print String(5, 62)
    ' Печатает: (((ABC)))
    Debug.Print String(3, "(") & "ABC" & String(3, ")")

End Sub

Преобразовать регистр / юникод — StrConv, UCase, LCase

Если вы хотите преобразовать регистр строки в верхний или нижний регистр, вы можете использовать функции UCase и LCase для верхнего и нижнего соответственно. Вы также можете использовать функцию StrConv с аргументом vbUpperCase или vbLowerCase. В следующем коде показан пример использования этих трех функций.

Sub ConvCase()

    Dim s As String
    s = "У Мэри был маленький ягненок"

    ' верхний
    Debug.Print UCase(s)
    Debug.Print StrConv(s, vbUpperCase)

    ' нижний
    Debug.Print LCase(s)
    Debug.Print StrConv(s, vbLowerCase)

    ' Устанавливает первую букву каждого слова в верхний регистр
    Debug.Print StrConv(s, vbProperCase)

End Sub

На выходе: 

У МЭРИ БЫЛ МАЛЕНЬКИЙ ЯГНЕНОК
У МЭРИ БЫЛ МАЛЕНЬКИЙ ЯГНЕНОК
у мэри был маленький ягненок
у мэри был маленький ягненок
У Мэри Был Маленький Ягненок

Другие преобразования

Как и в случае, StrConv может выполнять другие преобразования на основе параметра Conversion. В следующей таблице приведен список различных значений параметров и того, что они делают. Для получения дополнительной информации о StrConv проверьте страницу MSDN.

Использование строк с массивами

Строка в массив с использованием Split

Вы можете легко разобрать строку с разделителями в массив. Вы просто используете функцию Split с разделителем в качестве параметра. Следующий код показывает пример использования функции Split.

Sub StrToArr()

    Dim arr() As String
    ' Разобрать строку в массив
    arr = Split("Иван,Анна,Павел,София", ",")

    Dim name As Variant
    For Each name In arr
        Debug.Print name
    Next

End Sub

На выходе:

Иван
Анна
Павел
София

Если вы хотите увидеть некоторые реальные примеры использования Split, вы найдете их в статье Как легко извлечь любую строку без использования VBA InStr.

Массив в строку, используя Join

Если вы хотите построить строку из массива, вы можете легко это сделать с помощью функции Join. По сути, это обратная функция Split. Следующий код предоставляет пример использования Join

Sub ArrToStr()

    Dim Arr(0 To 3) As String
    Arr(0) = "Иван"
    Arr(1) = "Анна"
    Arr(2) = "Павел"
    Arr(3) = "София"

    ' Построить строку из массива
    Dim sNames As String
    sNames = Join(Arr, ",")

    Debug.Print sNames

End Sub

На выходе:

Иван, Анна, Павел, София

Форматирование строки

Функция Format используется для форматирования строки на основе заданных инструкций. В основном используется для размещения даты или числа в определенном формате. Приведенные ниже примеры показывают наиболее распространенные способы форматирования даты.

Sub FormatDate()

    Dim s As String
    s = "31/12/2019 10:15:45"

    ' Печатает: 31 12 19
    Debug.Print Format(s, "DD MM YY")
    ' Печатает: Thu 31 Dec 2019
    Debug.Print Format(s, "DDD DD MMM YYYY")
    ' Печатает: Thursday 31 December 2019
    Debug.Print Format(s, "DDDD DD MMMM YYYY")
    ' Печатает: 10:15
    Debug.Print Format(s, "HH:MM")
    ' Печатает: 10:15:45 AM
    Debug.Print Format(s, "HH:MM:SS AM/PM")

End Sub

В следующих примерах представлены некоторые распространенные способы форматирования чисел.

Sub FormatNumbers()

    ' Печатает: 50.00%
    Debug.Print Format(0.5, "0.00%")
    ' Печатает: 023.45
    Debug.Print Format(23.45, "00#.00")
    ' Печатает: 23,000
    Debug.Print Format(23000, "##,000")
    ' Печатает: 023,000
    Debug.Print Format(23000, "0##,000")
    ' Печатает: $23.99
    Debug.Print Format(23.99, "$#0.00")

End Sub

Функция «Формат» — довольно обширная тема, и она может самостоятельно занять всю статью. Если вы хотите получить больше информации, то страница формата MSDN предоставляет много информации.

Полезный совет по использованию формата

Быстрый способ выяснить используемое форматирование — использовать форматирование ячеек на листе Excel. Например, добавьте число в ячейку. Затем щелкните правой кнопкой мыши и отформатируйте ячейку так, как вам нужно. Если вы довольны форматом, выберите «Пользовательский» в списке категорий слева. При выборе этого вы можете увидеть строку формата в текстовом поле типа. Это формат строки, который вы можете использовать в VBA.

Заключение

Практически в любом типе программирования вы потратите много времени на манипулирование строками. В этой статье рассматриваются различные способы использования строк в VBA.

Чтобы получить максимальную отдачу, используйте таблицу вверху, чтобы найти тип функции, которую вы хотите использовать. Нажав на левую колонку этой функции, вы попадете в этот раздел.

Если вы новичок в строках в VBA, то я предлагаю вам ознакомиться с разделом «Прочтите это в первую очередь» перед использованием любой из функций.