我有一堆月份标签
用 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