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

Вход

Регистрация

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

 

= Мир MS Excel/Скрыть столбцы месяца - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрыть столбцы месяца (Макросы/Sub)
Скрыть столбцы месяца
roman66rus Дата: Понедельник, 21.12.2015, 12:12 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 113
Репутация: 0 ±
Замечаний: 0% ±

2010
Доброго времени суток. Помогите с макросом. В идеале нужно, чтобы прошедшие месяца автоматом скрывались, но похожего ничего найти не смог, пытался переделать макрос который скрывает столбцы нажатием правой кнопки на ячейки, но че-то не получается.
К сообщению приложен файл: 0180166.xlsm (24.1 Kb)
 
Ответить
СообщениеДоброго времени суток. Помогите с макросом. В идеале нужно, чтобы прошедшие месяца автоматом скрывались, но похожего ничего найти не смог, пытался переделать макрос который скрывает столбцы нажатием правой кнопки на ячейки, но че-то не получается.
Автор - roman66rus
Дата добавления - 21.12.2015 в 12:12
Manyasha Дата: Понедельник, 21.12.2015, 12:38 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
roman66rus, если переделать названия месяцев в даты, то можно так
[vba]
Код
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 1 To lc
        If IsDate(Cells(1, i).Value) Then
            If Month(Cells(1, i)) < Month(Now) Then
                Columns(i).Resize(, 6).Hidden = True
            Else
                Columns(i).Resize(, 6).Hidden = False
            End If
        End If
    Next i
    Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: 0180166-1.xlsm (25.5 Kb)

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеroman66rus, если переделать названия месяцев в даты, то можно так
[vba]
Код
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 1 To lc
        If IsDate(Cells(1, i).Value) Then
            If Month(Cells(1, i)) < Month(Now) Then
                Columns(i).Resize(, 6).Hidden = True
            Else
                Columns(i).Resize(, 6).Hidden = False
            End If
        End If
    Next i
    Application.ScreenUpdating = True
End Sub
[/vba]
Автор - Manyasha
Дата добавления - 21.12.2015 в 12:38
roman66rus Дата: Понедельник, 21.12.2015, 12:55 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 113
Репутация: 0 ±
Замечаний: 0% ±

2010
Manyasha, Спасибо большое. То что нужно. Я так понял он только текущий месяц будет показывать.
 
Ответить
СообщениеManyasha, Спасибо большое. То что нужно. Я так понял он только текущий месяц будет показывать.
Автор - roman66rus
Дата добавления - 21.12.2015 в 12:55
Manyasha Дата: Понедельник, 21.12.2015, 12:57 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
roman66rus, текущий и последующие
а вот так, если нужно только текущий
[vba]
Код
If Month(Cells(1, i)) <> Month(Now) Then
[/vba]

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеroman66rus, текущий и последующие
а вот так, если нужно только текущий
[vba]
Код
If Month(Cells(1, i)) <> Month(Now) Then
[/vba]
Автор - Manyasha
Дата добавления - 21.12.2015 в 12:57
roman66rus Дата: Понедельник, 21.12.2015, 13:00 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 113
Репутация: 0 ±
Замечаний: 0% ±

2010
Спасибо огромное.
 
Ответить
СообщениеСпасибо огромное.
Автор - roman66rus
Дата добавления - 21.12.2015 в 13:00
Wasilich Дата: Понедельник, 21.12.2015, 13:43 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Так наверное удобней будет
К сообщению приложен файл: 3750221.xls (56.5 Kb)
 
Ответить
СообщениеТак наверное удобней будет
Автор - Wasilich
Дата добавления - 21.12.2015 в 13:43
Kuzmich Дата: Понедельник, 21.12.2015, 14:10 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
Две кнопочки Скрыть столбцы и Отобразить столбцы
К сообщению приложен файл: 2569420.xls (62.5 Kb)
 
Ответить
СообщениеДве кнопочки Скрыть столбцы и Отобразить столбцы
Автор - Kuzmich
Дата добавления - 21.12.2015 в 14:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрыть столбцы месяца (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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