如何用vba实现excel打开时默认打开以当前日期命名的工作表?例如:今天是3...
如何用vba实现excel打开时默认打开以当前日期命名的工作表?例如:今天是3月23日，打开文件时自动定位到名称为“23”的工作表。...
如何用vba实现excel打开时默认打开以当前日期命名的工作表?例如:今天是3月23日，打开文件时自动定位到名称为“23”的工作表。
展开
2个回答
展开全部
Private Sub Workbook_Open()
For Each sh In ThisWorkbook.Sheets
If sh.Name *1 = Format(Date, "D")*1 Then
sh.Activate
Exit For
End If
Next
end sub
For Each sh In ThisWorkbook.Sheets
If sh.Name *1 = Format(Date, "D")*1 Then
sh.Activate
Exit For
End If
Next
end sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
