Страницы: 1
RSS
В макрос скрытия строк добавить проверку по ячейкам и печать
 
Доброго дня суток!
Помогите пожалуйста с кодом макроса:
1.Нужно добавить проверку по ячейкам "V15:V19" , при открытии книги или смены условия 0 (стала 1) должен развернуть строки сам.
2.Добавить печать по заданным ячейкам (области печати).
Все это будет на одной кнопке.
сам код:
Код
Sub ToggleHideRows()
Dim c As Range
For Each c In Range("V15:V19")
If Not IsEmpty(c) And c.Value = 0 Then
c.EntireRow.Hidden = Not c.EntireRow.Hidden
End If
Next

End Sub
 
Код
Sub ToggleHideRows()
Dim c As Range
For Each c In Range("V15:V19")
If Not IsEmpty(c) And c.Value = 0 Then             ' если не empty и =0, то...
c.EntireRow.Hidden = Not c.EntireRow.Hidden ' поменять значение видимости строки на противоположное, т.е. видимую сделать невидимой, а невидимую - видимой.
End If
Next 
End Sub
строка 4: если 0, то уже точно не empty
строка 5: Вам точно это надо? А так?
Код
Sub ToggleHideRows()
Dim c As Range
For Each c In Range("V15:V19")
If c.Value = 0 Then             ' если 0, то...
c.EntireRow.Hidden = true 
else
c.EntireRow.Hidden = false
End If
Next
End Sub
или так?
Код
Sub ToggleHideRows()Dim c As Range
For Each c In Range("V15:V19")
select case c.Value
case 0 
c.EntireRow.Hidden = true 
case 1
c.EntireRow.Hidden = false
End select
Next
End Sub
Изменено: Михаил Лебедев - 23.01.2021 11:21:22
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
Михаил Лебедев,
Последний подошёл, спасибо.
Как теперь в конец кода поставить ещё одну задачу печати?

Задача одной кнопкой выполнить этот макрос и печать.
Код
Sub Печать()
    Sheets("Маркировка").Select
    Range("Область_печати").Select
    Selection.PrintOut Copies:=1, Collate:=True
End Sub
Изменено: DenisShiych - 23.01.2021 12:07:32
Страницы: 1
Наверх