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

 

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

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Поиск текста (слова) до заданного слова или после.
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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4147
Репутация: 772 ±
Замечаний: 0% ±

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


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

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

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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4147
Репутация: 772 ±
Замечаний: 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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 0% ±

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



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

Автор - AlexM
Дата добавления - 21.02.2017 в 08:59
китин Дата: Вторник, 21.02.2017, 09:00 | Сообщение № 8
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 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
Группа: Админы
Ранг: Местный житель
Сообщений: 16901
Репутация: 6613 ±
Замечаний: ±

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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4147
Репутация: 772 ±
Замечаний: 0% ±

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


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение[p.s.]все , перехожу на нативную локализацию. там ВПР а не VLOOKUP :-) . Я реально голову ломал зачем.[/p.s.]

Автор - bmv98rus
Дата добавления - 21.02.2017 в 09:11
AlexM Дата: Вторник, 21.02.2017, 11:12 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 0% ±

Excel 2003
Вариант с функцией

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

К сообщению приложен файл: 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 iEnd 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
  • Страница 1 из 1
  • 1
Поиск:

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