Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Скрыть строки по дате - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Скрыть строки по дате (Формулы/Formulas)
Скрыть строки по дате
dima681 Дата: Среда, 17.05.2017, 16:08 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Здравствуйте подскажите как можно скрыть строки с датами больше текущей например сегодня 17.05.2017 нужно чтоб все строки с датами 18.05.2017 и так далее были скрыты, а все что раньше текущей даты отражались и желательно чтоб это происходило автоматически то есть открыл книгу 17.05.2017 показывает все предыдущие дни включая 17.05.2017, открыл книгу 18.05.2017 показывает все предыдущие дни включая 18.05.2017
Перерыл в поиске 40 страниц с подобными темами но нечего не подошло
К сообщению приложен файл: 1340802.xlsx(19Kb)


Дмитрий Николаевич Воронов
 
Ответить
СообщениеЗдравствуйте подскажите как можно скрыть строки с датами больше текущей например сегодня 17.05.2017 нужно чтоб все строки с датами 18.05.2017 и так далее были скрыты, а все что раньше текущей даты отражались и желательно чтоб это происходило автоматически то есть открыл книгу 17.05.2017 показывает все предыдущие дни включая 17.05.2017, открыл книгу 18.05.2017 показывает все предыдущие дни включая 18.05.2017
Перерыл в поиске 40 страниц с подобными темами но нечего не подошло

Автор - dima681
Дата добавления - 17.05.2017 в 16:08
sboy Дата: Среда, 17.05.2017, 16:37 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 595
Репутация: 155 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Вариант 1.
Не скрывать, а делать "Невидимыми" с помощью Условного форматирования (шрифт, белый, границ и заливки нет)
формула УФ
Код
=СЕГОДНЯ()<$A4
К сообщению приложен файл: 7462985.xlsx(20Kb)
 
Ответить
СообщениеДобрый день.
Вариант 1.
Не скрывать, а делать "Невидимыми" с помощью Условного форматирования (шрифт, белый, границ и заливки нет)
формула УФ
Код
=СЕГОДНЯ()<$A4

Автор - sboy
Дата добавления - 17.05.2017 в 16:37
pabchek Дата: Среда, 17.05.2017, 16:37 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 691
Репутация: 152 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте!
Так надо?
К сообщению приложен файл: 2877068.xlsb(22Kb)


"Учиться, учиться и еще раз учиться!"
WM: R399923528092
 
Ответить
СообщениеЗдравствуйте!
Так надо?

Автор - pabchek
Дата добавления - 17.05.2017 в 16:37
sboy Дата: Среда, 17.05.2017, 16:52 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 595
Репутация: 155 ±
Замечаний: 0% ±

Excel 2010
Вариант 2 макросом
Сделал на событие при открытии книги строки скрывает (т.е. потом пользователь может отобразить)
[vba]
Код
Private Sub Workbook_Open()
For Each sh In ThisWorkbook.Sheets
    With sh
    r1 = .Range("A:A").Find(Date).Row
    r2 = .Range("a" & r1).End(xlDown).Row - 1
    .Rows(r1 & ":" & r2).Hidden = True
    End With
    Next sh
End Sub
[/vba]
если пользователь не должен их смотреть надо переделать на другое событие
К сообщению приложен файл: 1340802.xlsm(26Kb)
 
Ответить
СообщениеВариант 2 макросом
Сделал на событие при открытии книги строки скрывает (т.е. потом пользователь может отобразить)
[vba]
Код
Private Sub Workbook_Open()
For Each sh In ThisWorkbook.Sheets
    With sh
    r1 = .Range("A:A").Find(Date).Row
    r2 = .Range("a" & r1).End(xlDown).Row - 1
    .Rows(r1 & ":" & r2).Hidden = True
    End With
    Next sh
End Sub
[/vba]
если пользователь не должен их смотреть надо переделать на другое событие

Автор - sboy
Дата добавления - 17.05.2017 в 16:52
dima681 Дата: Среда, 17.05.2017, 19:33 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
sboy 1 варианта в принципе подходит, а Вариант 2 у меня не работает меняю системную дату строки не открываются и не скрываются


Дмитрий Николаевич Воронов

Сообщение отредактировал dima681 - Четверг, 18.05.2017, 09:44
 
Ответить
Сообщениеsboy 1 варианта в принципе подходит, а Вариант 2 у меня не работает меняю системную дату строки не открываются и не скрываются

Автор - dima681
Дата добавления - 17.05.2017 в 19:33
dima681 Дата: Среда, 24.05.2017, 16:44 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
sboy, я добавил в таблицу кучу строк и столбцов и у меня почему то не скрываются некоторые ячейки можно как нибудь это исправить
К сообщению приложен файл: ___2017_.xlsx(81Kb)


Дмитрий Николаевич Воронов
 
Ответить
Сообщениеsboy, я добавил в таблицу кучу строк и столбцов и у меня почему то не скрываются некоторые ячейки можно как нибудь это исправить

Автор - dima681
Дата добавления - 24.05.2017 в 16:44
art777 Дата: Среда, 24.05.2017, 22:06 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте!
Так надо?


Класс! Беру в свою коллекцию для "готовых решений", ещё бы кнопочку на листе для отключения...
 
Ответить
Сообщение
Здравствуйте!
Так надо?


Класс! Беру в свою коллекцию для "готовых решений", ещё бы кнопочку на листе для отключения...

Автор - art777
Дата добавления - 24.05.2017 в 22:06
sboy Дата: Четверг, 25.05.2017, 09:12 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 595
Репутация: 155 ±
Замечаний: 0% ±

Excel 2010
dima681, Добрый день. Если ваш вопрос про условное форматирование, то не работает из-за объединенной ячейки с датой
 
Ответить
Сообщениеdima681, Добрый день. Если ваш вопрос про условное форматирование, то не работает из-за объединенной ячейки с датой

Автор - sboy
Дата добавления - 25.05.2017 в 09:12
sboy Дата: Четверг, 25.05.2017, 09:26 | Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 595
Репутация: 155 ±
Замечаний: 0% ±

Excel 2010
dima681, А если про макрос, то поправил под новый пример
[vba]
Код
Private Sub Workbook_Open()
For Each sh In ThisWorkbook.Sheets
    With sh
    On Error Resume Next
    r1 = .Range("A:A").Find(Date).Row
    Select Case Err.Number
    Case 0
        r2 = .Cells(Rows.Count, 1).End(xlUp).Row - 1
        .Rows(r1 & ":" & r2).Hidden = True
        Exit For
    Case Else
        Err.Clear
    End Select
    End With
    Next sh
End Sub
[/vba]
К сообщению приложен файл: _2017-1-.xlsm(90Kb)
 
Ответить
Сообщениеdima681, А если про макрос, то поправил под новый пример
[vba]
Код
Private Sub Workbook_Open()
For Each sh In ThisWorkbook.Sheets
    With sh
    On Error Resume Next
    r1 = .Range("A:A").Find(Date).Row
    Select Case Err.Number
    Case 0
        r2 = .Cells(Rows.Count, 1).End(xlUp).Row - 1
        .Rows(r1 & ":" & r2).Hidden = True
        Exit For
    Case Else
        Err.Clear
    End Select
    End With
    Next sh
End Sub
[/vba]

Автор - sboy
Дата добавления - 25.05.2017 в 09:26
pabchek Дата: Четверг, 25.05.2017, 09:34 | Сообщение № 10
Группа: Проверенные
Ранг: Ветеран
Сообщений: 691
Репутация: 152 ±
Замечаний: 0% ±

Excel 2007
ещё бы кнопочку

Держите с галочкой
К сообщению приложен файл: 2597563.xlsb(26Kb)


"Учиться, учиться и еще раз учиться!"
WM: R399923528092
 
Ответить
Сообщение
ещё бы кнопочку

Держите с галочкой

Автор - pabchek
Дата добавления - 25.05.2017 в 09:34
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Скрыть строки по дате (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!