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

Вход

Регистрация

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

 

= Мир MS Excel/пользовательский автофильтр - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » пользовательский автофильтр (Макросы/Sub)
пользовательский автофильтр
sergey1978 Дата: Четверг, 27.08.2015, 11:19 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 100% ±

Excel 2010
Добрий день!

есть макрос которий скривает строки если с городами Киев и Харьков, как росширить макрос, что би скривать еще строки в которих есть Одесса, Днепропетровск

[vba]
Код
Sub рн2()
'
' рн2 Макрос
'

'
ActiveSheet.Range("$A$2:$J$186919").AutoFilter Field:=5, Criteria1:="="
ActiveSheet.Range("$A$2:$J$186919").AutoFilter Field:=6, Criteria1:= _
"<>*Киев*", Operator:=xlAnd, Criteria2:="<>*Харьков*"
End Sub
[/vba]
[moder]Для оформления кода макроса в посте есть кнопочка #. Поправил, в следующий раз сами.
И приложите файл, так удобнее будет.
К сообщению приложен файл: 9417225.xlsx (11.0 Kb)


Сообщение отредактировал sergey1978 - Четверг, 27.08.2015, 11:50
 
Ответить
СообщениеДобрий день!

есть макрос которий скривает строки если с городами Киев и Харьков, как росширить макрос, что би скривать еще строки в которих есть Одесса, Днепропетровск

[vba]
Код
Sub рн2()
'
' рн2 Макрос
'

'
ActiveSheet.Range("$A$2:$J$186919").AutoFilter Field:=5, Criteria1:="="
ActiveSheet.Range("$A$2:$J$186919").AutoFilter Field:=6, Criteria1:= _
"<>*Киев*", Operator:=xlAnd, Criteria2:="<>*Харьков*"
End Sub
[/vba]
[moder]Для оформления кода макроса в посте есть кнопочка #. Поправил, в следующий раз сами.
И приложите файл, так удобнее будет.
Автор - sergey1978
Дата добавления - 27.08.2015 в 11:19
sergey1978 Дата: Четверг, 27.08.2015, 11:43 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 100% ±

Excel 2010
добавил файл
К сообщению приложен файл: primer.xlsx (11.0 Kb)
 
Ответить
Сообщениедобавил файл
Автор - sergey1978
Дата добавления - 27.08.2015 в 11:43
sergey1978 Дата: Четверг, 27.08.2015, 12:23 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 100% ±

Excel 2010
_Boroda_
а если каждий день использовать новий файл


Сообщение отредактировал sergey1978 - Четверг, 27.08.2015, 12:27
 
Ответить
Сообщение_Boroda_
а если каждий день использовать новий файл
Автор - sergey1978
Дата добавления - 27.08.2015 в 12:23
AndreTM Дата: Четверг, 27.08.2015, 12:33 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
Цитата sergey1978, 27.08.2015 в 12:23, в сообщении № 4
если каждий день использовать

Поместите макрос в персональную книгу макросов, и используйте его оттуда.
Другой вариант (если эти "новые файлы" однотипны по расположению в них информации) - использовать одну свою книгу с нужными макросами, а данные из "разных новых файлов" просто предварительно подкачивать в рабочую книгу для обработки. Ну или организовать в рабочей книге процесс "открыть другую книгу (с выбором файла) - проделать в ней операции - сохранить и закрыть другую книгу".

Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
Сообщение
Цитата sergey1978, 27.08.2015 в 12:23, в сообщении № 4
если каждий день использовать

Поместите макрос в персональную книгу макросов, и используйте его оттуда.
Другой вариант (если эти "новые файлы" однотипны по расположению в них информации) - использовать одну свою книгу с нужными макросами, а данные из "разных новых файлов" просто предварительно подкачивать в рабочую книгу для обработки. Ну или организовать в рабочей книге процесс "открыть другую книгу (с выбором файла) - проделать в ней операции - сохранить и закрыть другую книгу".
Автор - AndreTM
Дата добавления - 27.08.2015 в 12:33
sergey1978 Дата: Четверг, 27.08.2015, 12:47 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 100% ±

Excel 2010
_Boroda_, AndreTM

подправте для Для фильтра2
К сообщению приложен файл: 3980679.xlsm (22.4 Kb)
 
Ответить
Сообщение_Boroda_, AndreTM

подправте для Для фильтра2
Автор - sergey1978
Дата добавления - 27.08.2015 в 12:47
sergey1978 Дата: Четверг, 27.08.2015, 13:02 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 100% ±

Excel 2010
а как етот макрос применить к файлу которий находится D:\Новая папка (2), маска файла 380*.xls
 
Ответить
Сообщениеа как етот макрос применить к файлу которий находится D:\Новая папка (2), маска файла 380*.xls
Автор - sergey1978
Дата добавления - 27.08.2015 в 13:02
sergey1978 Дата: Четверг, 27.08.2015, 13:22 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 100% ±

Excel 2010
AndreTM

список городов для скрития состоит из 200 городов
 
Ответить
СообщениеAndreTM

список городов для скрития состоит из 200 городов
Автор - sergey1978
Дата добавления - 27.08.2015 в 13:22
sergey1978 Дата: Четверг, 27.08.2015, 17:44 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 100% ±

Excel 2010
AndreTM, _Boroda_
а как етот макрос применить к файлу которий находится D:\Новая папка (2), маска файла 380*.xls
список городов для скрития состоит из 200 городов. он постоянний
 
Ответить
СообщениеAndreTM, _Boroda_
а как етот макрос применить к файлу которий находится D:\Новая папка (2), маска файла 380*.xls
список городов для скрития состоит из 200 городов. он постоянний
Автор - sergey1978
Дата добавления - 27.08.2015 в 17:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » пользовательский автофильтр (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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