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

Вход

Регистрация

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

 

= Мир MS Excel/печать страниц по заполнению - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » печать страниц по заполнению (Формулы/Formulas)
печать страниц по заполнению
lebvitali Дата: Суббота, 17.07.2021, 14:20 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Уважаемые подскажите пожалуйста ,как сделать ,все перепробовал чего то ничего у меня не получается. Необходимо что распечатывало те страницы которые будут заполнены данные , к примеру если есть данные в А8 а в других нет то распечатывало только табель 1страницу если есть данные А36 и А8,А70 и А 104 только их . Имеется ввиду если есть данные в А8,А36,А70,А104 ,распечатывало только те стр где есть данные. Спасибо огромное за ранее за ответ . если можно на примере!
К сообщению приложен файл: 6425340.xlsm (56.6 Kb)
 
Ответить
СообщениеУважаемые подскажите пожалуйста ,как сделать ,все перепробовал чего то ничего у меня не получается. Необходимо что распечатывало те страницы которые будут заполнены данные , к примеру если есть данные в А8 а в других нет то распечатывало только табель 1страницу если есть данные А36 и А8,А70 и А 104 только их . Имеется ввиду если есть данные в А8,А36,А70,А104 ,распечатывало только те стр где есть данные. Спасибо огромное за ранее за ответ . если можно на примере!
Автор - lebvitali
Дата добавления - 17.07.2021 в 14:20
Pelena Дата: Суббота, 17.07.2021, 17:29 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19182
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
Попробуйте так
[vba]
Код
Sub Prn()
    Dim i As Long, ar
    ar = Array("A8", "A36", "A70", "A104")
    With Sheets("ОтчетТ")
        For i = 0 To UBound(ar)
            If .Range(ar(i)) <> "" Then .PrintOut From:=i + 1, to:=i + 1, Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Next i
    End With
End Sub
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПопробуйте так
[vba]
Код
Sub Prn()
    Dim i As Long, ar
    ar = Array("A8", "A36", "A70", "A104")
    With Sheets("ОтчетТ")
        For i = 0 To UBound(ar)
            If .Range(ar(i)) <> "" Then .PrintOut From:=i + 1, to:=i + 1, Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Next i
    End With
End Sub
[/vba]
Автор - Pelena
Дата добавления - 17.07.2021 в 17:29
lebvitali Дата: Суббота, 17.07.2021, 17:46 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Pelena, Спасибо Вам огромное,думал уже никто не поможет,СПАСИБО еще раз!!!!!!
 
Ответить
СообщениеPelena, Спасибо Вам огромное,думал уже никто не поможет,СПАСИБО еще раз!!!!!!
Автор - lebvitali
Дата добавления - 17.07.2021 в 17:46
gge29 Дата: Пятница, 23.07.2021, 10:55 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация: 3 ±
Замечаний: 0% ±

Цитата Pelena, 17.07.2021 в 17:29, в сообщении № 2 ()
Попробуйте так
[vba]
Код
Sub Prn()
Dim i As Long, ar
ar = Array("A8", "A36", "A70", "A104")
With Sheets("ОтчетТ")
For i = 0 To UBound(ar)
If .Range(ar(i)) <> "" Then .PrintOut From:=i + 1, to:=i + 1, Copies:=1, Collate:=True, IgnorePrintAreas:=False
Next i
End With
End Sub
[/vba]

Елена,а если в ячейках "A8", "A36", "A70", "A104" не числовое значение а ссылка на данные с другого листа (=B7),ругается на If .Range(ar(i)) <> "" Then


Сообщение отредактировал Serge_007 - Пятница, 23.07.2021, 12:21
 
Ответить
Сообщение
Цитата Pelena, 17.07.2021 в 17:29, в сообщении № 2 ()
Попробуйте так
[vba]
Код
Sub Prn()
Dim i As Long, ar
ar = Array("A8", "A36", "A70", "A104")
With Sheets("ОтчетТ")
For i = 0 To UBound(ar)
If .Range(ar(i)) <> "" Then .PrintOut From:=i + 1, to:=i + 1, Copies:=1, Collate:=True, IgnorePrintAreas:=False
Next i
End With
End Sub
[/vba]

Елена,а если в ячейках "A8", "A36", "A70", "A104" не числовое значение а ссылка на данные с другого листа (=B7),ругается на If .Range(ar(i)) <> "" Then
Автор - gge29
Дата добавления - 23.07.2021 в 10:55
Pelena Дата: Пятница, 23.07.2021, 14:15 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19182
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата gge29, 23.07.2021 в 10:55, в сообщении № 4 ()
если в ячейках "A8", "A36", "A70", "A104" не числовое значение
здесь проверяется пустая или непустая ячейка, а число или текст неважно. Возможно, надо подбирать другое условие, но без примера ответить не смогу

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата gge29, 23.07.2021 в 10:55, в сообщении № 4 ()
если в ячейках "A8", "A36", "A70", "A104" не числовое значение
здесь проверяется пустая или непустая ячейка, а число или текст неважно. Возможно, надо подбирать другое условие, но без примера ответить не смогу
Автор - Pelena
Дата добавления - 23.07.2021 в 14:15
Мир MS Excel » Вопросы и решения » Вопросы по Excel » печать страниц по заполнению (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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