Не печатать строки без значений в excel

@nikkei00 · Регистрация: 10.04.2017

Author24 — интернет-сервис помощи студентам

Добрый день! При составлении расписания занятий не хочется постоянно удалять/добавлять строки с 7-8 и 9-10 уроками!

Реально ли сделать так, что если в строке нет ни одного 7-8 и 9/10 урока - эта строка не попадала бы на печать?

Но, соответственно, если будет окно (к примеру расписание 3-4, 5-6, 9-10 уроки) - должны распечататься обе строки

Допустим на скриншоте при печати - после 5-6 урока сразу должен начаться другой блок с названием групп и расписанием, а строки № 7 и № 8 не попасть на печать.

@Vlad999 · 10.09.2018, 15:17

фильтр не подойдет?

@nikkei00 · 14.09.2018, 22:33 **[ТС]**

Решил!

Visual Basic

Sub CheckHideLessons(testRange) 'Проверить и скрыть пустые строки
 
    Dim HaveLessons As Boolean 'Есть ли уроки в строке
    Dim i As Long
    'Перебор по столбцам
    For i = 1 To testRange.Columns.count
            If CStr(testRange.Cells(1, i).Value) <> "" Then 'если ячейка в строке НЕ пустая
                HaveLessons = True ' Есть уроки
            End If
    Next i
            
        If CStr(HaveLessons = False) Then 'Если Уроков в строке нет
            testRange.Rows(1).EntireRow.Hidden = True 'Скрываем строку
        End If
    
End Sub

@nikkei00 2 / 2 / 1 Регистрация: 10.04.2017 Сообщений: 22
		1
	Не печатать строки без значений в excel 09.09.2018, 19:56. Показов 2866. Ответов 2 Метки нет (Все метки) Добрый день! При составлении расписания занятий не хочется постоянно удалять/добавлять строки с 7-8 и 9-10 уроками! Реально ли сделать так, что если в строке нет ни одного 7-8 и 9/10 урока - эта строка не попадала бы на печать? Но, соответственно, если будет окно (к примеру расписание 3-4, 5-6, 9-10 уроки) - должны распечататься обе строки Допустим на скриншоте при печати - после 5-6 урока сразу должен начаться другой блок с названием групп и расписанием, а строки № 7 и № 8 не попасть на печать. Миниатюры 0

@Vlad999 3920 / 2318 / 785 Регистрация: 02.11.2012 Сообщений: 6,163
	10.09.2018, 15:17	2
	фильтр не подойдет? 0

	14.09.2018, 22:33