作者：乔山办公网日期：
返回目录：excel表格制作
你的一个excel相当于一个本子，那么sheet1、sheet2、sheet3就相当于单独的如果你不在C3中设置函数，是实现不了你想要的功能的。如果设置函数，可以
右击工作表标签zd》查看代码》版粘贴下列代码。权OK
Private Sub Worksheet_Activate()
ActiveSheet.Name = Month(Now()) & "." & Day(Now())
End Sub
sub 改工作表名（）
sheet（1）.name="自定义名字"
……
end sub
给个抄框架，具体代码根据实际修改、增减。
Sub 增加新表()
'On Error Resume Next
Sheets.Add AFTER:=Sheets(ThisWorkbook.Worksheets.Count) '在所有工作表之后插入一个工作表
t = Format(Date, "yy-mm")
ActiveSheet.Name = t '将刚才插入的工作表重命zhidao名为09-10这样的格式
Sheets(t).[B1:B10].Value = Sheets(Format(Application.WorksheetFunction.EoMonth(Date, -1), "yy-mm")).[A1:A10].Value '将新表的B1:B10的值修改为上月表的A1:A10的值
End Sub