Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск текста (слова) до заданного слова или после. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск текста (слова) до заданного слова или после. (Формулы/Formulas)
Поиск текста (слова) до заданного слова или после.
Georg305 Дата: Понедельник, 20.02.2017, 22:51 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброго времени, суток не могу решить казалось бы простую задачу. Надо найти слово по условию, что это слово стоит перед заданным словом и как второй вариант после заданного слова. Пробовал с помощью "СЖПРОБЕЛ и ПСТР", что-то коряво вышло. Может кто сможет помочь. Искал по форумам подходящего нет или кто видел похожее решение задачи. Спасибо. Предвосхищаю вопрос - в готовых решениях тоже смотрел, "поисковиком" искал.
К сообщению приложен файл: -_-.xls (20.5 Kb)
 
Ответить
СообщениеДоброго времени, суток не могу решить казалось бы простую задачу. Надо найти слово по условию, что это слово стоит перед заданным словом и как второй вариант после заданного слова. Пробовал с помощью "СЖПРОБЕЛ и ПСТР", что-то коряво вышло. Может кто сможет помочь. Искал по форумам подходящего нет или кто видел похожее решение задачи. Спасибо. Предвосхищаю вопрос - в готовых решениях тоже смотрел, "поисковиком" искал.
Автор - Georg305
Дата добавления - 20.02.2017 в 22:51
bmv98rus Дата: Понедельник, 20.02.2017, 23:06 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4107
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
Сделать то что пытаетесь? В чем что, после чего, перед чем найти?

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеСделать то что пытаетесь? В чем что, после чего, перед чем найти?
Автор - bmv98rus
Дата добавления - 20.02.2017 в 23:06
_Boroda_ Дата: Понедельник, 20.02.2017, 23:27 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
Код
=ЕСЛИ(ЕЧИСЛО(ПОИСК(B$1;$A2));СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ($A2;B$1;ПОВТОР(" ";999));999));",";ПОВТОР(" ";99));99));"")

Только сразу скажу - найдет не всё и не всегда.
В первой строке точки заменил на запятые
К сообщению приложен файл: 1558724.xls (28.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
Код
=ЕСЛИ(ЕЧИСЛО(ПОИСК(B$1;$A2));СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ($A2;B$1;ПОВТОР(" ";999));999));",";ПОВТОР(" ";99));99));"")

Только сразу скажу - найдет не всё и не всегда.
В первой строке точки заменил на запятые
Автор - _Boroda_
Дата добавления - 20.02.2017 в 23:27
Georg305 Дата: Вторник, 21.02.2017, 00:43 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата bmv98rus, 20.02.2017 в 23:06, в сообщении № 2 ()
после чего, перед чем

Ищу "область", "район", "город", "улицу", "номер дома", "номер квартиры".
 
Ответить
Сообщение
Цитата bmv98rus, 20.02.2017 в 23:06, в сообщении № 2 ()
после чего, перед чем

Ищу "область", "район", "город", "улицу", "номер дома", "номер квартиры".
Автор - Georg305
Дата добавления - 21.02.2017 в 00:43
Wasilich Дата: Вторник, 21.02.2017, 02:20 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Если адреса так четко выстроены то должно работать.
К сообщению приложен файл: Georg305.xls (40.0 Kb)
 
Ответить
СообщениеЕсли адреса так четко выстроены то должно работать.
Автор - Wasilich
Дата добавления - 21.02.2017 в 02:20
bmv98rus Дата: Вторник, 21.02.2017, 08:22 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4107
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
Александр,

Удовлетворите любопытство, почему почти всегда LEFTB? Подстарховка или опыт работы с корейским, китайским, японским? Вроже это только для них (The languages that support DBCS include Japanese, Chinese (Simplified), Chinese (Traditional), and Korean. )

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

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеАлександр,

Удовлетворите любопытство, почему почти всегда LEFTB? Подстарховка или опыт работы с корейским, китайским, японским? Вроже это только для них (The languages that support DBCS include Japanese, Chinese (Simplified), Chinese (Traditional), and Korean. )

А прием в формуле замечательный, добавить лишнее чтоб проще искать нужное, все время про это забываю.
Автор - bmv98rus
Дата добавления - 21.02.2017 в 08:22
AlexM Дата: Вторник, 21.02.2017, 08:59 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4484
Репутация: 1115 ±
Замечаний: 0% ±

Excel 2003
[offtop]Михаил, по поводу LEFTB.
Вы просматриваете форум когда формулы представлены функциями написанными на английском.
Переключите на Rus и увидите ЛЕВБ(). ЛЕВБ() короче ЛЕВСИМВ() почти в два раза. В этом смысл.
Уверен, что для формул En Александр написал бы LEFT(), а не LEFTB()


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщение[offtop]Михаил, по поводу LEFTB.
Вы просматриваете форум когда формулы представлены функциями написанными на английском.
Переключите на Rus и увидите ЛЕВБ(). ЛЕВБ() короче ЛЕВСИМВ() почти в два раза. В этом смысл.
Уверен, что для формул En Александр написал бы LEFT(), а не LEFTB()
Автор - AlexM
Дата добавления - 21.02.2017 в 08:59
китин Дата: Вторник, 21.02.2017, 09:00 | Сообщение № 8
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Цитата bmv98rus, 21.02.2017 в 08:22, в сообщении № 6 ()
почти всегда LEFTB

просто короче. писАть меньше. :p
[p.s.] я тоже когда то у Саши об этом спрашивал

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
Цитата bmv98rus, 21.02.2017 в 08:22, в сообщении № 6 ()
почти всегда LEFTB

просто короче. писАть меньше. :p
[p.s.] я тоже когда то у Саши об этом спрашивал
Автор - китин
Дата добавления - 21.02.2017 в 09:00
_Boroda_ Дата: Вторник, 21.02.2017, 09:11 | Сообщение № 9
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
На самом деле это порочная практика - функции ЛЕВБ и ПРАВБ отсутствуют по-моему в Маке. Или не в Маке, а в Гугле. Или не в Гугле, а еще где-то. Но не так уж и важно где, важно, что я несколько раз нарывался на то, что ЛЕВБ не работает, а ЛЕВСИМВ работает.
Но "Лень-матушка вперед меня родилась", ведь это ж какая экономия - целых 3 символа не набрать

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНа самом деле это порочная практика - функции ЛЕВБ и ПРАВБ отсутствуют по-моему в Маке. Или не в Маке, а в Гугле. Или не в Гугле, а еще где-то. Но не так уж и важно где, важно, что я несколько раз нарывался на то, что ЛЕВБ не работает, а ЛЕВСИМВ работает.
Но "Лень-матушка вперед меня родилась", ведь это ж какая экономия - целых 3 символа не набрать
Автор - _Boroda_
Дата добавления - 21.02.2017 в 09:11
bmv98rus Дата: Вторник, 21.02.2017, 09:11 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4107
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
[p.s.]все , перехожу на нативную локализацию. там ВПР а не VLOOKUP :-) . Я реально голову ломал зачем.[/p.s.]

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение[p.s.]все , перехожу на нативную локализацию. там ВПР а не VLOOKUP :-) . Я реально голову ломал зачем.[/p.s.]
Автор - bmv98rus
Дата добавления - 21.02.2017 в 09:11
AlexM Дата: Вторник, 21.02.2017, 11:12 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4484
Репутация: 1115 ±
Замечаний: 0% ±

Excel 2003
Цитата _Boroda_, 21.02.2017 в 09:11, в сообщении № 9 ()
Или не в Гугле
В Google таблицах бинарных точно нет.


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщение
Цитата _Boroda_, 21.02.2017 в 09:11, в сообщении № 9 ()
Или не в Гугле
В Google таблицах бинарных точно нет.
Автор - AlexM
Дата добавления - 21.02.2017 в 11:12
Georg305 Дата: Вторник, 21.02.2017, 15:50 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, Спасибо, всё работает!
 
Ответить
Сообщение_Boroda_, Спасибо, всё работает!
Автор - Georg305
Дата добавления - 21.02.2017 в 15:50
Georg305 Дата: Вторник, 21.02.2017, 15:53 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Wasilich, Спасибо за помощь, если можно поясните как у Вас работает.
 
Ответить
СообщениеWasilich, Спасибо за помощь, если можно поясните как у Вас работает.
Автор - Georg305
Дата добавления - 21.02.2017 в 15:53
Wasilich Дата: Вторник, 21.02.2017, 15:58 | Сообщение № 14
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата Georg305, 21.02.2017 в 15:53, в сообщении № 13 ()
поясните как у Вас работает
Пояснять как работает макрос VBA, это долго. Его надо изучать. yes
 
Ответить
Сообщение
Цитата Georg305, 21.02.2017 в 15:53, в сообщении № 13 ()
поясните как у Вас работает
Пояснять как работает макрос VBA, это долго. Его надо изучать. yes
Автор - Wasilich
Дата добавления - 21.02.2017 в 15:58
AlexM Дата: Вторник, 21.02.2017, 17:14 | Сообщение № 15
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4484
Репутация: 1115 ±
Замечаний: 0% ±

Excel 2003
Вариант с функцией[vba]
Код
Function Adres(iStr As String, Kr As String) As String
    Dim Arr, i As Long, sm As Long
    Arr = Split(iStr)
    Select Case Kr
        Case "ОБЛ,", "Р-Н,", "Г,", "УЛ,": sm = -1
        Case "ДОМ №", "кв.": sm = 1
    End Select
    If Kr = "ДОМ №" Then Kr = "№"
    For i = 0 To UBound(Arr)
        If Arr(i) = Kr Then Adres = Replace(Arr(i + sm), ",", ""): Exit For
    Next i
End Function
[/vba]
К сообщению приложен файл: Georg305_01.xls (33.5 Kb)


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Вторник, 21.02.2017, 17:15
 
Ответить
СообщениеВариант с функцией[vba]
Код
Function Adres(iStr As String, Kr As String) As String
    Dim Arr, i As Long, sm As Long
    Arr = Split(iStr)
    Select Case Kr
        Case "ОБЛ,", "Р-Н,", "Г,", "УЛ,": sm = -1
        Case "ДОМ №", "кв.": sm = 1
    End Select
    If Kr = "ДОМ №" Then Kr = "№"
    For i = 0 To UBound(Arr)
        If Arr(i) = Kr Then Adres = Replace(Arr(i + sm), ",", ""): Exit For
    Next i
End Function
[/vba]
Автор - AlexM
Дата добавления - 21.02.2017 в 17:14
Georg305 Дата: Среда, 22.02.2017, 10:18 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Wasilich, Понятно, спасибо за ответ.
AlexM, Спасибо!
 
Ответить
СообщениеWasilich, Понятно, спасибо за ответ.
AlexM, Спасибо!
Автор - Georg305
Дата добавления - 22.02.2017 в 10:18
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск текста (слова) до заданного слова или после. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!