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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос для экспорта данных в файл на основе критерия фильтра - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос для экспорта данных в файл на основе критерия фильтра (Каким образом можно реализовать экспорт данных из таблицы в)
Макрос для экспорта данных в файл на основе критерия фильтра
pashkovsky Дата: Вторник, 09.10.2012, 14:16 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 40% ±

Есть таблица, состоящая из нескольких столбцов.
По одному из столбцов организован фильтр.
Каким образом можно реализовать экспорт данных из таблицы в отдельный файл путем перебора критериев фильтра?

Для примера, я вот таким макросом организовал печать таблицы путем автоперебора критериев фильтра (ActiveCell.FormulaR1C1 = "1" выводит в заголовок название критерия):

[vba]
Code
Sub Печать_категории_5()
'Печать_категории_5 Макрос
ActiveSheet.Range("$A$5:$H$5214").AutoFilter Field:=8, Criteria1:="1"
Range("D3").Select
ActiveCell.FormulaR1C1 = "1"
Range("A4:D4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

ActiveSheet.Range("$A$5:$H$5214").AutoFilter Field:=8, Criteria1:="2"
Range("D3").Select
ActiveCell.FormulaR1C1 = "2"
Range("A4:D4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

*********

ActiveSheet.Range("$A$5:$H$5214").AutoFilter Field:=8, Criteria1:="11"
Range("D3").Select
ActiveCell.FormulaR1C1 = "11"
Range("A4:D4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

End Sub
[/vba]

Спасибо за совет.
 
Ответить
СообщениеЕсть таблица, состоящая из нескольких столбцов.
По одному из столбцов организован фильтр.
Каким образом можно реализовать экспорт данных из таблицы в отдельный файл путем перебора критериев фильтра?

Для примера, я вот таким макросом организовал печать таблицы путем автоперебора критериев фильтра (ActiveCell.FormulaR1C1 = "1" выводит в заголовок название критерия):

[vba]
Code
Sub Печать_категории_5()
'Печать_категории_5 Макрос
ActiveSheet.Range("$A$5:$H$5214").AutoFilter Field:=8, Criteria1:="1"
Range("D3").Select
ActiveCell.FormulaR1C1 = "1"
Range("A4:D4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

ActiveSheet.Range("$A$5:$H$5214").AutoFilter Field:=8, Criteria1:="2"
Range("D3").Select
ActiveCell.FormulaR1C1 = "2"
Range("A4:D4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

*********

ActiveSheet.Range("$A$5:$H$5214").AutoFilter Field:=8, Criteria1:="11"
Range("D3").Select
ActiveCell.FormulaR1C1 = "11"
Range("A4:D4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

End Sub
[/vba]

Спасибо за совет.
Автор - pashkovsky
Дата добавления - 09.10.2012 в 14:16
KuklP Дата: Вторник, 09.10.2012, 14:20 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Совет, так совет. Извлекаем из нужного столбца уникальные в словарь или в коллекцию. И потом в цикле фильтруем, печатаем.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеСовет, так совет. Извлекаем из нужного столбца уникальные в словарь или в коллекцию. И потом в цикле фильтруем, печатаем.
Автор - KuklP
Дата добавления - 09.10.2012 в 14:20
pashkovsky Дата: Вторник, 09.10.2012, 14:21 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 40% ±

Попутный вопрос: Можно ли в указанном макросе автоматизировать заполнение названий критериев фильтра, потому что я их вбивал в макрос вручную.


Сообщение отредактировал pashkovsky - Вторник, 09.10.2012, 14:22
 
Ответить
СообщениеПопутный вопрос: Можно ли в указанном макросе автоматизировать заполнение названий критериев фильтра, потому что я их вбивал в макрос вручную.
Автор - pashkovsky
Дата добавления - 09.10.2012 в 14:21
KuklP Дата: Вторник, 09.10.2012, 14:22 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Я ответил - как.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеЯ ответил - как.
Автор - KuklP
Дата добавления - 09.10.2012 в 14:22
pashkovsky Дата: Вторник, 09.10.2012, 14:23 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 40% ±

KuklP, Спасибо за совет, а можно ли поподробнее (как для чайников)?
 
Ответить
СообщениеKuklP, Спасибо за совет, а можно ли поподробнее (как для чайников)?
Автор - pashkovsky
Дата добавления - 09.10.2012 в 14:23
KuklP Дата: Вторник, 09.10.2012, 14:27 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Например: http://www.excelworld.ru/forum/3-39-1
А вообще, читайте правила, пользуйтесь поиском и т.д.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеНапример: http://www.excelworld.ru/forum/3-39-1
А вообще, читайте правила, пользуйтесь поиском и т.д.
Автор - KuklP
Дата добавления - 09.10.2012 в 14:27
pashkovsky Дата: Вторник, 09.10.2012, 14:59 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 40% ±

KuklP, Спасибо большое за наводку. Буду читать smile
 
Ответить
СообщениеKuklP, Спасибо большое за наводку. Буду читать smile
Автор - pashkovsky
Дата добавления - 09.10.2012 в 14:59
KuklP Дата: Вторник, 09.10.2012, 16:04 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Кросс: http://www.planetaexcel.ru/forum.php?thread_id=46142

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеКросс: http://www.planetaexcel.ru/forum.php?thread_id=46142
Автор - KuklP
Дата добавления - 09.10.2012 в 16:04
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос для экспорта данных в файл на основе критерия фильтра (Каким образом можно реализовать экспорт данных из таблицы в)
  • Страница 1 из 1
  • 1
Поиск:

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