Народ помогите плиз. Проблема такая. Есть документ эксель в нем 31 лист (вкладка). Постоянно надо кликать по выбору печать листов в ручную, еси б это был только один документ то еще б терпел, а так постоянно по 12 файлов, немного достает такое кликанье. Как сделать формулу-макрос шоб оно само определяло что печатать что нет. Одно нажатие и листы печатаются. Еще такой момент, все листы имеют нумерацию, те которые надо печатать они будут иметь номер, а те которые не надо они будут с значением "0" вместо номера. Может это поможет как то Заранее спасибо.
Народ помогите плиз. Проблема такая. Есть документ эксель в нем 31 лист (вкладка). Постоянно надо кликать по выбору печать листов в ручную, еси б это был только один документ то еще б терпел, а так постоянно по 12 файлов, немного достает такое кликанье. Как сделать формулу-макрос шоб оно само определяло что печатать что нет. Одно нажатие и листы печатаются. Еще такой момент, все листы имеют нумерацию, те которые надо печатать они будут иметь номер, а те которые не надо они будут с значением "0" вместо номера. Может это поможет как то Заранее спасибо.RomikM
Попробуйте выделить нужные листы (CTRL + мышью выделяем нужные вкладки). А потом отправить на печать - будут напечатаны все данные с выделенных вкладок.
Попробуйте выделить нужные листы (CTRL + мышью выделяем нужные вкладки). А потом отправить на печать - будут напечатаны все данные с выделенных вкладок.SLAVICK
все листы имеют нумерацию, те которые надо печатать они будут иметь номер, а те которые не надо они будут с значением "0" вместо номера.
может нехватить. Приложите пример. Ну или вам надо будет самостоятельно занести куда-либо, в скрипт или на отдельный лист, имена листов, которые необходимо распечатать.
SLAVIK, это вариант, но не тогда когда листов много, велик риск пропустить нужный. хотя и в этом случае сгруппировать (переместить подряд нужные) и выделять от первого до поледнего в два клика с CTRL.
все листы имеют нумерацию, те которые надо печатать они будут иметь номер, а те которые не надо они будут с значением "0" вместо номера.
может нехватить. Приложите пример. Ну или вам надо будет самостоятельно занести куда-либо, в скрипт или на отдельный лист, имена листов, которые необходимо распечатать.
SLAVIK, это вариант, но не тогда когда листов много, велик риск пропустить нужный. хотя и в этом случае сгруппировать (переместить подряд нужные) и выделять от первого до поледнего в два клика с CTRL.bmv98rus
Замечательный Временно просто медведь , процентов на 20.
Сообщение отредактировал bmv98rus - Воскресенье, 29.01.2017, 15:07
Мне надо через формулу. Просто надо сделать так шоб при нажатии на чтото (макрос) шоб прошол анализ какие надо печатать, а какие нет и вывел на печать. Дело в том шо там по несколько страниц на вкладках и мне надо шоб шото оно печатало , а шото нет. На одной вкладке не надо все печатать, а при контр будет вся вкладка печататься.
Мне надо через формулу. Просто надо сделать так шоб при нажатии на чтото (макрос) шоб прошол анализ какие надо печатать, а какие нет и вывел на печать. Дело в том шо там по несколько страниц на вкладках и мне надо шоб шото оно печатало , а шото нет. На одной вкладке не надо все печатать, а при контр будет вся вкладка печататься.RomikM
Я не силен в формулах, но у меня такой вариант. Если каждый документ имеет номер, то почему нельзя сделать через ЕСЛИ(А3>0;1;0) и соответсвенно будет ячейка в которой будет значение "0" или "1". Дальше надо сделать команду шоб оно при значении "1" выводило страницу на печать, если значение "0" тогда ниче не делало. Только как это сделать я не знаю.
Я не силен в формулах, но у меня такой вариант. Если каждый документ имеет номер, то почему нельзя сделать через ЕСЛИ(А3>0;1;0) и соответсвенно будет ячейка в которой будет значение "0" или "1". Дальше надо сделать команду шоб оно при значении "1" выводило страницу на печать, если значение "0" тогда ниче не делало. Только как это сделать я не знаю.RomikM
вот и у нас таже история, не можеи монять по какому принципу что вы отбираете. Поясните на примеру, как вы делаете руками и глазами. Я могу предположить что если в С1 листов 001 -...... не ноль, то нужно печатать, но желательно от вас это получить.
вот и у нас таже история, не можеи монять по какому принципу что вы отбираете. Поясните на примеру, как вы делаете руками и глазами. Я могу предположить что если в С1 листов 001 -...... не ноль, то нужно печатать, но желательно от вас это получить.bmv98rus
Замечательный Временно просто медведь , процентов на 20.
Мне надо шоб на листке "База" была кнопка "Печать" и шоб при нажатии распечатались все страницы которые имеют номер, я цветами там обозначил. Красные не наддо шоб печатало. И еще, надо шоб только "Страница 1" только печаталась на каждой вкладке. Извините шо немогу нормально обьяснить, я не силен в этом, только самоучка малость. Заранее спасибо
Мне надо шоб на листке "База" была кнопка "Печать" и шоб при нажатии распечатались все страницы которые имеют номер, я цветами там обозначил. Красные не наддо шоб печатало. И еще, надо шоб только "Страница 1" только печаталась на каждой вкладке. Извините шо немогу нормально обьяснить, я не силен в этом, только самоучка малость. Заранее спасибо RomikM
Sub Печать() Dim i As Long, lLastRow As Long lLastRow = Sheets("База").Cells(Rows.Count, 2).End(xlUp).Row For i = 2 To lLastRow If Cells(i, 2) > 0 Then Sheets(i).Range("A1:G50").PrintOut Copies:=1 End If Next End Sub
[/vba]
Вариант [vba]
Код
Sub Печать() Dim i As Long, lLastRow As Long lLastRow = Sheets("База").Cells(Rows.Count, 2).End(xlUp).Row For i = 2 To lLastRow If Cells(i, 2) > 0 Then Sheets(i).Range("A1:G50").PrintOut Copies:=1 End If Next End Sub
Я б единственное о чем подумал, так это о том что при циклической печати создаются разные задания. Если это вредно, например в конторе кде идет интенсивная печать, то задания могут перепутаться на сетевом принтере (FIFO подведет) я б предлжил [vba]
Я б единственное о чем подумал, так это о том что при циклической печати создаются разные задания. Если это вредно, например в конторе кде идет интенсивная печать, то задания могут перепутаться на сетевом принтере (FIFO подведет) я б предлжил [vba]
Попробовал все работает большое спасибо, а обьясните плиз как это работает шоб я смог перенести в основной документ.
Dim i As Long, lLastRow As Long ---- ? lLastRow = Sheets("База").Cells(Rows.Count, 2).End(xlUp).Row ---- ? For i = 2 To lLastRow ---- ? If Cells(i, 2) > 0 Then ---- ?
Попробовал все работает большое спасибо, а обьясните плиз как это работает шоб я смог перенести в основной документ.
Dim i As Long, lLastRow As Long ---- ? lLastRow = Sheets("База").Cells(Rows.Count, 2).End(xlUp).Row ---- ? For i = 2 To lLastRow ---- ? If Cells(i, 2) > 0 Then ---- ?RomikM
Нееее, это я знаю как сделать. Я просто пример-файл наваял на ходу. Мне надо код подредактировать шоб вставить в основной документ. Просто обьясните строки шоб я знал что подредактировать.
Нееее, это я знаю как сделать. Я просто пример-файл наваял на ходу. Мне надо код подредактировать шоб вставить в основной документ. Просто обьясните строки шоб я знал что подредактировать.RomikM
Сообщение отредактировал RomikM - Понедельник, 30.01.2017, 15:09
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
.
