EXCel中一个工作簿多个工作表有什么快捷方法修改工作表命名
excel一个工作簿中建立了30个工作表也就是没个表代表一个月的每一天每次建立一个工作簿30张表的时候一个一个的去改它的命名好麻烦请教下谁有快捷的方法吗?指点指点...
excel一个工作簿中建立了30个工作表 也就是没个表代表一个月的每一天每次建立一个工作簿30张表的时候一个一个的去改它的命名 好麻烦 请教下谁有快捷的方法吗? 指点指点
展开
1个回答
展开全部
按Alter + F11,双击thisworkbook,代码窗口里面输入以下代码:
Sub addsh()
On Error Resume Next
Dim I, A, B, C, D, E
A = Year(Date)
B = Month(Date) + 1
D = DateSerial(A, B, 1) - Date
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count), Count:=D - Worksheets.Count
For E = 1 To D
Sheets(E).Name = A & "年" & B - 1 & "月" & E & "日"
Next
Sheets(1).Select
End Sub
以上代码可以实现 按每月实际天数增加工作表(如果你工作薄里面有2个工作表,本月有30天,则增加28个工作表),然后将全部工作表(刚才例子中的30个表)命名为 XXXX年XX月XX日的格式。
如有任何问题,HI我
Sub addsh()
On Error Resume Next
Dim I, A, B, C, D, E
A = Year(Date)
B = Month(Date) + 1
D = DateSerial(A, B, 1) - Date
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count), Count:=D - Worksheets.Count
For E = 1 To D
Sheets(E).Name = A & "年" & B - 1 & "月" & E & "日"
Next
Sheets(1).Select
End Sub
以上代码可以实现 按每月实际天数增加工作表(如果你工作薄里面有2个工作表,本月有30天,则增加28个工作表),然后将全部工作表(刚才例子中的30个表)命名为 XXXX年XX月XX日的格式。
如有任何问题,HI我
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询