关闭

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

1045人阅读 评论(0) 收藏 举报
分类:

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

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

http://blog.csdn.net/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

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

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

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

1
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:148205次
    • 积分:1535
    • 等级:
    • 排名:千里之外
    • 原创:20篇
    • 转载:7篇
    • 译文:1篇
    • 评论:123条
    文章分类
    最新评论