Страницы: 1
RSS
Макрос - скрытие и показ строк при условии
 
Добрый день, есть тест c выбором ответов с помощью переключателя и галочек, подсчет балов происходит с двух строках выделенных цветов, которые я скрыл:
Код
Sub HideByConditionalFormattingColor()
    Dim cell As Range
    Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells
        If cell.DisplayFormat.Interior.Color = Range("O2").DisplayFormat.Interior.Color Then cell.EntireRow.Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub

Sub ShowByConditionalFormattingColor()
    Columns.Hidden = False   
    Rows.Hidden = False
End Sub
Скажите, как дописать макрос, чтобы показать строки возможно было после проставления всех галочек и переключателей. Спасибо!  
 
Цикл по всем галочкам и переключателям с проверкой на их состояние. Если все TRUE (или что-то еще) то показываем все строки и столбцы
Согласие есть продукт при полном непротивлении сторон
 
Sanja, а как указать переключатель в качестве переменой? Или придется ставить напротив строки какой-либо символ в случае активного переключателя и ссылаться на него?
 
Сделайте для каждого переключателя связь с ячейкой и проверяйте их значения (или общую сумму, если переключатели - только "галочки")
Страницы: 1
Наверх