[已解决]工作表自动命名当前日期

A1090A

Sub 对工作表命名()
On Error Resume Next
    Sheets.Add after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Month(Now()) & "-" & Day(Now()) & "(9901)"
    Sheets(Sheets.Count).Name = Month(Now()) & "-" & Day(Now()) & "(9902)"
    Sheets(1).Select
End Sub


能达到对同一日期的区分,大家轻拍

最佳答案

月排行榜 / 总排行榜

Zipall

2011-10-8 21:45

A1090A 发表于 2011-10-8 21:42
如何让新增加工作表的位置始终在从左往右的第2个开始增加呢？？？

Sub test()
    Sheets.Add after:=Sheets(1)
    Sheets(2).Name = Format(Now, "yymmddhhmmss")
End Sub

跳转到最佳答案楼层

Zipall

看不懂
你把新增的工作表重命名了2次,所以9901那行是多余的.

其次那些&&&可以简化下
=format(now,"m-d")&"(9901)"

mxg825

1. Sub 对工作表命名()
   
2. On Error Resume Next
   
3. Dim X&
   
4.     Sheets.Add after:=Sheets(Sheets.Count) '新建一个工作表
   
5.   X = 9901 '区别码
   
6. 100:
   
7.     Sheets(Sheets.Count).Name = Format(Date, "M-D") & "(" & X & ")" '工作表重命名
   
8.     If Err.Number <> 0 Then '是否发生错误
   
9.         Err.Clear '清空错误码
   
10.         X = X + 1 '区别码增1
    
11.         GoTo 100 '返回再次重命名
    
12.     End If
    
13.     Sheets(1).Select
    
14. End Sub
    

复制代码

windimi007

回复 Zipall 的帖子

原来vba中表示当前时间也是用now呀！我原本只知道表示当前日期是用date，猫哥让我又学到一招，o(∩_∩)o 哈哈！{:3212:}

mxg825

回复 windimi007 的帖子

NOW() 返回的日期含时间，
DATE   返回是只是日期！

A1090A

谢谢各位的指点与答复哈

A1090A

回复 Zipall 的帖子

感谢答复和纠正哟

A1090A

如何让新增加工作表的位置始终在从左往右的第2个开始增加呢？？？

Zipall

A1090A 发表于 2011-10-8 21:42
如何让新增加工作表的位置始终在从左往右的第2个开始增加呢？？？

Sub test()
    Sheets.Add after:=Sheets(1)
    Sheets(2).Name = Format(Now, "yymmddhhmmss")
End Sub

Zipall

回复 windimi007 的帖子

恩,date只返回日期时间值的整数部分,now返回的包括小数部分.