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

Вход

Регистрация

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

 

= Мир MS Excel/Скрытие строк с определенными датами. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрытие строк с определенными датами. (Макросы/Sub)
Скрытие строк с определенными датами.
enchanter54 Дата: Четверг, 17.03.2016, 00:15 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
Помогите с макросом, вроде не сложный, но я не очень в них(((.
Нужен макрос который бы скрывал строки, у которых в столбце "М" дата выше сегодняшней.
К сообщению приложен файл: 1111.xlsx(13Kb)


Сообщение отредактировал enchanter54 - Четверг, 17.03.2016, 00:26
 
Ответить
СообщениеПомогите с макросом, вроде не сложный, но я не очень в них(((.
Нужен макрос который бы скрывал строки, у которых в столбце "М" дата выше сегодняшней.

Автор - enchanter54
Дата добавления - 17.03.2016 в 00:15
devilkurs Дата: Четверг, 17.03.2016, 00:42 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 140
Репутация: 37 ±
Замечаний: 0% ±

Excel 2007, 2010
Так?
К сообщению приложен файл: 1111.xlsm(24Kb)


 
Ответить
СообщениеТак?

Автор - devilkurs
Дата добавления - 17.03.2016 в 00:42
enchanter54 Дата: Четверг, 17.03.2016, 00:45 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
devilkurs, вроде да, ну а если количество строк будет увеличиваться, что-то надо в макросе править? Столбцы как есть так и будут, а вот строки могут увеличиваться.
 
Ответить
Сообщениеdevilkurs, вроде да, ну а если количество строк будет увеличиваться, что-то надо в макросе править? Столбцы как есть так и будут, а вот строки могут увеличиваться.

Автор - enchanter54
Дата добавления - 17.03.2016 в 00:45
devilkurs Дата: Четверг, 17.03.2016, 00:51 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 140
Репутация: 37 ±
Замечаний: 0% ±

Excel 2007, 2010
enchanter54,
Константой установлена строка № 5 (с которой начинает проверять даты)
Последняя строка определяется автоматом из учета последняя заполненная ячейка по столбцу М

Открываются строки, определяя верхнюю и нижнюю строки аналогично верхнего алгоритма





Сообщение отредактировал devilkurs - Четверг, 17.03.2016, 00:55
 
Ответить
Сообщениеenchanter54,
Константой установлена строка № 5 (с которой начинает проверять даты)
Последняя строка определяется автоматом из учета последняя заполненная ячейка по столбцу М

Открываются строки, определяя верхнюю и нижнюю строки аналогично верхнего алгоритма


Автор - devilkurs
Дата добавления - 17.03.2016 в 00:51
devilkurs Дата: Четверг, 17.03.2016, 00:56 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 140
Репутация: 37 ±
Замечаний: 0% ±

Excel 2007, 2010
enchanter54,
в посте выше прокомментировал код макроса (под спойлером)


 
Ответить
Сообщениеenchanter54,
в посте выше прокомментировал код макроса (под спойлером)

Автор - devilkurs
Дата добавления - 17.03.2016 в 00:56
enchanter54 Дата: Четверг, 17.03.2016, 00:56 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
devilkurs, Всё дошло! Спасибо огромное за помощь! Это именно то что нужно.
 
Ответить
Сообщениеdevilkurs, Всё дошло! Спасибо огромное за помощь! Это именно то что нужно.

Автор - enchanter54
Дата добавления - 17.03.2016 в 00:56
KuklP Дата: Четверг, 17.03.2016, 04:25 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2000
Репутация: 436 ±
Замечаний: 0% ±

А если так. все одной кнопкой:
[vba]
Код
Public Sub www()
    With Range("m4:m" & Cells(Rows.Count, 1).End(xlUp).Row)
    If .Parent.AutoFilterMode = 0 Then .AutoFilter 1, "<=" & CLng(Date), , , False Else .AutoFilter
    End With
End Sub
[/vba]
К сообщению приложен файл: _1111_1.xlsm(20Kb)


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Четверг, 17.03.2016, 04:49
 
Ответить
СообщениеА если так. все одной кнопкой:
[vba]
Код
Public Sub www()
    With Range("m4:m" & Cells(Rows.Count, 1).End(xlUp).Row)
    If .Parent.AutoFilterMode = 0 Then .AutoFilter 1, "<=" & CLng(Date), , , False Else .AutoFilter
    End With
End Sub
[/vba]

Автор - KuklP
Дата добавления - 17.03.2016 в 04:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрытие строк с определенными датами. (Макросы/Sub)
Страница 1 из 11
Поиск:

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