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

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

我有一堆月份标签

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

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

答案1

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

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

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

答案2

获取当前月份的名称:

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

相关内容