在07版excel表格中如何自动生成自定义表格名称？
发布网友
发布时间：2022-04-21 07:34
共1个回答
热心网友
时间：2022-06-18 18:04
同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub
crbg()
Dim
i,
xMon
As
Integer
xMon
=
InputBox("请输入月份，如2（表示2月），12（表示12月）等",
"Hi")
For
i
=
1
To
31
Sheets.Add
after:=Sheets(Sheets.Count)
ActiveSheet.Name
=
xMon
&
"月"
&
i
&
"日"
Next
End
Sub
直接按F5运行此宏，输入月份，插入31张工作表，都是某月某日的名字。
