Как я могу открыть определенный лист с именем через месяц?

-1

У меня есть куча Вкладки месяца

Как можно открыть конкретный способ с помощью VBA? Я пытался с помощью этот фрагмент :

Private Sub Workbook_Open()

Dim ws As Worksheet
Dim mnth As String, dte As String, mday As String

mday = Now() - Weekday(Now(), 3)

mnth = Month(mday)
dte = Day(mday)

tabstr = mnth & "-" & dte

   For Each ws In Worksheets
       If ws.Name = tabstr Then
           ws.Select
           Exit For
       End If
    Next 
End sub

но это для имен листов, которые названы в честь дат, отформатированных как mm-ddнапример, "11-7" или же "11-14" ,

Как мне изменить этот код, чтобы он работал для имен листов, которые содержат названия месяцев, такие как "Май" , «Июнь» , или же «Июль» ?

Valerie
источник

Ответы:

2

Чтобы автоматически вывести вкладку текущего месяца на передний план после открытия книги, вы можете просто использовать это:

Private Sub Workbook_Open()
    Sheets(Format(Now(), "mmmm")).Select
End Sub

ПРИМЕЧАНИЕ. Это будет работать только в том случае, если названия месяцев написаны на том же языке, что и ОС.

Leviathan
источник
1

Чтобы получить название текущего месяца:

Sub tretdc()
    tabstr = Format(Now(), "mmmm")
    MsgBox tabstr
End Sub
Gary's Student
источник