Будем развивать форум. 
Есть таблица с годами по столбцах. Надо отфильтровать строки в которых есть год 2010, к примеру. Обычный автофильтр не дает полный результат. Дело в том, что в некоторых ячейках могут быть записи типа: 2009, 2010, 2012 ( , 2010, 2012). Т.е. отфильтровать надо все строки (по данному столбцу, конечно), в котором присутствует год 2010, к примеру. Формулами я смогу это сделать, но исходный файл (выборка с базы данных) может быть разный по количеству и очередности полей. Так что нужен макрос, видать.
Пример в пр. файле (по крайней мере попытался прикрепить ).
Фильтр с подвохом
Страница: 1
Сообщений 1 страница 15 из 15
Поделиться12010-05-28 20:52:04
- Форумчанин
- Откуда: Шостка, Украина
- Зарегистрирован: 2010-05-05
- Приглашений: 0
- Сообщений: 7
- Уважение: [+0/-0]
- Позитив: [+0/-0]
- Пол: Мужской
- Провел на форуме:
6 часов 10 минут - Последний визит:
2013-10-19 19:05:56
Поделиться22010-05-28 20:54:35
- Форумчанин
- Откуда: Шостка, Украина
- Зарегистрирован: 2010-05-05
- Приглашений: 0
- Сообщений: 7
- Уважение: [+0/-0]
- Позитив: [+0/-0]
- Пол: Мужской
- Провел на форуме:
6 часов 10 минут - Последний визит:
2013-10-19 19:05:56
Чет ничего не прикрепилось. ;(
Надеюсь вопрос понятен или подскажите как прикрепить файл, пожалуйста.
Поделиться32010-05-28 21:46:44
Тут, похоже, вообще не прикрепляется.
Такой код
Код:
Option Explicit
Sub Фильтр()
Dim str As String, poz As Range
str = [F20].Text
Application.ScreenUpdating = False
For Each poz In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
If InStr(1, poz.Value, str) = 0 Then poz.EntireRow.Hidden = True
Next poz
Application.ScreenUpdating = True
End Sub
Sub Отмена()
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
End SubЕсть две кнопки, можно выбрать строку для поиска.
Файл с примером здесь
http://ifolder.ru/17918361
Поделиться42010-05-28 22:34:09
- Форумчанин
- Откуда: Шостка, Украина
- Зарегистрирован: 2010-05-05
- Приглашений: 0
- Сообщений: 7
- Уважение: [+0/-0]
- Позитив: [+0/-0]
- Пол: Мужской
- Провел на форуме:
6 часов 10 минут - Последний визит:
2013-10-19 19:05:56
nilem, спасибо!
Все предельно просто, но мат. часть мне все-таки надо учить. 
Еще раз спасибо!
Поделиться52010-05-28 22:36:30
- Форумчанин
- Откуда: Шостка, Украина
- Зарегистрирован: 2010-05-05
- Приглашений: 0
- Сообщений: 7
- Уважение: [+0/-0]
- Позитив: [+0/-0]
- Пол: Мужской
- Провел на форуме:
6 часов 10 минут - Последний визит:
2013-10-19 19:05:56
Да, nilem, научите, плиз, как заливать файлы на http://ifolder.ru/?
Поделиться62010-05-28 22:45:29
- Форумчанин
- Откуда: Шостка, Украина
- Зарегистрирован: 2010-05-05
- Приглашений: 0
- Сообщений: 7
- Уважение: [+0/-0]
- Позитив: [+0/-0]
- Пол: Мужской
- Провел на форуме:
6 часов 10 минут - Последний визит:
2013-10-19 19:05:56
Вопрос выше снимается, там все ясно.
Поделиться72010-05-28 23:43:16
- Администратор
- Зарегистрирован: 2010-04-17
- Приглашений: 0
- Сообщений: 267
- Уважение: [+4/-0]
- Позитив: [+1/-0]
- Пол: Мужской
- Возраст: 47 [1977-01-09]
- Провел на форуме:
4 дня 4 часа - Последний визит:
2013-07-19 20:34:17
Vovan RU написал(а):
Пример в пр. файле (по крайней мере попытался прикрепить ).
Vovan RU, пункт 2 правил:
Приложить файл-пример можете выложив файл на любой файлообменник, а ссылку на него уже сюда.
Я ща в отпуске, выйти в инет проблема...
Поделиться82010-05-29 00:00:56
- Форумчанин
- Откуда: Шостка, Украина
- Зарегистрирован: 2010-05-05
- Приглашений: 0
- Сообщений: 7
- Уважение: [+0/-0]
- Позитив: [+0/-0]
- Пол: Мужской
- Провел на форуме:
6 часов 10 минут - Последний визит:
2013-10-19 19:05:56
Serge 007, спасибо, понял.
Хорошо Вам отдохнуть!
Поделиться92010-06-05 00:14:04
- Администратор
- Зарегистрирован: 2010-04-17
- Приглашений: 0
- Сообщений: 267
- Уважение: [+4/-0]
- Позитив: [+1/-0]
- Пол: Мужской
- Возраст: 47 [1977-01-09]
- Провел на форуме:
4 дня 4 часа - Последний визит:
2013-07-19 20:34:17
Vovan RU написал(а):
Serge 007, спасибо, понял.
Хорошо Вам отдохнуть!
Спасибо, отдыхаю изо всех сил!
Поделиться112012-06-21 20:46:08
- Администратор
- Зарегистрирован: 2010-04-17
- Приглашений: 0
- Сообщений: 267
- Уважение: [+4/-0]
- Позитив: [+1/-0]
- Пол: Мужской
- Возраст: 47 [1977-01-09]
- Провел на форуме:
4 дня 4 часа - Последний визит:
2013-07-19 20:34:17
Уважаемый пользователь!
Сайт переехал на http://www.excelworld.ru/
Адрес форума http://www.excelworld.ru/forum/2
Правила форума: http://www.excelworld.ru/forum/2-20-1
Просьба задавать Ваш вопрос по новому адресу
Поделиться122022-08-17 14:35:51
secular brotherhoods of scribes.
Поделиться132022-10-09 22:21:20
the best poets of his era and
Поделиться142022-11-30 20:44:54
multiplies (see also article
Поделиться152023-04-11 11:45:55
One of the most skilled calligraphers
Страница: 1