Домашняя страница 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
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

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
Группа: Проверенные
Ранг: Ветеран
Сообщений: 775
Репутация: 203 ±
Замечаний: 0% ±

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

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

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


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

Автор - pabchek
Дата добавления - 17.05.2017 в 16:37
sboy Дата: Среда, 17.05.2017, 16:52 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 775
Репутация: 203 ±
Замечаний: 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
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

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
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

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


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

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

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


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


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

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

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

Автор - sboy
Дата добавления - 25.05.2017 в 09:12
sboy Дата: Четверг, 25.05.2017, 09:26 | Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 775
Репутация: 203 ±
Замечаний: 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
Группа: Проверенные
Ранг: Ветеран
Сообщений: 725
Репутация: 162 ±
Замечаний: 0% ±

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

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


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

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

Автор - pabchek
Дата добавления - 25.05.2017 в 09:34
dima681 Дата: Четверг, 25.05.2017, 21:17 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
sboy, у почему-то макрос этот не работает прикрепляю скриншот обратите внимание на часы в правом нижнем углу


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

Сообщение отредактировал dima681 - Пятница, 26.05.2017, 09:40
 
Ответить
Сообщениеsboy, у почему-то макрос этот не работает прикрепляю скриншот обратите внимание на часы в правом нижнем углу

Автор - dima681
Дата добавления - 25.05.2017 в 21:17
sboy Дата: Пятница, 26.05.2017, 11:29 | Сообщение № 12
Группа: Проверенные
Ранг: Ветеран
Сообщений: 775
Репутация: 203 ±
Замечаний: 0% ±

Excel 2010
dima681, я Вам писал
при открытии книги строки скрывает

т.к. Вы в первом посте просили
открыл книгу 18.05.2017 показывает все предыдущие дни включая 18.05.2017
 
Ответить
Сообщениеdima681, я Вам писал
при открытии книги строки скрывает

т.к. Вы в первом посте просили
открыл книгу 18.05.2017 показывает все предыдущие дни включая 18.05.2017

Автор - sboy
Дата добавления - 26.05.2017 в 11:29
dima681 Дата: Пятница, 26.05.2017, 13:48 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
в скрине четко видно что я установил дату на месяц вперёд и только после этого открыл книгу


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

Автор - dima681
Дата добавления - 26.05.2017 в 13:48
sboy Дата: Пятница, 26.05.2017, 14:01 | Сообщение № 14
Группа: Проверенные
Ранг: Ветеран
Сообщений: 775
Репутация: 203 ±
Замечаний: 0% ±

Excel 2010
dima681, Теперь понял. скрыли, а отобразить забыли!
[vba]
Код
Private Sub Workbook_Open()
Application.ScreenUpdating = False
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
        For Each r In .UsedRange.Rows
            If r.EntireRow.Hidden = True Then r.EntireRow.Hidden = False
        Next r
        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
Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: 7818639.xlsm(90Kb)


Сообщение отредактировал sboy - Пятница, 26.05.2017, 14:01
 
Ответить
Сообщениеdima681, Теперь понял. скрыли, а отобразить забыли!
[vba]
Код
Private Sub Workbook_Open()
Application.ScreenUpdating = False
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
        For Each r In .UsedRange.Rows
            If r.EntireRow.Hidden = True Then r.EntireRow.Hidden = False
        Next r
        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
Application.ScreenUpdating = True
End Sub
[/vba]

Автор - sboy
Дата добавления - 26.05.2017 в 14:01
dima681 Дата: Пятница, 26.05.2017, 16:51 | Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
макрос заработал сделайте пожалуйста чтобы и текущее число тоже показывалась


Дмитрий Николаевич Воронов
 
Ответить
Сообщениемакрос заработал сделайте пожалуйста чтобы и текущее число тоже показывалась

Автор - dima681
Дата добавления - 26.05.2017 в 16:51
sboy Дата: Понедельник, 29.05.2017, 10:43 | Сообщение № 16
Группа: Проверенные
Ранг: Ветеран
Сообщений: 775
Репутация: 203 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
5-ю строку в макросе измените
[vba]
Код
r1 = .Range("A:A").Find(Date + 1).Row
[/vba]
 
Ответить
СообщениеДобрый день.
5-ю строку в макросе измените
[vba]
Код
r1 = .Range("A:A").Find(Date + 1).Row
[/vba]

Автор - sboy
Дата добавления - 29.05.2017 в 10:43
dima681 Дата: Вторник, 30.05.2017, 08:23 | Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
спасибо


Дмитрий Николаевич Воронов
 
Ответить
Сообщениеспасибо

Автор - dima681
Дата добавления - 30.05.2017 в 08:23
dima681 Дата: Вторник, 20.06.2017, 23:23 | Сообщение № 18
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
В макросе где-то закралась ошибка 30 и 31 числа любого месяца не открываются автоматически


Дмитрий Николаевич Воронов
 
Ответить
СообщениеВ макросе где-то закралась ошибка 30 и 31 числа любого месяца не открываются автоматически

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

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