С Новым годом! Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
2 / 2 / 0
Регистрация: 24.07.2013
Сообщений: 54

Правильно отфильтровать данные

29.08.2013, 17:29. Показов 1262. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Фильтрую данные таким способом :
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Критерии"
 
Cells(2, 1) = "Аморт группа НУ"
Cells(3, 1) = "A10"
Cells(2, 2) = "Процент аморт Налог"
Cells(3, 2) = "3.32"
Cells(2, 3) = "Счёт компоненты"
Cells(3, 3) = "0101000100"
 
Worksheets(1).Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("Критерии").Range("A2:c3"), _
CopyToRange:=Worksheets("Результат").Range(Worksheets(1).Range("A1").CurrentRegion.Address), Unique:=False

По этому критерию данные находить не хочет :

Cells(2, 3) = "Счёт компоненты"
Cells(3, 3) = "0101000100" (пробовала тут менять формат на числовой, на общий - ничего не помогает)

(На оригинальном листе 0101000100 - ячейка общего формата)

Помогите разобраться?
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
29.08.2013, 17:29
Ответы с готовыми решениями:

Необходимо отфильтровать данные
Всех приветствую! Необходимо отфильтровать данные - номера счетов в столбце по следующим критериям "=40*", "=41*",...

Отфильтровать данные по критерию из комбобокса
Здраствуйте уважаемые форумчане, пытаюсь отфильтровать данные по критерию из чекбокса, но вылазит ошибка, помогите исправить пожалуйста. ...

Отфильтровать данные для построения гистограм
Добрый день! Подскажите пожалуйста как решить следующую задачу: необходимо отфильтровать данные по первой колонке затем по второй ...

10
3218 / 967 / 223
Регистрация: 29.05.2010
Сообщений: 2,087
29.08.2013, 17:40
Пример приложи, легче помочь разобраться.
0
2 / 2 / 0
Регистрация: 24.07.2013
Сообщений: 54
29.08.2013, 17:46  [ТС]
Хорошо, просто подумала что и тут и пример не нужен)

Допустим вот такой пример,но это прям кусок совсем маленький из документа. мне главное разобраться что я делаю не так
Вложения
Тип файла: xlsx пример.xlsx (9.9 Кб, 8 просмотров)
0
3218 / 967 / 223
Регистрация: 29.05.2010
Сообщений: 2,087
29.08.2013, 18:37
Формат то общий, но внесенный как текст... Поясни, что надо сделать, все запутанно... непонятно зачем фильтр, в общем нужно четкое описание что сделать.
0
 Аватар для SlavaRus
1124 / 237 / 37
Регистрация: 15.03.2010
Сообщений: 728
29.08.2013, 19:43
Во вложенной книге нет макроса. Код, который приведен в первом посте не соответствует названиям столбцов в книге, соответственно фильтр работать не будет. Приложите книгу с нормальным образцом данных и вашим макросом. Чтобы столбцы в макросе и книге соответствовали друг другу, желательно также показать что ожидаете получить в результате фильтрации.
0
2 / 2 / 0
Регистрация: 24.07.2013
Сообщений: 54
30.08.2013, 09:21  [ТС]
вот какой на самом деле
Вложения
Тип файла: xlsx Книга1.xlsx (23.2 Кб, 5 просмотров)
0
2 / 2 / 0
Регистрация: 24.07.2013
Сообщений: 54
30.08.2013, 09:27  [ТС]
А фильтр нужен для дальнейшей работы,просто сначала нужно выбрать нужные данные, они попадают на лист результат где я уже дальше с ними работаю. И просто как всегда данных несколько тысяч
0
 Аватар для SlavaRus
1124 / 237 / 37
Регистрация: 15.03.2010
Сообщений: 728
30.08.2013, 09:52
Пробуй.
Вложения
Тип файла: zip AdvFilter.zip (31.0 Кб, 7 просмотров)
1
2 / 2 / 0
Регистрация: 24.07.2013
Сообщений: 54
30.08.2013, 10:04  [ТС]
Спасибо)работает)

Вопрос еще,а если мне нужны чтобы из этого столбца "Счёт компоненты" брались не только такие -101000150 счета, но еще эти два - "101000150" "101000160" ?

Добавлено через 1 минуту
как это записать на листе критерии?

(в тот же столбец, друг под другом, вроде не получается.. )
0
 Аватар для SlavaRus
1124 / 237 / 37
Регистрация: 15.03.2010
Сообщений: 728
30.08.2013, 10:19
Я вручную поменял "Счет компоненты" и добавил критерии. Все работает.
Вложения
Тип файла: zip AdvFilter.zip (31.0 Кб, 10 просмотров)
1
2 / 2 / 0
Регистрация: 24.07.2013
Сообщений: 54
30.08.2013, 10:51  [ТС]
Блин, ошиблась когда писала
Счета такие - (101000150) ,(101000100), (101000160)

Добавлено через 30 минут
Да,простите за глупость, я забыла просто диапазон в критериях поменять
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
30.08.2013, 10:51
Помогаю со студенческими работами здесь

Нужно отфильтровать данные в столбце только по трем значениям
1. нужно отфильтровать данные в столбце только по 3 значениям - 72, 144, 216 Кинул на лист Combobox, но теперь не могу найти его. Как...

Как отфильтровать в ListView данные из потока ?
Всем Здравствуйте !!! Вопрос. Как отфильтровать в ListView данные из потока по первой букве ??? Спасибо.

Как правильно отфильтровать данные в DataGridView?
При нажатии кнопки вызывается функция: private void btnSelect_Click(object sender, EventArgs e) { int nFind = 0; ...

Как правильно отфильтровать пробелы?
всем привет, вообщем нужно отправить на сервер строку с HTML тегами, но возникла проблема: если в строке два пробела подряд и больше, то...

Отфильтровать данные
Есть вот такой код, как такую фильтрацию сделать при помощи DBComboBox и AdoTable??? ADOTable1->Filtered=false; AnsiString textEdit...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru