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

Вход

Регистрация

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

 

= Мир MS Excel/Поиск позиции в словосочетании - Мир MS Excel

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

Excel 2010
Добрый день!
Задача сложная на мой взгляд.
В двух словах, столбец A нужно сортировать по столбцу С.
На словах тяжело объяснить, что конкретно нужно сделать, поэтому файл во вложении.
Пример как должно быть также указал в файле
К сообщению приложен файл: 8256063.xlsx (23.7 Kb)
 
Ответить
СообщениеДобрый день!
Задача сложная на мой взгляд.
В двух словах, столбец A нужно сортировать по столбцу С.
На словах тяжело объяснить, что конкретно нужно сделать, поэтому файл во вложении.
Пример как должно быть также указал в файле
Автор - lolkisonik
Дата добавления - 09.03.2017 в 15:00
buchlotnik Дата: Четверг, 09.03.2017, 15:40 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
В вашем примере итог никак не связан со столбцом С. По примеру - модель можно вынуть UDF-кой [vba]
Код
Function model$(t$)
    With CreateObject("VBScript.Regexp")
        .Pattern = "[a-z]+\d+[\da-z]+"
        model = .Execute(t)(0)
    End With
End Function
[/vba] и далее построить сводную таблицу
К сообщению приложен файл: 8256063.xlsb (43.3 Kb) · 8256063-1-.xlsb (42.5 Kb)


Сообщение отредактировал buchlotnik - Четверг, 09.03.2017, 16:04
 
Ответить
СообщениеВ вашем примере итог никак не связан со столбцом С. По примеру - модель можно вынуть UDF-кой [vba]
Код
Function model$(t$)
    With CreateObject("VBScript.Regexp")
        .Pattern = "[a-z]+\d+[\da-z]+"
        model = .Execute(t)(0)
    End With
End Function
[/vba] и далее построить сводную таблицу
Автор - buchlotnik
Дата добавления - 09.03.2017 в 15:40
bmv98rus Дата: Четверг, 09.03.2017, 15:46 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4147
Репутация: 772 ±
Замечаний: 0% ±

Excel 2013/2016
Михаил,

мою масивную
Код
="Модель " & TRIM(MID(SUBSTITUTE(" " & A3 & " ";" ";REPT(" ";65));MIN(IFERROR(FIND({0;1;2;3;4;5;6;7;8;9};SUBSTITUTE(" " & A3 & " ";" ";REPT(" ";65)));9^9))-64;130))
Подорвал посудомоечная машина 45 см siemens sr25e230ru купить :-)
Сводная не совсем в том виде получается, итог нужно получить по частоте в группе и это делается, но не совсем так как видел автор. :-( Хотя приблизить и пробежуточный итог поднять наверх можно.

Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Четверг, 09.03.2017, 15:53
 
Ответить
СообщениеМихаил,

мою масивную
Код
="Модель " & TRIM(MID(SUBSTITUTE(" " & A3 & " ";" ";REPT(" ";65));MIN(IFERROR(FIND({0;1;2;3;4;5;6;7;8;9};SUBSTITUTE(" " & A3 & " ";" ";REPT(" ";65)));9^9))-64;130))
Подорвал посудомоечная машина 45 см siemens sr25e230ru купить :-)
Сводная не совсем в том виде получается, итог нужно получить по частоте в группе и это делается, но не совсем так как видел автор. :-( Хотя приблизить и пробежуточный итог поднять наверх можно.
Автор - bmv98rus
Дата добавления - 09.03.2017 в 15:46
lolkisonik Дата: Четверг, 09.03.2017, 16:43 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Цитата buchlotnik, 09.03.2017 в 15:40, в сообщении № 2 ()
В вашем примере итог никак не связан со столбцом С. По примеру - модель можно вынуть UDF-кой
Function model$(t$)
    With CreateObject("VBScript.Regexp")
        .Pattern = "[a-z]+\d+[\da-z]+"
        model = .Execute(t)(0)
    End With
End Function
и далее построить сводную таблицу

а как UDF-лой выдернуть, я в первые слышу такой терпен UDF)
 
Ответить
Сообщение
Цитата buchlotnik, 09.03.2017 в 15:40, в сообщении № 2 ()
В вашем примере итог никак не связан со столбцом С. По примеру - модель можно вынуть UDF-кой
Function model$(t$)
    With CreateObject("VBScript.Regexp")
        .Pattern = "[a-z]+\d+[\da-z]+"
        model = .Execute(t)(0)
    End With
End Function
и далее построить сводную таблицу

а как UDF-лой выдернуть, я в первые слышу такой терпен UDF)
Автор - lolkisonik
Дата добавления - 09.03.2017 в 16:43
buchlotnik Дата: Четверг, 09.03.2017, 16:47 | Сообщение № 5
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
lolkisonik, а вы мой файл открывали?
 
Ответить
Сообщениеlolkisonik, а вы мой файл открывали?
Автор - buchlotnik
Дата добавления - 09.03.2017 в 16:47
lolkisonik Дата: Четверг, 09.03.2017, 17:36 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
buchlotnik, Да я открывал ваш файл, только 1 вопрос остался, как теперь мне все это сделать самостоятельно?)
Мне в принцыпе хватит того, чтоб из словосачитаниях выдергивалась только модель
 
Ответить
Сообщениеbuchlotnik, Да я открывал ваш файл, только 1 вопрос остался, как теперь мне все это сделать самостоятельно?)
Мне в принцыпе хватит того, чтоб из словосачитаниях выдергивалась только модель
Автор - lolkisonik
Дата добавления - 09.03.2017 в 17:36
buchlotnik Дата: Четверг, 09.03.2017, 17:47 | Сообщение № 7
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Посмотрите Функции определённые пользователем - в модуль добавьте код из моего сообщения
 
Ответить
СообщениеПосмотрите Функции определённые пользователем - в модуль добавьте код из моего сообщения
Автор - buchlotnik
Дата добавления - 09.03.2017 в 17:47
Pelena Дата: Четверг, 09.03.2017, 18:42 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 19511
Репутация: 4620 ±
Замечаний: ±

Excel 365 & Mac Excel
lolkisonik, а почему в своих предыдущих темах не отписываететсь?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщениеlolkisonik, а почему в своих предыдущих темах не отписываететсь?
Автор - Pelena
Дата добавления - 09.03.2017 в 18:42
SViktor Дата: Пятница, 10.03.2017, 16:26 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день, прошу помочь в составлении макроса, своих знаний пока не хватает. Прибор теплоучёта формирует и сохраняет файл.xls(приложен), в котором необходимо найти и скопировать показания(выделены желтым) в существующую книгу. В макрорекордере был составлен код, но возникла необходимость поиска этих данных, т.к ежемесячно их расположение относительно строк и столбцов изменяется.
Workbooks.Open Filename:= _
"\\USER-ПК\Users\Public\Documents\ТЭМ-104.xls"
Range("Y87:AH90").Select
Selection.Copy
Windows("ГВС ТП.xlsm").Activate
Sheets("Лист1").Select
Range("D140").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("ТЭМ-104.xls").Activate
Range("AF183:AM187").Select
Selection.Copy
Windows("ГВС ТП.xlsm").Activate
Range("D146").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks("ТЭМ-104.xls").Close SaveChanges:=False
К сообщению приложен файл: -104.xls (89.5 Kb)
 
Ответить
СообщениеДобрый день, прошу помочь в составлении макроса, своих знаний пока не хватает. Прибор теплоучёта формирует и сохраняет файл.xls(приложен), в котором необходимо найти и скопировать показания(выделены желтым) в существующую книгу. В макрорекордере был составлен код, но возникла необходимость поиска этих данных, т.к ежемесячно их расположение относительно строк и столбцов изменяется.
Workbooks.Open Filename:= _
"\\USER-ПК\Users\Public\Documents\ТЭМ-104.xls"
Range("Y87:AH90").Select
Selection.Copy
Windows("ГВС ТП.xlsm").Activate
Sheets("Лист1").Select
Range("D140").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("ТЭМ-104.xls").Activate
Range("AF183:AM187").Select
Selection.Copy
Windows("ГВС ТП.xlsm").Activate
Range("D146").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks("ТЭМ-104.xls").Close SaveChanges:=False
Автор - SViktor
Дата добавления - 10.03.2017 в 16:26
bmv98rus Дата: Пятница, 10.03.2017, 16:36 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4147
Репутация: 772 ±
Замечаний: 0% ±

Excel 2013/2016
[offtop]SViktor,
Это Вы точно в цель прям попали со своим вопросом, прям прослеживается связь меду Вашим прибором учета и поиском словосочетаняи черз прочетние правил форума.[/offtop]

Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Пятница, 10.03.2017, 16:37
 
Ответить
Сообщение[offtop]SViktor,
Это Вы точно в цель прям попали со своим вопросом, прям прослеживается связь меду Вашим прибором учета и поиском словосочетаняи черз прочетние правил форума.[/offtop]
Автор - bmv98rus
Дата добавления - 10.03.2017 в 16:36
SViktor Дата: Пятница, 10.03.2017, 21:06 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Прошу извинить, создавать тему не стал, вопрос по моему похож, в моём файле две таблицы с данными, шапки таблиц с датами, записанными с апострофом - как текст, чем не словосочетание и ориентир для поиска?
 
Ответить
СообщениеПрошу извинить, создавать тему не стал, вопрос по моему похож, в моём файле две таблицы с данными, шапки таблиц с датами, записанными с апострофом - как текст, чем не словосочетание и ориентир для поиска?
Автор - SViktor
Дата добавления - 10.03.2017 в 21:06
Pelena Дата: Пятница, 10.03.2017, 22:22 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 19511
Репутация: 4620 ±
Замечаний: ±

Excel 365 & Mac Excel
SViktor, прочитайте Правила форума и создайте свою тему. Коды следует оформлять тегами (кнопка #)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеSViktor, прочитайте Правила форума и создайте свою тему. Коды следует оформлять тегами (кнопка #)
Автор - Pelena
Дата добавления - 10.03.2017 в 22:22
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск позиции в словосочетании (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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