作者：乔山办公网日期：
返回目录：excel表格制作
Dim i, j, k
'当日zd版
i = UCase(Format(Now, "mmmddyyyy") & "N")
Sheet1.Name = i
'上一权日
j = UCase(Format(DateAdd("d", -1, Now), "mmmddyyyy") & "N")
Sheet1.Name = j
1、一个新zhidao建的excel工作簿默认有三个工作表。
2、将鼠标移到sheet1标签上，双击鼠标左键，sheet1标签黑色背景显示，处于可以编辑状态。内
3、在sheet1输入"示例"替换旧标签"sheet1"，回车，完成重命名。
4、将鼠标移到"示例"标签上，右击鼠标，出现如下对话框，点选"索引标签颜色"。
5、在次级菜单中，点选蓝色。
6、如下图，工作表"示例"标签已容改为蓝色背景。
1、如下图所示，抄我想将桌面上第一章中的每个工作簿名称放置到工作表中。
2、新建一个工作簿，将其命名为“第一章目录”，按alt+f11组合键，打开宏界面。
3、在VBA中，单击插入按钮，点击插入菜单下的模块，即可新建模块，系统默认为模块1，当然也可以根据需要重命名。
4、使用do~~loop循环语句，在VBA中输入如下图所示代码：
5、返回名为“第一章目录”的百工作簿中，按alt+f8组合键，弹出宏对话框。
6、点击宏对话框中的执行按钮，宏对话框自动关闭，代码自动执行，即第一章中的每个文件夹名称全部显示在工度作表sheet1中。最后根据自己的需要调整格式。
Sub rename
myDate = Format(Date, "[$-409]dd-mmm-yy;@") '得到美式copy的日百期度格式
mymonth = Split(myDate, "-") 'split此日期格式，知找到当前的月份道的英语简写
myName = UCase(mymonth(1)) & UCase(mymonth(0)) & Year(Date) & "N" '你需要的格式
Sheets(1).Name = myName
End Sub