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张表~

分享到: