фильтр для списка

@stogs · Регистрация: 05.05.2013

Студворк — интернет-сервис помощи студентам

Доброго времени суток форумчане. Подскажите кто сталкивался с таким вопросом. Задача вследующем: есть список в первой крлонке на листе1, необходимо отфильтровать этот список, и результат фильтра занести на лист2 в первую колонку. Как это осуществить.

@Catstail · 12.08.2013, 13:55

Как задается фильтр?

@kuklp · 12.08.2013, 14:11

Сделать это вручную и записать макрорекордером.

@Hugo121 · 12.08.2013, 14:12

Visual Basic
1
2
3
4
5
for each c in sheets(1).usedrange.columns(1).cells
if c = значение then
i = i + 1
sheets(2).cells(i,1) = c
next

@stogs · 12.08.2013, 14:35 **[ТС]**

Сообщение от Hugo121

Visual Basic
1
2
3
4
5
for each c in sheets(1).usedrange.columns(1).cells
if c = значение then
i = i + 1
sheets(2).cells(i,1) = c
next

не работае чтото, выдает ошибку на next

@kuklp · 12.08.2013, 14:48

Игорь end if забыл.

@Hugo121 · 12.08.2013, 15:04

Да, точно... Писал прямо сюда, без проверки - нет ведь на чём проверить

Перед next строкой выше добавьте end if

Добавлено через 1 минуту
Или так:

Visual Basic
1
2
3
for each c in sheets(1).usedrange.columns(1).cells
if c = значение then i = i + 1:sheets(2).cells(i,1) = c
next

@kuklp · 12.08.2013, 15:05

Игорь, а не лучше применить автофильтр и одним махом скопировать видимые? Никаких циклов.

@Hugo121 · 12.08.2013, 16:48

А ещё можно применить columndifferences... это ещё лучше

@kuklp · 12.08.2013, 17:29

Сообщение от Hugo121

columndifferences... это ещё лучше

ага, если данные позволяют.

@stogs · 13.08.2013, 17:33 **[ТС]**

Автофильтр был бы самый подходящий вариант. но как сделать чтобы данные из автофильтра записались в отдельную колонку???

@SlavaRus · 13.08.2013, 17:43

Используй расширенный фильтр.

@stogs · 13.08.2013, 18:06 **[ТС]**

Сообщение от Hugo121

Да, точно... Писал прямо сюда, без проверки - нет ведь на чём проверить

Перед next строкой выше добавьте end if

Добавлено через 1 минуту
Или так:

Visual Basic
1
2
3
for each c in sheets(1).usedrange.columns(1).cells
if c = значение then i = i + 1:sheets(2).cells(i,1) = c
next

не знаю почему, но этот код не работает почемуто.
ничего понять не могу, как отсортитровать данные в колонке.....

@Hugo121 · 13.08.2013, 18:10

У меня работает. Только что проверил - думал вдруг там Вы вместо c написали с...

@stogs · 13.08.2013, 18:24 **[ТС]**

Сообщение от Hugo121

У меня работает. Только что проверил - думал вдруг там Вы вместо c написали с...

вот мои попытки.... не фурычит, что не так???

toiai · 13.08.2013, 21:45

Надо задать переменную "значение" и присвоить значение, например:

Visual Basic
1
2
Dim значение$
значение="моргогор"

и тогда будет результат.
В общем такой код:

Visual Basic
1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
    Dim значение$
    значение = "моргогор"
    For Each c In Sheets(1).UsedRange.Columns(1).Cells
        If c = значение Then i = i + 1: Sheets(2).Cells(i, 1) = c
    Next
End Sub

@Hugo121 · 13.08.2013, 23:27

"моргогор" - файл даже смотреть не хочу

Я думал догадаетесь, что вместо значение нужно написать значение для поиска

Т.е. вполне отработает и так:

Visual Basic
1
2
3
4
5
Private Sub CommandButton1_Click()
    For Each c In Sheets(1).UsedRange.Columns(1).Cells
        If c = "моргогор" Then i = i + 1: Sheets(2).Cells(i, 1) = c
    Next
End Sub

Добавлено через 1 минуту
Только тогда проще подсчитать количество этих моргогоров и нагенерить их на другом листе

Добавлено через 2 минуты
А если нужно отсортировать - так и сортируйте, есть кнопочка в меню, и это можно записать рекордером в макрос.

@stogs · 14.08.2013, 14:54 **[ТС]**

Сообщение от Hugo121

"моргогор" - файл даже смотреть не хочу

Я думал догадаетесь, что вместо значение нужно написать значение для поиска

Т.е. вполне отработает и так:

Visual Basic
1
2
3
4
5
Private Sub CommandButton1_Click()
    For Each c In Sheets(1).UsedRange.Columns(1).Cells
        If c = "моргогор" Then i = i + 1: Sheets(2).Cells(i, 1) = c
    Next
End Sub

Добавлено через 1 минуту
Только тогда проще подсчитать количество этих моргогоров и нагенерить их на другом листе

Добавлено через 2 минуты
А если нужно отсортировать - так и сортируйте, есть кнопочка в меню, и это можно записать рекордером в макрос.

А чем Вам так не нравится слово "моргогор"??? Это реальное название полевого участка за полярным кругом, и у нас тут достаточно много подобных названий. Так что зря Вы удивляетесь.
В общем сделал так:

Visual Basic
1
2
Range("A3:A3000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Columns("A:A"), CopyToRange:=Sheets("Лист2").Columns("D:D"), Unique:=True

в отдельном файле работает нормально, вставляю в общий код, выделяет эти строки и выдает ошибку:
runtime error 9 subscript out of range
не могу понять в чем дело.

@SlavaRus · 14.08.2013, 16:36

Наверное надо явно указать книгу и лист.

@stogs · 14.08.2013, 17:46 **[ТС]**

Сообщение от SlavaRus

Наверное надо явно указать книгу и лист.

Все, разобрался. Нужно было просто дать имя "Критерии", диапазону который фильтруется и все заработало.

Новые блоги и статьи Все статьи Все блоги /
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Номеклатура. . .

@stogs 0 / 0 / 0 Регистрация: 05.05.2013 Сообщений: 57

	фильтр для списка 12.08.2013, 13:51. Показов 2672. Ответов 20 Метки нет (Все метки) Доброго времени суток форумчане. Подскажите кто сталкивался с таким вопросом. Задача вследующем: есть список в первой крлонке на листе1, необходимо отфильтровать этот список, и результат фильтра занести на лист2 в первую колонку. Как это осуществить. 0

@Catstail Супер-модератор 38194 / 21127 / 4309 Регистрация: 12.02.2012 Сообщений: 34,733 Записей в блоге: 14
	12.08.2013, 13:55
	Как задается фильтр? 0

@kuklp 1703 / 190 / 19 Регистрация: 20.11.2011 Сообщений: 281
	12.08.2013, 14:11
	Сделать это вручную и записать макрорекордером. 0

@kuklp 1703 / 190 / 19 Регистрация: 20.11.2011 Сообщений: 281
	12.08.2013, 14:48
	Игорь end if забыл. 0

@kuklp 1703 / 190 / 19 Регистрация: 20.11.2011 Сообщений: 281
	12.08.2013, 15:05
	Игорь, а не лучше применить автофильтр и одним махом скопировать видимые? Никаких циклов. 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	12.08.2013, 16:48
	А ещё можно применить columndifferences... это ещё лучше 0

@stogs 0 / 0 / 0 Регистрация: 05.05.2013 Сообщений: 57
	13.08.2013, 17:33 [ТС]
	Автофильтр был бы самый подходящий вариант. но как сделать чтобы данные из автофильтра записались в отдельную колонку??? 0

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	13.08.2013, 17:43
	Используй расширенный фильтр. 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	13.08.2013, 18:10
	У меня работает. Только что проверил - думал вдруг там Вы вместо c написали с... 0

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	14.08.2013, 16:36
	Наверное надо явно указать книгу и лист. 0