Печать страниц по наличию маркера в определенной ячейки стра

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Печать страниц по наличию маркера в определенной ячейки стра (Формулы/Formulas)

koyaanisqatsi

Дата: Понедельник, 20.06.2016, 20:20 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 15 ±

Замечаний: 0% ±

Excel 2010

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

Спасибо.

К сообщению приложен файл: 2__.xlsx (95.4 Kb)

Ответить

SLAVICK

Дата: Понедельник, 20.06.2016, 22:52 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Можно простым макросом напечатать нужные страницы:
[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 (58.6 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

koyaanisqatsi

Дата: Вторник, 21.06.2016, 00:01 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 15 ±

Замечаний: 0% ±

Excel 2010

SLAVICK, Спасибо. Завтра попробую.

Ответить

koyaanisqatsi

Дата: Вторник, 21.06.2016, 09:18 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 15 ±

Замечаний: 0% ±

Excel 2010

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

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

Ответить

SLAVICK

Дата: Вторник, 21.06.2016, 09:28 | Сообщение № 5

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата koyaanisqatsi, 21.06.2016 в 09:18, в сообщении № 4

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

Вы ничего не путаете ? Попробуйте написать номера страниц через запятую в EXCEL.

В Word так можно - а в EXCEL я такого не видел <_<

как вариант - можно было бы задавать области печати... но там больше возни. :

типа так:
[vba]

Код

ActiveSheet.PageSetup.PrintArea = "$A$1:$P$34,$A$46:$P$82,$A$136:$P$149"

[/vba]
но нужно просчитывать эти диапазоны - устанавливать а потом снимать эти области...

К сообщению приложен файл: 3554089.jpg (24.9 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

koyaanisqatsi

Дата: Вторник, 21.06.2016, 09:45 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 15 ±

Замечаний: 0% ±

Excel 2010

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

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

Сообщение отредактировал koyaanisqatsi - Вторник, 21.06.2016, 09:46

Ответить

Печать страниц по наличию маркера в определенной ячейки стра (Формулы/Formulas)

Страница 1 из 1
1