Скрыть Листы по условию

[valerij]

Как скрыть листы по условию, если месяц начался, то предыдущий месяц-Лист, скрыть, вот код:

Function MonthRus(m) As String
  Select Case m
    Case 1:  MonthRus = "ЯНВАРЬ"    'Имена Листов
    Case 2:  MonthRus = "ФЕВРАЛЬ"   'Имена Листов
    Case 3:  MonthRus = "МАРТ"      'Имена Листов
    Case 4:  MonthRus = "АПРЕЛЬ"    'Имена Листов
    Case 5:  MonthRus = "МАЙ"       'Имена Листов
    Case 6:  MonthRus = "ИЮНЬ"      'Имена Листов
    Case 7:  MonthRus = "ИЮЛЬ"      'Имена Листов
    Case 8:  MonthRus = "АВГУСТ"    'Имена Листов
    Case 9:  MonthRus = "СЕНТЯБРЬ"  'Имена Листов
    Case 10: MonthRus = "ОКТЯБРЬ"   'Имена Листов
    Case 11: MonthRus = "НОЯБРЬ"    'Имена Листов
    Case 12: MonthRus = "ДЕКАБРЬ"   'Имена Листов
End Select
End Function

Т. е. нужно, что бы скрылись все листы, кроме "АПРЕЛЬ" и т. д.

[IgorGO]

мощь кода валит с ног...
1) какое отношение имеет фуккция, которая возвращает русское название мясяца по его номеру к процедуре скрыть/показать лист?

2) зачем там вот этот глубокомысленный фрагмент кода?

    With Application
        .EnableEvents = False
        .EnableEvents = True
    End With

3) можно, конечно выкинуть код обозначенный в п.2., но лучше заменить всю функцию на:

Function MonthRus(m) As String
  MonthRus = UCase(Format(DateSerial(2000, m, 1), "MMMM"))
End Function

будет делать, то же что и прежнея, одной короткой строкой, а не 18-ю.

4) и наконец, по существу

Sub ShowCurrentMonth()
  For Each sh In Sheets
    If sh.Name = UCase(Format(Now, "MMMM")) Then sh.Visible = True Else sh.Visible = False
  Next
End Sub

Это скроет все листы кроме листа, которые называется как текущий месяц. Запускать процедуру надо при каждом открытии файла.

[valerij]

Получилось, вот так, но почему без GoTo не работает??

Function MonthRus(m) As String
  Select Case m
    Case 1:  MonthRus = "ЯНВАРЬ": GoTo A
    Case 2:  MonthRus = "ФЕВРАЛЬ": GoTo A
    Case 3:  MonthRus = "МАРТ": GoTo A
    Case 4:  MonthRus = "АПРЕЛЬ": GoTo A
    Case 5:  MonthRus = "МАЙ": GoTo A
    Case 6:  MonthRus = "ИЮНЬ": GoTo A
    Case 7:  MonthRus = "ИЮЛЬ": GoTo A
    Case 8:  MonthRus = "АВГУСТ": GoTo A
    Case 9:  MonthRus = "СЕНТЯБРЬ": GoTo A
    Case 10: MonthRus = "ОКТЯБРЬ": GoTo A
    Case 11: MonthRus = "НОЯБРЬ": GoTo A
    Case 12: MonthRus = "ДЕКАБРЬ": GoTo A
A:    For листы = 1 To 12
        Sheets(листы).Visible = False
    Next
    Sheets(m).Visible = True
  End Select
End Function

Игорь это же твой код, подредактировал, убрал ошибки #1

[valerij]

Сообщение от IgorGO

4) и наконец, по существу

Sub ShowCurrentMonth()
  For Each sh In Sheets
    If sh.Name = UCase(Format(Now, "MMMM")) Then sh.Visible = True Else sh.Visible = False
  Next
End Sub

Это скроет все листы кроме листа, которые называется как текущий месяц. Запускать процедуру надо при каждом открытии файла.

Да, скрыло ВСЕ и текущий и выдало
Run-time error '1004':
Нельзя установить свойство Visible класса Worksheet

[IgorGO]

куда мы катимся. Валера - это мрак.
1) еще раз вопрос заченм это совать в функцию, которая нужна чтобы вернуть название месяца по его номеру?????

2) зачем вот это

    For листы = 1 To 12
        Sheets(листы).Visible = False
    Next
    Sheets(m).Visible = True

совать между Select Case m и End Select Прочитай синтаксис Select Case.

3) конечно можно все сунуть в эту функцию (если я не понимаю зачем - это еще не значит что нельзя, хотя логика отсутствует в такой записи полностью). Пиши так:

Function MonthRus(m) As String
  Select Case m
    Case 1:  MonthRus = "ЯНВАРЬ": GoTo A
    Case 2:  MonthRus = "ФЕВРАЛЬ": GoTo A
    Case 3:  MonthRus = "МАРТ": GoTo A
    Case 4:  MonthRus = "АПРЕЛЬ": GoTo A
    Case 5:  MonthRus = "МАЙ": GoTo A
    Case 6:  MonthRus = "ИЮНЬ": GoTo A
    Case 7:  MonthRus = "ИЮЛЬ": GoTo A
    Case 8:  MonthRus = "АВГУСТ": GoTo A
    Case 9:  MonthRus = "СЕНТЯБРЬ": GoTo A
    Case 10: MonthRus = "ОКТЯБРЬ": GoTo A
    Case 11: MonthRus = "НОЯБРЬ": GoTo A
    Case 12: MonthRus = "ДЕКАБРЬ": GoTo A
  End Select
    For листы = 1 To 12
        Sheets(листы).Visible = False
    Next
    Sheets(m).Visible = True
End Function

только поубирай все ": GoTo A" из каждого Case, а то на это больно смотреть.

4) спасибо, что убрал ошибки из моего кода, жаль что я их не увидел...

[IgorGO]

Sub ShowCurrentMonth()
  For Each sh In Sheets
    If sh.Name = UCase(Format(Now, "MMMM")) Then sh.Visible = True Else sh.Visible = False
  Next
End Sub

Да, скрыло ВСЕ и текущий и выдало

А откуда мне знать что у тебя нет листа с именем АПРЕЛЬ. Если он назван апрель, Апрель, апр., 04-апр. или еще как-то, то ты это знаешь, а я нет. А исправить - как два байта отослать...

Успехов!

[valerij]

Сообщение от IgorGO

листа с именем Апрель

Игорь, вот такой формат у всех Листов, красным, а что такое "MMMM" ??
Объясняй уж до конца, я менял на "Mmmm", та же ошибка.

[IgorGO]

должно работать так и так:

If UCase(sh.Name) = UCase(Format(Now, "MMMM")) Then sh.Visible = True Else sh.Visible = False
If sh.Name = Format(Now, "MMMM") Then sh.Visible = True Else sh.Visible = False

[motorway]

MMMM - это полное буквенное название месяца, MMM - сокращенное, а MM - цифрами.

[valerij]

Сообщение от motorway

MMMM - это полное буквенное название месяца, MMM - сокращенное, а MM - цифрами.

Понял, тока:
ММММ, можно так МАЙ или Май, или май, или нет разницы?
Спасибо.
Скока книг перечитал, нигде не встречал!!