Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » ivstepa
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Как изменить макрос для отображения диапазона строк
 
#
10.09.2020 12:01:39
Извиняюсь, в макросах ноль, что заменить этим кодом.
 
Перейти    
Как изменить макрос для отображения диапазона строк
 
#
10.09.2020 11:23:48
Да
 
Перейти    
Как изменить макрос для отображения диапазона строк
 
#
10.09.2020 08:14:14
Подскажите пожалуйста, как изменить код, что бы скрытые строки отображались скажем начиная с 10 строки, а не все, а  если есть до 10 скрытые, что бы так и оставались скрытыми.
Код
Private Sub tgbZero_Click()
    Application.ScreenUpdating = False   ' отключить обновление экрана
    With Sheets("4646").tgbZero
    If .Value Then   ' если кнопка нажата
        Cells.EntireRow.AutoFit   ' показать все строки 
        .Caption = "Скрыть "   ' сменить надпись на кнопке
    Else   ' если кнопка не нажата
For Each cell In ActiveSheet.UsedRange.Columns(3).Cells         'проходим по всем ячейкам первого столбца
        If cell.Value = "x" Then cell.EntireRow.Hidden = True       'если в ячейке x - скрываем строку
    Next
        .Caption = "Отобразить"   ' сменить надпись на кнопке
    End If
    End With
    Application.ScreenUpdating = True   ' включить обновление экрана
End Sub
 
Перейти    
Как в макросе прописать диапазон от заданной ячейки до конца таблицы
 
#
09.09.2020 15:21:15
Подскажите пожалуйста, как изменить код, что бы скрытые строки отображались скажем начиная с 10 строки, а не все, а  если есть до 10 скрытые, что бы так и оставались скрытыми
Код
Private Sub tgbZero_Click()
    Application.ScreenUpdating = False   ' отключить обновление экрана
    With Sheets("4646").tgbZero
    If .Value Then   ' если кнопка нажата
        Cells.EntireRow.AutoFit   ' показать все строки 
        .Caption = "Скрыть "   ' сменить надпись на кнопке
    Else   ' если кнопка не нажата
For Each cell In ActiveSheet.UsedRange.Columns(3).Cells         'проходим по всем ячейкам первого столбца
        If cell.Value = "x" Then cell.EntireRow.Hidden = True       'если в ячейке x - скрываем строку
    Next
        .Caption = "Отобразить"   ' сменить надпись на кнопке
    End If
    End With
    Application.ScreenUpdating = True   ' включить обновление экрана
End Sub
Изменено: ivstepa - 09.09.2020 15:22:11
 
Перейти    
Заливка и отмена заливки по нажатию кнопки
 
#
16.06.2020 14:56:07
Здравствуйте. Подскажите пожалуйста, как то можно сделать кнопку, по нажатию которой происходила заливка ячейки, определенной раскраски, и кнопку что бы очищать ячейку.  
 
Перейти    
Условное форматирование дат. Заливка при превышении количества лет
 
#
15.06.2020 14:20:04
Спасибо большое за помощь. Оказалось все так просто.
 
Перейти    
Условное форматирование дат. Заливка при превышении количества лет
 
#
15.06.2020 13:22:29
Вот поэтому и прошу помощи, чтобы разобраться.
 
Перейти    
Условное форматирование дат. Заливка при превышении количества лет
 
#
15.06.2020 12:44:58
Здравствуйте, не получается применит условное форматирование к датам, что я делаю не правильно. Суть вопроса такова; нужно, то что находить в диапазоне лет  от 5 до 10 должно быть желтым цветом, больше 10 красным. Что только не пробовал, работает не так как надо. В чем моя ошибка?
 
Перейти    
Заливка значений больше определенного числа
 
#
15.05.2020 11:03:28
А подскажите как сделать  кнопку, что бы закрашивались выделенные ячейки и  кнопку, чтобы при необходимости можно было в выделенной ячейке закрашивание отменить? Например, как в табеле рабочего времени  
 
Перейти    
Страницы: 1
Наверх