Доброго времени суток. Помогите с макросом. В идеале нужно, чтобы прошедшие месяца автоматом скрывались, но похожего ничего найти не смог, пытался переделать макрос который скрывает столбцы нажатием правой кнопки на ячейки, но че-то не получается.
Доброго времени суток. Помогите с макросом. В идеале нужно, чтобы прошедшие месяца автоматом скрывались, но похожего ничего найти не смог, пытался переделать макрос который скрывает столбцы нажатием правой кнопки на ячейки, но че-то не получается.roman66rus
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]
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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
