VBA记录工作表插入时间

• VBA • 4 条评论 • •5,609 次查阅
记录工作表插入时间
平时大家在处理各种账目表时，时不时要插入一张张工作表，今天思路一开，如果能记录每张工作表的插入时间，那就相当于给每张表建立一个出生档案。
代码如下：
 
  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