VBA记录工作表插入时间

记录工作表插入时间
平时大家在处理各种账目表时,时不时要插入一张张工作表,今天思路一开,如果能记录每张工作表的插入时间,那就相当于给每张表建立一个出生档案。
代码如下:
 
  1. Private Sub Workbook_NewSheet(ByVal Sh As Object)   
  2. Dim R As Long   
  3. R = Range("A65536").End(xlUp).Row + 1  
  4. If TypeName(Sh) = "Worksheet" Then   
  5. Sheets(1).Cells(R, 1).Value = "工作表插入的时间是" & Now()   
  6. End If   
  7. End Sub  

插入工作表

另外这个记录是从第四张表开始记录的,因为默认有三张工作表!新增第一张表的话属于工作簿中的第四张!上图为效果~我插入了2张表~

分享到:

4 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 山水花匠

    请问 侧边栏 本站推荐是怎么实现设置的呢? 用的同样的主题,求解 谢谢

    1. Kael.Z

      在编辑文章时,下面有个添加自定义栏目!选择添加related,后面的值随便!

      1. 山水花匠

        可是自定义栏目里 没有ralated 只有views 是怎么回事呢?

        1. Kael.Z

          第一次手动添加~

          Notify