Парсер объёма в полном наименовании номенклатуры
TSC
Дата: Вторник, 24.05.2022, 17:45 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Добрый день! Есть задача, которую смог решить только костылями, через формулу + фильтр. Но хотелось бы иметь решение с формулой без лишних танцев с бубном и без макросов. Есть список номенклатуры, в каждом элементе которого есть обозначение объёма вида *ml, где * - от 1 до 10000. Есть границы Start и End диапазона для сортировки. Обе границы включены в поиск. Необходимо вывести объём числом или "-" в зависимости, от того, подходит ли элемент обозначенным границам диапазона. Я поверхностно знаю формулы Excel, смог пока дойти лишь до Код
ПСТР([@NAME];ПОИСК("ml";[@NAME])-3;5)
и последующей фильтрацией столбца с ручным выбором подходящих вариантов. NB. Возможно, что в номенклатуре подстрока "ml" может встретиться как часть названия до обозначения объёма "*ml".
Добрый день! Есть задача, которую смог решить только костылями, через формулу + фильтр. Но хотелось бы иметь решение с формулой без лишних танцев с бубном и без макросов. Есть список номенклатуры, в каждом элементе которого есть обозначение объёма вида *ml, где * - от 1 до 10000. Есть границы Start и End диапазона для сортировки. Обе границы включены в поиск. Необходимо вывести объём числом или "-" в зависимости, от того, подходит ли элемент обозначенным границам диапазона. Я поверхностно знаю формулы Excel, смог пока дойти лишь до Код
ПСТР([@NAME];ПОИСК("ml";[@NAME])-3;5)
и последующей фильтрацией столбца с ручным выбором подходящих вариантов. NB. Возможно, что в номенклатуре подстрока "ml" может встретиться как часть названия до обозначения объёма "*ml". TSC
Сообщение отредактировал TSC - Среда, 25.05.2022, 09:17
Ответить
Сообщение Добрый день! Есть задача, которую смог решить только костылями, через формулу + фильтр. Но хотелось бы иметь решение с формулой без лишних танцев с бубном и без макросов. Есть список номенклатуры, в каждом элементе которого есть обозначение объёма вида *ml, где * - от 1 до 10000. Есть границы Start и End диапазона для сортировки. Обе границы включены в поиск. Необходимо вывести объём числом или "-" в зависимости, от того, подходит ли элемент обозначенным границам диапазона. Я поверхностно знаю формулы Excel, смог пока дойти лишь до Код
ПСТР([@NAME];ПОИСК("ml";[@NAME])-3;5)
и последующей фильтрацией столбца с ручным выбором подходящих вариантов. NB. Возможно, что в номенклатуре подстрока "ml" может встретиться как часть названия до обозначения объёма "*ml". Автор - TSC Дата добавления - 24.05.2022 в 17:45
Anis625
Дата: Вторник, 24.05.2022, 22:11 |
Сообщение № 2
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация:
31
±
Замечаний:
20% ±
Excel 2013
TSC, Файл нужен и желательно показать (без формул) как вы хотите видеть результат
TSC, Файл нужен и желательно показать (без формул) как вы хотите видеть результат Anis625
Ответить
Сообщение TSC, Файл нужен и желательно показать (без формул) как вы хотите видеть результат Автор - Anis625 Дата добавления - 24.05.2022 в 22:11
китин
Дата: Среда, 25.05.2022, 07:40 |
Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
TSC , - Прочитайте Правила форума - Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума - Оформите формулу тегами (в режиме правки поста выделите формулу и нажмите кнопку fx , пояснялка здесь )
TSC , - Прочитайте Правила форума - Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума - Оформите формулу тегами (в режиме правки поста выделите формулу и нажмите кнопку fx , пояснялка здесь )китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение TSC , - Прочитайте Правила форума - Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума - Оформите формулу тегами (в режиме правки поста выделите формулу и нажмите кнопку fx , пояснялка здесь )Автор - китин Дата добавления - 25.05.2022 в 07:40
TSC
Дата: Среда, 25.05.2022, 09:15 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Извините, я сделал файл, но почему-то он не прикрепился при создании темы. Прикрепил в первое сообщение
Извините, я сделал файл, но почему-то он не прикрепился при создании темы. Прикрепил в первое сообщение TSC
Сообщение отредактировал TSC - Среда, 25.05.2022, 09:16
Ответить
Сообщение Извините, я сделал файл, но почему-то он не прикрепился при создании темы. Прикрепил в первое сообщение Автор - TSC Дата добавления - 25.05.2022 в 09:15
_Boroda_
Дата: Среда, 25.05.2022, 09:19 |
Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация:
6481
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
У меня не скачивается
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение У меня не скачивается Автор - _Boroda_ Дата добавления - 25.05.2022 в 09:19
TSC
Дата: Среда, 25.05.2022, 09:33 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
А так?
Ответить
Сообщение А так? Автор - TSC Дата добавления - 25.05.2022 в 09:33
msi2102
Дата: Среда, 25.05.2022, 09:51 |
Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 413
Репутация:
129
±
Замечаний:
0% ±
Excel 2007
Если перед объемом идет "edp" то можно такКод
=--СЖПРОБЕЛЫ(ПСТР(Data[@NAME];НАЙТИ("edp";Data[@NAME])+3;НАЙТИ("ml";Data[@NAME])-(НАЙТИ("edp";Data[@NAME])+3)))
Если перед объемом идет "edp" то можно такКод
=--СЖПРОБЕЛЫ(ПСТР(Data[@NAME];НАЙТИ("edp";Data[@NAME])+3;НАЙТИ("ml";Data[@NAME])-(НАЙТИ("edp";Data[@NAME])+3)))
msi2102
Сообщение отредактировал msi2102 - Среда, 25.05.2022, 09:51
Ответить
Сообщение Если перед объемом идет "edp" то можно такКод
=--СЖПРОБЕЛЫ(ПСТР(Data[@NAME];НАЙТИ("edp";Data[@NAME])+3;НАЙТИ("ml";Data[@NAME])-(НАЙТИ("edp";Data[@NAME])+3)))
Автор - msi2102 Дата добавления - 25.05.2022 в 09:51
bigorq
Дата: Среда, 25.05.2022, 10:01 |
Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 197
Репутация:
47
±
Замечаний:
0% ±
Нет
Ответить
Сообщение ниже и edc естьАвтор - bigorq Дата добавления - 25.05.2022 в 10:01
китин
Дата: Среда, 25.05.2022, 10:03 |
Сообщение № 9
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
вот такой монстрКод
=ЕСЛИОШИБКА(ЕСЛИ(И(--СЖПРОБЕЛЫ(ПСТР(Data[@NAME];(ПОИСК("ml";Data[@NAME]))-ДЛСТР(Start);ДЛСТР(Start)))>=Start;--СЖПРОБЕЛЫ(ПСТР(Data[@NAME];(ПОИСК("ml";Data[@NAME]))-ДЛСТР(Start);ДЛСТР(Start)))<=End);--СЖПРОБЕЛЫ(ПСТР(Data[@NAME];(ПОИСК("ml";Data[@NAME]))-ДЛСТР(Start);ДЛСТР(Start)));"-");"-")
поправил
вот такой монстрКод
=ЕСЛИОШИБКА(ЕСЛИ(И(--СЖПРОБЕЛЫ(ПСТР(Data[@NAME];(ПОИСК("ml";Data[@NAME]))-ДЛСТР(Start);ДЛСТР(Start)))>=Start;--СЖПРОБЕЛЫ(ПСТР(Data[@NAME];(ПОИСК("ml";Data[@NAME]))-ДЛСТР(Start);ДЛСТР(Start)))<=End);--СЖПРОБЕЛЫ(ПСТР(Data[@NAME];(ПОИСК("ml";Data[@NAME]))-ДЛСТР(Start);ДЛСТР(Start)));"-");"-")
поправил китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Среда, 25.05.2022, 10:06
Ответить
Сообщение вот такой монстрКод
=ЕСЛИОШИБКА(ЕСЛИ(И(--СЖПРОБЕЛЫ(ПСТР(Data[@NAME];(ПОИСК("ml";Data[@NAME]))-ДЛСТР(Start);ДЛСТР(Start)))>=Start;--СЖПРОБЕЛЫ(ПСТР(Data[@NAME];(ПОИСК("ml";Data[@NAME]))-ДЛСТР(Start);ДЛСТР(Start)))<=End);--СЖПРОБЕЛЫ(ПСТР(Data[@NAME];(ПОИСК("ml";Data[@NAME]))-ДЛСТР(Start);ДЛСТР(Start)));"-");"-")
поправил Автор - китин Дата добавления - 25.05.2022 в 10:03
_Boroda_
Дата: Среда, 25.05.2022, 10:13 |
Сообщение № 10
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация:
6481
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
TSC , а что Вы дальше с этим делать будете? Другими словами - Вам отображение нужно или реальные значения в тексте или в числах? Короче, 3 варианта. С Условным форматированиемКод
=--СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(ПСТР([@NAME];1;МАКС(ЕСЛИОШИБКА(НАЙТИ(СТРОКА($1:$10)-1&"ml ";[@NAME]&" ");)));" ";ПОВТОР(" ";99));99))
Текстовый результатКод
=ТЕКСТ(--СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(ПСТР([@NAME];1;МАКС(ЕСЛИОШИБКА(НАЙТИ(СТРОКА($1:$10)-1&"ml ";[@NAME]&" ");)));" ";ПОВТОР(" ";99));99));"[<100]-;[>125]-;0")
С обычным форматированием, скрывающим нулиКод
=--ТЕКСТ(--СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(ПСТР([@NAME];1;МАКС(ЕСЛИОШИБКА(НАЙТИ(СТРОКА($1:$10)-1&"ml ";[@NAME]&" ");)));" ";ПОВТОР(" ";99));99));"[<100]\0;[>125]\0;0")
Учитывается возможность наличия таких текстов 12 PAml RFUMEURS FRANCAIS VILLANDRY edp 100ml TESTER 24 ELIXIR ml AZUR edp 100ml TESTER 19-69 L'AIR BAml RBES edp 100ml
TSC , а что Вы дальше с этим делать будете? Другими словами - Вам отображение нужно или реальные значения в тексте или в числах? Короче, 3 варианта. С Условным форматированиемКод
=--СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(ПСТР([@NAME];1;МАКС(ЕСЛИОШИБКА(НАЙТИ(СТРОКА($1:$10)-1&"ml ";[@NAME]&" ");)));" ";ПОВТОР(" ";99));99))
Текстовый результатКод
=ТЕКСТ(--СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(ПСТР([@NAME];1;МАКС(ЕСЛИОШИБКА(НАЙТИ(СТРОКА($1:$10)-1&"ml ";[@NAME]&" ");)));" ";ПОВТОР(" ";99));99));"[<100]-;[>125]-;0")
С обычным форматированием, скрывающим нулиКод
=--ТЕКСТ(--СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(ПСТР([@NAME];1;МАКС(ЕСЛИОШИБКА(НАЙТИ(СТРОКА($1:$10)-1&"ml ";[@NAME]&" ");)));" ";ПОВТОР(" ";99));99));"[<100]\0;[>125]\0;0")
Учитывается возможность наличия таких текстов 12 PAml RFUMEURS FRANCAIS VILLANDRY edp 100ml TESTER 24 ELIXIR ml AZUR edp 100ml TESTER 19-69 L'AIR BAml RBES edp 100ml_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Сообщение отредактировал _Boroda_ - Среда, 25.05.2022, 10:15
Ответить
Сообщение TSC , а что Вы дальше с этим делать будете? Другими словами - Вам отображение нужно или реальные значения в тексте или в числах? Короче, 3 варианта. С Условным форматированиемКод
=--СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(ПСТР([@NAME];1;МАКС(ЕСЛИОШИБКА(НАЙТИ(СТРОКА($1:$10)-1&"ml ";[@NAME]&" ");)));" ";ПОВТОР(" ";99));99))
Текстовый результатКод
=ТЕКСТ(--СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(ПСТР([@NAME];1;МАКС(ЕСЛИОШИБКА(НАЙТИ(СТРОКА($1:$10)-1&"ml ";[@NAME]&" ");)));" ";ПОВТОР(" ";99));99));"[<100]-;[>125]-;0")
С обычным форматированием, скрывающим нулиКод
=--ТЕКСТ(--СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(ПСТР([@NAME];1;МАКС(ЕСЛИОШИБКА(НАЙТИ(СТРОКА($1:$10)-1&"ml ";[@NAME]&" ");)));" ";ПОВТОР(" ";99));99));"[<100]\0;[>125]\0;0")
Учитывается возможность наличия таких текстов 12 PAml RFUMEURS FRANCAIS VILLANDRY edp 100ml TESTER 24 ELIXIR ml AZUR edp 100ml TESTER 19-69 L'AIR BAml RBES edp 100mlАвтор - _Boroda_ Дата добавления - 25.05.2022 в 10:13
msi2102
Дата: Среда, 25.05.2022, 10:14 |
Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 413
Репутация:
129
±
Замечаний:
0% ±
Excel 2007
С налету не вышло. Не помню когда появился ФИЛЬТР.XML, по моему 2013[vba]Код
=--ПОДСТАВИТЬ(ВПР("*ml*";ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ([@NAME];"&";"");" ";"</s><s>")&"</s></t>";"//s");1;0);"ml";"")
[/vba]
С налету не вышло. Не помню когда появился ФИЛЬТР.XML, по моему 2013[vba]Код
=--ПОДСТАВИТЬ(ВПР("*ml*";ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ([@NAME];"&";"");" ";"</s><s>")&"</s></t>";"//s");1;0);"ml";"")
[/vba] msi2102
Сообщение отредактировал msi2102 - Среда, 25.05.2022, 10:18
Ответить
Сообщение С налету не вышло. Не помню когда появился ФИЛЬТР.XML, по моему 2013[vba]Код
=--ПОДСТАВИТЬ(ВПР("*ml*";ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ([@NAME];"&";"");" ";"</s><s>")&"</s></t>";"//s");1;0);"ml";"")
[/vba] Автор - msi2102 Дата добавления - 25.05.2022 в 10:14
msi2102
Дата: Среда, 25.05.2022, 10:45 |
Сообщение № 12
Группа: Проверенные
Ранг: Обитатель
Сообщений: 413
Репутация:
129
±
Замечаний:
0% ±
Excel 2007
Учитывается возможность наличия таких текстов 12 PAml RFUMEURS FRANCAIS VILLANDRY edp 100ml TESTER 24 ELIXIR mlAZUR edp 100ml TESTER 19-69 L'AIR BAmlRBES edp 100ml
Попробовал переписать с учетом условий, длинненько получилось [vba]Код
=СУММ(ЕСЛИОШИБКА(ЕСЛИ(ПОИСК("ml";ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ([@NAME];"&";"");" ";"</s><s>")&"</s></t>";"//s"))>0;ПОДСТАВИТЬ(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ([@NAME];"&";"");" ";"</s><s>")&"</s></t>";"//s");"ml";""))*1;0))
[/vba]
Учитывается возможность наличия таких текстов 12 PAml RFUMEURS FRANCAIS VILLANDRY edp 100ml TESTER 24 ELIXIR mlAZUR edp 100ml TESTER 19-69 L'AIR BAmlRBES edp 100ml
Попробовал переписать с учетом условий, длинненько получилось [vba]Код
=СУММ(ЕСЛИОШИБКА(ЕСЛИ(ПОИСК("ml";ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ([@NAME];"&";"");" ";"</s><s>")&"</s></t>";"//s"))>0;ПОДСТАВИТЬ(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ([@NAME];"&";"");" ";"</s><s>")&"</s></t>";"//s");"ml";""))*1;0))
[/vba] msi2102
Сообщение отредактировал msi2102 - Среда, 25.05.2022, 10:46
Ответить
Сообщение Учитывается возможность наличия таких текстов 12 PAml RFUMEURS FRANCAIS VILLANDRY edp 100ml TESTER 24 ELIXIR mlAZUR edp 100ml TESTER 19-69 L'AIR BAmlRBES edp 100ml
Попробовал переписать с учетом условий, длинненько получилось [vba]Код
=СУММ(ЕСЛИОШИБКА(ЕСЛИ(ПОИСК("ml";ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ([@NAME];"&";"");" ";"</s><s>")&"</s></t>";"//s"))>0;ПОДСТАВИТЬ(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ([@NAME];"&";"");" ";"</s><s>")&"</s></t>";"//s");"ml";""))*1;0))
[/vba] Автор - msi2102 Дата добавления - 25.05.2022 в 10:45
TSC
Дата: Среда, 25.05.2022, 12:55 |
Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
С налету не вышло. Не помню когда появился ФИЛЬТР.XML, по моему 2013
Спасибо! Не знал о такой функции, почитаю о ней
С налету не вышло. Не помню когда появился ФИЛЬТР.XML, по моему 2013
Спасибо! Не знал о такой функции, почитаю о нейTSC
Ответить
Сообщение С налету не вышло. Не помню когда появился ФИЛЬТР.XML, по моему 2013
Спасибо! Не знал о такой функции, почитаю о нейАвтор - TSC Дата добавления - 25.05.2022 в 12:55
TSC
Дата: Среда, 25.05.2022, 12:59 |
Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
У меня почему-то некорректно работает, но если покопаться, думаю разберусь) В любом случае спасибо)
У меня почему-то некорректно работает, но если покопаться, думаю разберусь) В любом случае спасибо)TSC
Ответить
Сообщение У меня почему-то некорректно работает, но если покопаться, думаю разберусь) В любом случае спасибо)Автор - TSC Дата добавления - 25.05.2022 в 12:59
TSC
Дата: Среда, 25.05.2022, 13:04 |
Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
TSC, а что Вы дальше с этим делать будете? Другими словами - Вам отображение нужно или реальные значения в тексте или в числах?
Да хочу просто сделать удобный фильтр для файла где 30 тысяч строк) Спасибо, всё верно работает. А вообще работа со строками в Excel регистрозависимая?
TSC, а что Вы дальше с этим делать будете? Другими словами - Вам отображение нужно или реальные значения в тексте или в числах?
Да хочу просто сделать удобный фильтр для файла где 30 тысяч строк) Спасибо, всё верно работает. А вообще работа со строками в Excel регистрозависимая?TSC
Ответить
Сообщение TSC, а что Вы дальше с этим делать будете? Другими словами - Вам отображение нужно или реальные значения в тексте или в числах?
Да хочу просто сделать удобный фильтр для файла где 30 тысяч строк) Спасибо, всё верно работает. А вообще работа со строками в Excel регистрозависимая?Автор - TSC Дата добавления - 25.05.2022 в 13:04
_Boroda_
Дата: Среда, 25.05.2022, 13:30 |
Сообщение № 16
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация:
6481
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
А вообще работа со строками в Excel регистрозависимая?
А это как написать. ПОИСК - нет, НАЙТИ - да, ПОДСТАВИТЬ тоже да
А вообще работа со строками в Excel регистрозависимая?
А это как написать. ПОИСК - нет, НАЙТИ - да, ПОДСТАВИТЬ тоже да_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение А вообще работа со строками в Excel регистрозависимая?
А это как написать. ПОИСК - нет, НАЙТИ - да, ПОДСТАВИТЬ тоже даАвтор - _Boroda_ Дата добавления - 25.05.2022 в 13:30
msi2102
Дата: Среда, 25.05.2022, 15:37 |
Сообщение № 17
Группа: Проверенные
Ранг: Обитатель
Сообщений: 413
Репутация:
129
±
Замечаний:
0% ±
Excel 2007
Можно ещё UDF [vba]Код
Function ml(cell$) With CreateObject("VBScript.RegExp") .Global = True: .Pattern = "\d+\s?(?=ml)" If .test(cell) Then ml = --Trim(.Execute(cell)(0)) Else ml = "Отсутствует" End With End Function
[/vba]
Можно ещё UDF [vba]Код
Function ml(cell$) With CreateObject("VBScript.RegExp") .Global = True: .Pattern = "\d+\s?(?=ml)" If .test(cell) Then ml = --Trim(.Execute(cell)(0)) Else ml = "Отсутствует" End With End Function
[/vba] msi2102
Ответить
Сообщение Можно ещё UDF [vba]Код
Function ml(cell$) With CreateObject("VBScript.RegExp") .Global = True: .Pattern = "\d+\s?(?=ml)" If .test(cell) Then ml = --Trim(.Execute(cell)(0)) Else ml = "Отсутствует" End With End Function
[/vba] Автор - msi2102 Дата добавления - 25.05.2022 в 15:37