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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир 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 (19.4 Kb)

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

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

Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Вариант 1.
Не скрывать, а делать "Невидимыми" с помощью Условного форматирования (шрифт, белый, границ и заливки нет)
формула УФ
Код
=СЕГОДНЯ()<$A4
Автор - sboy
Дата добавления - 17.05.2017 в 16:37
pabchek Дата: Среда, 17.05.2017, 16:37 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 931
Репутация: 218 ±
Замечаний: 0% ±

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

"Учиться, учиться и еще раз учиться!"
WM: R399923528092
 
Ответить
СообщениеЗдравствуйте!
Так надо?
Автор - pabchek
Дата добавления - 17.05.2017 в 16:37
sboy Дата: Среда, 17.05.2017, 16:52 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 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 (25.6 Kb)

Яндекс: 410016850021169
 
Ответить
СообщениеВариант 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 (81.2 Kb)

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

Excel 2010
Цитата pabchek, 17.05.2017 в 16:37, в сообщении № 3 ()
Здравствуйте!
Так надо?


Класс! Беру в свою коллекцию для "готовых решений", ещё бы кнопочку на листе для отключения...
 
Ответить
Сообщение
Цитата pabchek, 17.05.2017 в 16:37, в сообщении № 3 ()
Здравствуйте!
Так надо?


Класс! Беру в свою коллекцию для "готовых решений", ещё бы кнопочку на листе для отключения...
Автор - art777
Дата добавления - 24.05.2017 в 22:06
sboy Дата: Четверг, 25.05.2017, 09:12 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

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

Яндекс: 410016850021169
 
Ответить
Сообщениеdima681, Добрый день. Если ваш вопрос про условное форматирование, то не работает из-за объединенной ячейки с датой
Автор - sboy
Дата добавления - 25.05.2017 в 09:12
sboy Дата: Четверг, 25.05.2017, 09:26 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 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 (90.1 Kb)

Яндекс: 410016850021169
 
Ответить
Сообщение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
Группа: Проверенные
Ранг: Ветеран
Сообщений: 931
Репутация: 218 ±
Замечаний: 0% ±

Excel 2007
Цитата art777, 24.05.2017 в 22:06, в сообщении № 7 ()
ещё бы кнопочку

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

"Учиться, учиться и еще раз учиться!"
WM: R399923528092
 
Ответить
Сообщение
Цитата art777, 24.05.2017 в 22:06, в сообщении № 7 ()
ещё бы кнопочку

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

Excel 2010
dima681, я Вам писал
Цитата sboy, 17.05.2017 в 16:52, в сообщении № 4 ()
при открытии книги строки скрывает

т.к. Вы в первом посте просили
Цитата dima681, 17.05.2017 в 16:08, в сообщении № 1 ()
открыл книгу 18.05.2017 показывает все предыдущие дни включая 18.05.2017

Яндекс: 410016850021169
 
Ответить
Сообщениеdima681, я Вам писал
Цитата sboy, 17.05.2017 в 16:52, в сообщении № 4 ()
при открытии книги строки скрывает

т.к. Вы в первом посте просили
Цитата dima681, 17.05.2017 в 16:08, в сообщении № 1 ()
открыл книгу 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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 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 (90.3 Kb)

Яндекс: 410016850021169

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

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

Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
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 из 1
  • 1
Поиск:

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