|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
04.01.2011, 13:18 | #1 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Скрыть Листы, не активных месяцев
Как мне в этом иакросе, Скрыть Листы, не активных месяцев?
Код:
|
04.01.2011, 13:23 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Валера, а что такое - "неактивный месяц"?
К примеру, январь - активный? А март? А ноябрь? Почему? |
04.01.2011, 13:30 | #3 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Код:
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
04.01.2011, 13:41 | #4 | |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Цитата:
Ошибка, исправил, но листы скрывает, но не те, оставляет Декабрь и при последующих запусках, ставит Лист1, Лист2 ..... Код:
Последний раз редактировалось valerij; 04.01.2011 в 13:52. |
|
04.01.2011, 13:53 | #5 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
У меня скрывает, запустил в новой книге создало Январь, а три других скрыло:
Private Sub Workbook_Open() With Application .ScreenUpdating = False .EnableEvents = False '************************** Переключиться на Лист, текущего месяца ***************************** On Error Resume Next Sheets(MonthRus(Month(Now))).Select If Err.Number > 0 Then Err.Clear Sheets(MonthRus(Month(Now) - 1)).Select If Err.Number > 0 Then ShN = Sheets.Count Else ShN = _ Sheets(MonthRus(Month(Now) - 1)).Index Sheets.Add After:=Sheets(ShN) Sheets(ShN + 1).Name = MonthRus(Month(Now)) End If For Each ws In Me.Worksheets If ws.Name <> MonthRus(Month(Now)) Then ws.Visible = 0 'ну или 2(очень скрытый) End If Next '********************************** *********************************** *************************** .ScreenUpdating = True .EnableEvents = True End With End Sub Только я бы сначала делал Все листы видимыми, а потом уж скрывал ненужные. Иначе будут ошибки.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 Последний раз редактировалось kuklp; 04.01.2011 в 13:57. |
04.01.2011, 14:09 | #6 | |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Цитата:
Код:
Код:
|
|
04.01.2011, 14:15 | #7 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Код:
|
04.01.2011, 14:23 | #8 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
|
04.01.2011, 14:25 | #9 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Format(Now, "MMMM") - возвращает название текущего месяца: Январь
UCase(Format(Now, "MMMM")) - то же название, только заглавными буквами: ЯНВАРЬ По крайней мере, на моём компе (где установлен русский Office) |
04.01.2011, 14:27 | #10 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Пока за хлебом сходил... Игорь, там у Валерия есть еще добавление листа с текущим месяцем(если таковой отсутствует)
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как скрыть все листы в ЕКСЕЛЕ кроме определенного списка | sasha_prof | Microsoft Office Excel | 2 | 03.12.2010 21:09 |
Скрыть Листы по условию | valerij | Microsoft Office Excel | 15 | 20.04.2010 19:32 |
На водительские права учиться 6 месяцев! :) | Alar | Свободное общение | 19 | 07.04.2010 13:33 |
Две оси на двух активных разделах | alex55 | Операционные системы общие вопросы | 22 | 17.05.2009 19:09 |
Скрыть листы по запросу | RUBEY | Microsoft Office Excel | 23 | 16.01.2009 13:40 |