Добро пожаловать,
Гость
. Пожалуйста,
войдите
или
зарегистрируйтесь
.
23.04.2024, 16:34:18
1 час
1 день
1 неделя
1 месяц
Навсегда
Войти
Поиск:
Расширенный поиск
На форуме добавлена возможность подписки на
RSS
-ленты любого раздела форума. Подписаться можно, нажав на иконку RSS
, расположенную левее наименования раздела.
33 242
Сообщений в
5 457
Тем от
6 758
Пользователей
Последний пользователь:
Сергей2662
Excel это не сложно
Основные форумы
Вопросы по Excel и VBA
Запрет печати при неполном заполнении ячеек
Страниц: [
1
]
Вниз
« предыдущая тема
следующая тема »
Автор
Тема: Запрет печати при неполном заполнении ячеек (Прочитано 1966 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Вова60
Новичок
Репутация: +0/-0
Офлайн
Сообщений: 20
Запрет печати при неполном заполнении ячеек
«
:
26.02.2022, 18:01:11 »
Здравствуйте, до куда смог написал дальше не получается , возможно не туда иду. Требуется чтобы при печати листа проверялось все ли ячейки в определённом диапазоне заполнены. Приложенный макрос это делает но в итоге надо заполнить весь диапазон, а требуется проверять в зависимости от начала заполнения следующей строки скажем в столбце А., и с возможностью без особых проблем менять в макросе проверяемый диапазон и условия. Сам то понял что написал?
Записан
Вова60
Новичок
Репутация: +0/-0
Офлайн
Сообщений: 20
Re:Запрет печати при неполном заполнении ячеек
«
Ответ #1 :
15.03.2022, 23:53:30 »
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Rng As Range, rCell As Range
d = Cells(Rows.Count, 1).End(xlUp).Row
Set Rng = Range(Cells(d, 15), Cells(d, 21))
For Each rCell In Rng
If IsEmpty(rCell) Or rCell = 0 Then
MsgBox "Лист печататься не будет, не заполнена ячейка " & rCell.Address(0, 0), 64, "Для сведения"
Cancel = True
Exit For
End If
Next
End Sub
Никто не отозвался. Вот вариант, вроде работает. Поправьте если есть где то не явные просчёты
Записан
Страниц: [
1
]
Вверх
« предыдущая тема
следующая тема »
Перейти в:
Пожалуйста, выберите назначение:
-----------------------------
Правила форума и вопросы по работе форума
-----------------------------
=> ОБЩИЕ ПРАВИЛА ФОРУМА
=> ВОПРОСЫ ПО РАБОТЕ ФОРУМА
-----------------------------
Основные форумы
-----------------------------
=> Вопросы по Excel и VBA
=> PowerQuery, PowerPivot, PowerBI и запросы
=> Вопросы по Word и VBA
=> Вопросы по Outlook и VBA
=> Вопросы по Access и VBA
=> Вопросы по PowerPoint и VBA
=> Вопросы по Office для MAC
=> Вопросы по работе в Google-таблицах
=> Полезные решения
=> Баги и глюки при работе с Excel и VBA
=> Вопросы по OpenOffice и LibreOffice
=> Вопросы по надстройке MulTEx
=> Вопросы по MyAddin
=> Вопросы по бесплатным надстройкам
=> Вопросы по программам
-----------------------------
Прочие форумы
-----------------------------
=> Заказы на написание макросов, работа для специалистов по Excel и VBA и пр.
=> Курилка
-----------------------------
Удаленные темы и сообщения
-----------------------------
=> Список удаленных
Загружается...