excel中用当天日期命名工作表名vba

最新推荐文章于 2024-05-01 07:58:00 发布

dkink

最新推荐文章于 2024-05-01 07:58:00 发布

阅读量1.2w

点赞数 3

CC 4.0 BY-SA版权

分类专栏：原创

本文链接：https://blog.youkuaiyun.com/dkink/article/details/51540569

原创专栏收录该内容

11 篇文章

订阅专栏

本文介绍如何使用Excel VBA编写脚本，实现每天自动创建一个以当前日期命名的新工作表，并清除指定区域的内容，以方便每天的数据记录。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

excel中经常会用到每天一个工作表的情况，这时写个简单的VBA每天点一下生成新的工作表，可以节省一小会，一年下来省不少时间。

先看我的前一篇文章《excel2007如何增加控件》

http://blog.youkuaiyun.com/dkink/article/details/51539774

增加一个按钮控件

指定宏并编辑，在单击事件中写代码

Sub 按钮4_Click()
' 新建工作表
Dim xx1 As String

Dim xx2 As String


xx1 = Year(Now()) & "-" & Month(Now()) & "-" & Day(Now())                         '将今天的日期存入xx1
xx2 = Sheets(Sheets.Count).Name                                                   '将当前工作表名存入xx2

If xx1 <> xx2 Then                                                                '如果今天日期不等于当前工作表名
Sheets(Sheets.Count).Copy after:=Sheets(Sheets.Count)                             ' 按原有工作表复制新工作表
Sheets(Sheets.Count).Range("B7:H18,B24:H35").ClearContents                        ' 清除工作表中指定内容


Sheets(Sheets.Count).Name = Year(Now()) & "-" & Month(Now()) & "-" & Day(Now())   ' 用时间命名工作表名字

End If


End Sub

//======华丽分割线==============================

好了注意每天只有一个用当天日期做名字的工作表，如果有了则不会发生覆盖。

注意清除工作表中指定的内容，每天都有不同的内容的，这部分要清除的。