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

Вход

Регистрация

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

 

= Мир MS Excel/Печать страниц по наличию маркера в определенной ячейки стра - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Печать страниц по наличию маркера в определенной ячейки стра (Формулы/Formulas)
Печать страниц по наличию маркера в определенной ячейки стра
koyaanisqatsi Дата: Понедельник, 20.06.2016, 20:20 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 610
Репутация: 15 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте.
Формируется отчет как в примере но часть страниц пустая можно ли формулой объяснить какие страницы выводить на печать ? Допустьим страница будет считаться заполненой если в желтой клетке будет стоять какое-то число. Прыгать эти ячейки не могут. Я даже теоретически могу вывести нумера страниц которые я бы хотел напечатать. В столбце "V" напечатал какие страницы хочу напечатать.

Спасибо.
К сообщению приложен файл: 2__.xlsx(95Kb)
 
Ответить
СообщениеЗдравствуйте.
Формируется отчет как в примере но часть страниц пустая можно ли формулой объяснить какие страницы выводить на печать ? Допустьим страница будет считаться заполненой если в желтой клетке будет стоять какое-то число. Прыгать эти ячейки не могут. Я даже теоретически могу вывести нумера страниц которые я бы хотел напечатать. В столбце "V" напечатал какие страницы хочу напечатать.

Спасибо.

Автор - koyaanisqatsi
Дата добавления - 20.06.2016 в 20:20
SLAVICK Дата: Понедельник, 20.06.2016, 22:52 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1844
Репутация: 614 ±
Замечаний: 0% ±

2007,2010,2013,2016
Можно простым макросом напечатать нужные страницы:
[vba]
Код
Sub d()
arr = [v1:v10].Value
i = 1
Do Until arr(i, 1) = ""
    p = arr(i, 1)
    ActiveSheet.PrintOut from:=p, To:=p
    i = i + 1
Loop
End Sub
[/vba]
К сообщению приложен файл: 2_.xlsb(59Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеМожно простым макросом напечатать нужные страницы:
[vba]
Код
Sub d()
arr = [v1:v10].Value
i = 1
Do Until arr(i, 1) = ""
    p = arr(i, 1)
    ActiveSheet.PrintOut from:=p, To:=p
    i = i + 1
Loop
End Sub
[/vba]

Автор - SLAVICK
Дата добавления - 20.06.2016 в 22:52
koyaanisqatsi Дата: Вторник, 21.06.2016, 00:01 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 610
Репутация: 15 ±
Замечаний: 0% ±

Excel 2010
SLAVICK, Спасибо. Завтра попробую.
 
Ответить
СообщениеSLAVICK, Спасибо. Завтра попробую.

Автор - koyaanisqatsi
Дата добавления - 21.06.2016 в 00:01
koyaanisqatsi Дата: Вторник, 21.06.2016, 09:18 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 610
Репутация: 15 ±
Замечаний: 0% ±

Excel 2010
SLAVICK, Все проверил. Все печатает как надо. Единственны минус посылает каждую страницу отдельно на печать. Я думал есть команда которая делает аналогичным образом как в параметрах печати когда номера страниц пишешь через запятую.

А так Спасибо большое все работает. ))) Даже удивительно что раньше я мучался с листками лишними а оказалось все достаточно просто. Но сам бы я конечно не допер бы до такого.
 
Ответить
СообщениеSLAVICK, Все проверил. Все печатает как надо. Единственны минус посылает каждую страницу отдельно на печать. Я думал есть команда которая делает аналогичным образом как в параметрах печати когда номера страниц пишешь через запятую.

А так Спасибо большое все работает. ))) Даже удивительно что раньше я мучался с листками лишними а оказалось все достаточно просто. Но сам бы я конечно не допер бы до такого.

Автор - koyaanisqatsi
Дата добавления - 21.06.2016 в 09:18
SLAVICK Дата: Вторник, 21.06.2016, 09:28 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 1844
Репутация: 614 ±
Замечаний: 0% ±

2007,2010,2013,2016
которая делает аналогичным образом как в параметрах печати когда номера страниц пишешь через запятую.

Вы ничего не путаете ? Попробуйте написать номера страниц через запятую в EXCEL. ;)
В Word так можно - а в EXCEL я такого не видел <_<
как вариант - можно было бы задавать области печати... но там больше возни. :

типа так:
[vba]
Код
ActiveSheet.PageSetup.PrintArea = "$A$1:$P$34,$A$46:$P$82,$A$136:$P$149"
[/vba]
но нужно просчитывать эти диапазоны - устанавливать а потом снимать эти области...
К сообщению приложен файл: 3554089.jpg(25Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
которая делает аналогичным образом как в параметрах печати когда номера страниц пишешь через запятую.

Вы ничего не путаете ? Попробуйте написать номера страниц через запятую в EXCEL. ;)
В Word так можно - а в EXCEL я такого не видел <_<
как вариант - можно было бы задавать области печати... но там больше возни. :

типа так:
[vba]
Код
ActiveSheet.PageSetup.PrintArea = "$A$1:$P$34,$A$46:$P$82,$A$136:$P$149"
[/vba]
но нужно просчитывать эти диапазоны - устанавливать а потом снимать эти области...

Автор - SLAVICK
Дата добавления - 21.06.2016 в 09:28
koyaanisqatsi Дата: Вторник, 21.06.2016, 09:45 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 610
Репутация: 15 ±
Замечаний: 0% ±

Excel 2010
SLAVICK, Да наверно я и путаю с вордом. Я в экселе не возился с таким но в ворде все правильно видил ) Думал принцип одинаковый раз фирма одна выпускает пакет программ. Оказалось нет ) странно...

Тогда вообще все как надо. Я думал просто есть возможно проще делать.


Сообщение отредактировал koyaanisqatsi - Вторник, 21.06.2016, 09:46
 
Ответить
СообщениеSLAVICK, Да наверно я и путаю с вордом. Я в экселе не возился с таким но в ворде все правильно видил ) Думал принцип одинаковый раз фирма одна выпускает пакет программ. Оказалось нет ) странно...

Тогда вообще все как надо. Я думал просто есть возможно проще делать.

Автор - koyaanisqatsi
Дата добавления - 21.06.2016 в 09:45
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Печать страниц по наличию маркера в определенной ячейки стра (Формулы/Formulas)
Страница 1 из 11
Поиск:

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