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

原创 2016年05月30日 20:04:44

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

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

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

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

相关文章推荐

VBA增加sheet,重名时自动命名

  VBA增加sheet,如何在出现重名时自动命名?如 Sheets.Add   ActiveSheet.Name = "mysheet"如果已经存在名称为“mysheet”的sheet,如何使增加的...

vb6.0改Excel的工作表名

  • 2014年08月17日 23:26
  • 334B
  • 下载

创建日期命名的表名,并转移已完成的数据

/* Object: StoredProcedure [dbo].[CreateTable] Script Date: 2017/6/20 9:58:15 */ SET ANSI_NULLS...
  • zzy5066
  • zzy5066
  • 2017年06月20日 10:07
  • 108

EXCEL中用VBA实现有选择的控制必输

在使用EXCEL作数据模板的时候,经常会碰到有些字段要求必须输入,但EXCEL没有控制必输的有效机制,使用数据有效性只能在编辑状态下检查数据的有效性,效果往往不理想所以,我使用VBA在数据保存和表格关...

EXCEL中用VBA实现有选择的控制必输

在使用EXCEL作数据模板的时候,经常会碰到有些字段要求必须输入,但EXCEL没有控制必输的有效机制,使用数据有效性只能在编辑状态下检查数据的有效性,效果往往不理想所以,我使用VBA在数据保存和表格关...
  • user714
  • user714
  • 2012年06月21日 09:42
  • 1900

vba 表名排序

  • 2012年05月24日 20:07
  • 815B
  • 下载

使用VBA将Excel工作表分割成多个文件

问题描述 有一个表格,具体数据如下图所示。这里需要按城市(即B列数据)对表格进行拆分,拆分出多个以城市名称命名的xlsx文件,每个xlsx文件都只包含当前城市的数据。  相关资料 ...

VBA EXCEL 对象操作 - 新建工作表

From  http://club.excelhome.net/forum.php?mod=viewthread&tid=470603&page=23#pid3118642 新建一个工作...
  • navy2009
  • navy2009
  • 2012年02月28日 10:27
  • 11449

excel2007中VBA的工作原理

到目前为止,VBA是Excel中最复杂的功能,你很容易被它难倒。在这里先简要介绍一下VBA的工作原理:  ●通过在VBA模块表中编写(或录制)代码用VBA执行操作,然后以多种方法中的任意一种来执行宏...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:excel中用当天日期命名工作表名vba
举报原因:
原因补充:

(最多只允许输入30个字)