Форум по Эксель

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Форум по Эксель » Форум по Excel » Фильтр с подвохом


Фильтр с подвохом

Сообщений 1 страница 11 из 11

1

Будем развивать форум.  :)
Есть таблица с годами по столбцах. Надо отфильтровать строки в которых есть год 2010, к примеру. Обычный автофильтр не дает полный результат. Дело в том, что в некоторых ячейках могут быть записи типа: 2009, 2010, 2012 ( , 2010, 2012). Т.е. отфильтровать надо все строки (по данному столбцу, конечно), в котором присутствует год 2010, к примеру.  Формулами я смогу это сделать, но исходный файл (выборка с базы данных) может быть разный по количеству и очередности полей. Так что нужен макрос, видать.
Пример в пр. файле (по крайней мере попытался прикрепить  :)  ).

0

2

Чет ничего не прикрепилось.   ;(
Надеюсь вопрос понятен или подскажите как прикрепить файл, пожалуйста.

0

3

Тут, похоже, вообще не прикрепляется.
Такой код

Код:
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

+1

4

nilem, спасибо!
Все предельно просто, но мат. часть мне все-таки надо учить.   :cool:
Еще раз спасибо!   :cool:

0

5

Да, nilem, научите, плиз, как заливать файлы на http://ifolder.ru/?

0

6

Вопрос выше снимается, там все ясно.

0

7

Vovan RU написал(а):

Пример в пр. файле (по крайней мере попытался прикрепить    ).

Vovan RU, пункт 2 правил:

Приложить файл-пример можете выложив файл на любой файлообменник, а ссылку на него уже сюда.

Я ща в отпуске, выйти в инет проблема...

0

8

Serge 007, спасибо, понял.
Хорошо Вам отдохнуть!  :)

0

9

Vovan RU написал(а):

Serge 007, спасибо, понял.
Хорошо Вам отдохнуть!

Спасибо, отдыхаю изо всех сил! :-)
                                                  :offtop:

0

10

Привет!

0

11

Уважаемый пользователь!
Сайт переехал на http://www.excelworld.ru/
Адрес форума http://www.excelworld.ru/forum/2
Правила форума: http://www.excelworld.ru/forum/2-20-1
Просьба задавать Ваш вопрос по новому адресу

0


Вы здесь » Форум по Эксель » Форум по Excel » Фильтр с подвохом