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

Вход

Регистрация

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

 

= Мир MS Excel/Фильтр с несколькими условиями помогите - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Фильтр с несколькими условиями помогите (Формулы/Formulas)
Фильтр с несколькими условиями помогите
Slavagl Дата: Четверг, 01.12.2016, 05:40 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Есть список имен и фамилий (это - ограниченный список; в реальности гораздо больше, поэтому и нужна автоматическая замена). В фильтре необходимо выбрать те, которые кончаются, на р, н, ов, ев, и разместить результаты в столбце б2, а ова, ева, ина - в б3. Не могу задать выше двух условий. Помогите, плз.

И еще, после отфильтровки фамилий на ина, ева, ова, заменить окончания в них на инной, евной, овной и поместить результаты в б4.

Спасибо и с уважением.
К сообщению приложен файл: 7117668.xlsx(13Kb)


Сообщение отредактировал Slavagl - Четверг, 01.12.2016, 05:41
 
Ответить
СообщениеЕсть список имен и фамилий (это - ограниченный список; в реальности гораздо больше, поэтому и нужна автоматическая замена). В фильтре необходимо выбрать те, которые кончаются, на р, н, ов, ев, и разместить результаты в столбце б2, а ова, ева, ина - в б3. Не могу задать выше двух условий. Помогите, плз.

И еще, после отфильтровки фамилий на ина, ева, ова, заменить окончания в них на инной, евной, овной и поместить результаты в б4.

Спасибо и с уважением.

Автор - Slavagl
Дата добавления - 01.12.2016 в 05:40
TimSha Дата: Четверг, 01.12.2016, 08:26 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 456
Репутация: 73 ±
Замечаний: 0% ±

Excel 2013 Pro +
На форуме вы не первый с подобной темой.
Включите поиск и см. вкладку/скрин.
ps А поскольку вам требуется комплексное решение, то надо, наверное, подумать о заказе решения... ;)
К сообщению приложен файл: 7106437.png(171Kb)


"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)

Сообщение отредактировал TimSha - Четверг, 01.12.2016, 08:27
 
Ответить
СообщениеНа форуме вы не первый с подобной темой.
Включите поиск и см. вкладку/скрин.
ps А поскольку вам требуется комплексное решение, то надо, наверное, подумать о заказе решения... ;)

Автор - TimSha
Дата добавления - 01.12.2016 в 08:26
Pelena Дата: Четверг, 01.12.2016, 09:03 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 9862
Репутация: 2255 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
которые кончаются, на р, н, ов, ев

Не уловила логику. В этот фильтр попадут и имена, и фамилии


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
которые кончаются, на р, н, ов, ев

Не уловила логику. В этот фильтр попадут и имена, и фамилии

Автор - Pelena
Дата добавления - 01.12.2016 в 09:03
K-SerJC Дата: Четверг, 01.12.2016, 09:47 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 78
Репутация: 11 ±
Замечаний: 60% ±

Excel 2013
вот так?
К сообщению приложен файл: Slavagl.xlsm(29Kb)


Благими намерениями выстелена дорога в АД.
 
Ответить
Сообщениевот так?

Автор - K-SerJC
Дата добавления - 01.12.2016 в 09:47
Slavagl Дата: Четверг, 01.12.2016, 09:51 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
K-SerJC, именно так) Не подскажите что делать, кудесник?
 
Ответить
СообщениеK-SerJC, именно так) Не подскажите что делать, кудесник?

Автор - Slavagl
Дата добавления - 01.12.2016 в 09:51
Michael_S Дата: Четверг, 01.12.2016, 09:53 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1687
Репутация: 327 ±
Замечаний: 0% ±

Excel2016
разместить результаты в столбце б2, а ова, ева, ина - в б3.

Про столбцы не понял...


ЯД: 41001136675053
WM: R389613894253
 
Ответить
Сообщение
разместить результаты в столбце б2, а ова, ева, ина - в б3.

Про столбцы не понял...

Автор - Michael_S
Дата добавления - 01.12.2016 в 09:53
Slavagl Дата: Четверг, 01.12.2016, 09:57 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
задача - есть слова (пару тысяч), необходимо их поместить в различные падежи (а потом собрать все варианты в один документ). В связи с этим необходимо провести выборку слов по последним буквам, которые будут склоняться в целом на одни окончания по падежам (а затем уже в ручную доработать окончания, где были сделаны ошибки). Поэтому в моем вопросе такая выборка последних букв слов.


Сообщение отредактировал Slavagl - Четверг, 01.12.2016, 09:58
 
Ответить
Сообщениезадача - есть слова (пару тысяч), необходимо их поместить в различные падежи (а потом собрать все варианты в один документ). В связи с этим необходимо провести выборку слов по последним буквам, которые будут склоняться в целом на одни окончания по падежам (а затем уже в ручную доработать окончания, где были сделаны ошибки). Поэтому в моем вопросе такая выборка последних букв слов.

Автор - Slavagl
Дата добавления - 01.12.2016 в 09:57
K-SerJC Дата: Четверг, 01.12.2016, 11:50 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 78
Репутация: 11 ±
Замечаний: 60% ±

Excel 2013
Не подскажите что делать, кудесник?


в vba два макроса
ref1 составляет отобранные по вашим условиям списки подряд
а ref2 составляет список в сроке рядом с исходной

для работы кнопок надо чтобы были включены макросы
[vba]
Код

01 Dim str As String, endRow As Integer, c2 As Integer, c3 As Integer, c4 As Integer
02 endRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
03 ActiveSheet.Range("---").Clear
04 c2 = 1: c3 = 1: c4 = 1
05 For f = 2 To endRow
06 str = ActiveSheet.Cells(f, 1).Value
07 If Right(str, 1) = "р" Or Right(str, 1) = "н" Or Right(str, 2) = "ов" Or Right(str, 2) = "ев" Then
08 ActiveSheet.Cells(c2, 2).Value = str: c2 = c2 + 1: End If
09 If Right(str, 3) = "ова" Or Right(str, 3) = "ева" Or Right(str, 3) = "ина" Then
10 ActiveSheet.Cells(c3, 3).Value = str: c3 = c3 + 1: End If
11 If Right(str, 3) = "ова" Or Right(str, 3) = "ева" Or Right(str, 3) = "ина" Then
12 ActiveSheet.Cells(c4, 4).Value = Mid(str, 1, Len(str) - 1) & "ной": c4 = c4 + 1: End If
13 Next f
[/vba]

по коду в строке 7 условие, в строке 8 что делать если совпадает, аналогично 9-10, 11-12
код проверяет все строки в первом столбце.
11-12 меняет в "ова", "ева", "ина" последнюю букву "а" на "ной" и записывает в 4 столбец

копируете в первую колонку полный список ваших ФИО, сохраняете файл, запускаете нужный макрос.


Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Четверг, 01.12.2016, 12:00
 
Ответить
Сообщение
Не подскажите что делать, кудесник?


в vba два макроса
ref1 составляет отобранные по вашим условиям списки подряд
а ref2 составляет список в сроке рядом с исходной

для работы кнопок надо чтобы были включены макросы
[vba]
Код

01 Dim str As String, endRow As Integer, c2 As Integer, c3 As Integer, c4 As Integer
02 endRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
03 ActiveSheet.Range("---").Clear
04 c2 = 1: c3 = 1: c4 = 1
05 For f = 2 To endRow
06 str = ActiveSheet.Cells(f, 1).Value
07 If Right(str, 1) = "р" Or Right(str, 1) = "н" Or Right(str, 2) = "ов" Or Right(str, 2) = "ев" Then
08 ActiveSheet.Cells(c2, 2).Value = str: c2 = c2 + 1: End If
09 If Right(str, 3) = "ова" Or Right(str, 3) = "ева" Or Right(str, 3) = "ина" Then
10 ActiveSheet.Cells(c3, 3).Value = str: c3 = c3 + 1: End If
11 If Right(str, 3) = "ова" Or Right(str, 3) = "ева" Or Right(str, 3) = "ина" Then
12 ActiveSheet.Cells(c4, 4).Value = Mid(str, 1, Len(str) - 1) & "ной": c4 = c4 + 1: End If
13 Next f
[/vba]

по коду в строке 7 условие, в строке 8 что делать если совпадает, аналогично 9-10, 11-12
код проверяет все строки в первом столбце.
11-12 меняет в "ова", "ева", "ина" последнюю букву "а" на "ной" и записывает в 4 столбец

копируете в первую колонку полный список ваших ФИО, сохраняете файл, запускаете нужный макрос.

Автор - K-SerJC
Дата добавления - 01.12.2016 в 11:50
K-SerJC Дата: Понедельник, 05.12.2016, 08:15 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 78
Репутация: 11 ±
Замечаний: 60% ±

Excel 2013
скриншот как настроить запуск макроса
кнопки с листа убрал
К сообщению приложен файл: Slavagl_V2.xlsm(23Kb)


Благими намерениями выстелена дорога в АД.
 
Ответить
Сообщение скриншот как настроить запуск макроса
кнопки с листа убрал

Автор - K-SerJC
Дата добавления - 05.12.2016 в 08:15
Slavagl Дата: Понедельник, 05.12.2016, 11:22 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
спасибо большое
 
Ответить
Сообщениеспасибо большое

Автор - Slavagl
Дата добавления - 05.12.2016 в 11:22
Slavagl Дата: Понедельник, 05.12.2016, 11:49 | Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
вы не подскажете макрос, как в первый ряд добавить те же слова, но с другими окончаниями?

Из
Антон
Гриша

Сделать
Антон
Антоны
Гриша
Гриши

И удалить все повторяющиеся слова и пустые ячейки во всей таблице. Если это уже где-то было, то сорри.


Сообщение отредактировал Slavagl - Понедельник, 05.12.2016, 12:09
 
Ответить
Сообщениевы не подскажете макрос, как в первый ряд добавить те же слова, но с другими окончаниями?

Из
Антон
Гриша

Сделать
Антон
Антоны
Гриша
Гриши

И удалить все повторяющиеся слова и пустые ячейки во всей таблице. Если это уже где-то было, то сорри.

Автор - Slavagl
Дата добавления - 05.12.2016 в 11:49
Pelena Дата: Понедельник, 05.12.2016, 12:15 | Сообщение № 12
Группа: Модераторы
Ранг: Экселист
Сообщений: 9862
Репутация: 2255 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
Вопрос не относится к данной теме. Создайте новую


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеВопрос не относится к данной теме. Создайте новую

Автор - Pelena
Дата добавления - 05.12.2016 в 12:15
K-SerJC Дата: Понедельник, 05.12.2016, 12:15 | Сообщение № 13
Группа: Пользователи
Ранг: Участник
Сообщений: 78
Репутация: 11 ±
Замечаний: 60% ±

Excel 2013
ответ удален администрацией


Благими намерениями выстелена дорога в АД.

Сообщение отредактировал _Boroda_ - Понедельник, 05.12.2016, 12:16
 
Ответить
Сообщениеответ удален администрацией

Автор - K-SerJC
Дата добавления - 05.12.2016 в 12:15
Slavagl Дата: Понедельник, 05.12.2016, 12:24 | Сообщение № 14
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
K-SerJC

Спасибо за помощь. Возможно запросил больше, чем должен. И так сильно помогли.


Сообщение отредактировал Slavagl - Понедельник, 05.12.2016, 14:11
 
Ответить
СообщениеK-SerJC

Спасибо за помощь. Возможно запросил больше, чем должен. И так сильно помогли.

Автор - Slavagl
Дата добавления - 05.12.2016 в 12:24
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Фильтр с несколькими условиями помогите (Формулы/Formulas)
Страница 1 из 11
Поиск:

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