...中可以自动以当月1日到31日来命名31个工作表名称 和 单元格...

发布网友 发布时间：2024-10-24 09:48

我来回答

共4个回答

热心网友 时间：2024-11-06 15:27

'可以自动的添加当月天数张工作表，并且在A1第一个显示工作表名称。
Sub a()
m = DateSerial(Year(Date), Month(Date) + 1, 0) - DateSerial(Year(Date), Month(Date), 0)
For i = 1 To m
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Month(Date) & "." & i
Sheets(Sheets.Count).Cells(1, 1) = Sheets(Sheets.Count).Name
Next
End Sub

热心网友 时间：2024-11-06 15:25

这个只能用vba来改，没有别的什么好办法。

热心网友 时间：2024-11-06 15:29

你把这样改好的表保存为模板，下次就用此模板新建文件，还要搞那么复杂

热心网友 时间：2024-11-06 15:24

工作簿中含有31个工作表
运行EXCEL，工具－－－宏－－－Visual Basic编辑器
进入后，双击“sheet1(sheet1)后，打开了一个窗口
然后将下面的内容复制到新窗口工作区

Sub xx()
For i = 1 To Sheets.Count
Sheets(i).Name = "12." & i
Next
End Sub

最后，将光标放至 End Sub 后，调试－－－－－运行到光标处，实现改名功能。