Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Макрос для печати всех данных из выпадающего списка
 
#1
22.10.2009 00:42:42
Господа, доброй ночи! Перерыла весь форум (поиск меня уже ненавидит) и ничего не найдя, обращаюсь к Вам.  
Условие - Есть огромная таблица с данными. Сделан выпадающий список и подгрузка соответствующих данных (упрощенный пример в attache)  
Задача - необходим макрос, который позволил бы одним нажатием печатать ВСЕ данные выпадающего списка с соответствующими ему данными на отдельных листах.  
 
Вручную это выглядело бы так: выбираю из списка "Хлеб", нажимаю печать; выбираю из списка "Молоко", нажимаю печать.... и так до упора....  
 
Заранее спасибо!
 
 
 
#2
22.10.2009 01:59:43
Вот Вам макрос:  
 
Sub test()  
   Dim Vcell As Range, cell As Range: Set Vcell = [b2]: cv = Vcell
   [a100].FormulaLocal = Vcell.Validation.Formula1: f = [a100].Formula: [a100] = ""
   For Each cell In Application.Evaluate(f)  
       Vcell = cell  
       ActiveSheet.PrintPreview  
   Next cell  
   Vcell = cv  
End Sub  
 
Открываете файл Вып.список товаров.xls, и запускаете макрос.  
Если результат устроит - замените строку ActiveSheet.PrintPreview  
на строку ActiveSheet.PrintOut  
 
(ActiveSheet.PrintPreview - предварительный просмотр, ActiveSheet.PrintOut - вывод листа на принтер)
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
22.10.2009 08:36:03
СПАСИБО СПАСИБО СПАСИБО!!!)))))
 
 
 
Страницы: 1
Читают тему
Наверх