如何打开以月份命名的特定工作表？

Question

我有一堆月份标签

用 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”。

我如何更改此代码以使其适用于包含月份名称的工作表名称，例如“可能”，“六月”， 或者“七月”？

Answer 1

要在打开工作簿后自动将当前月份的选项卡置于前台，您只需使用以下命令：

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

注意：仅当月份名称与操作系统使用相同语言时，此功能才会起作用。

Answer 2

获取当前月份的名称：

Sub tretdc()
    tabstr = Format(Now(), "mmmm")
    MsgBox tabstr
End Sub