发布网友 发布时间:2024-10-23 17:58
共1个回答
热心网友 时间:2024-11-12 23:24
好办。
首先录制一个新宏,(可以选个快捷方式 “q” ,一定要是小写的,没有快捷方式也可以。)
然后停止录制,进入VISUAL BASIC编辑器,将下列代码拷贝到这个宏当中去。
Dim i As Integer
For i = 0 To 9
Sheets(i + 1).Select
Sheets(i + 1).Name = i
Next i
For i = 0 To 9
Sheets(i + 1).Select
Sheets(i + 1).Name = Date + i
Next i
这段代码只更改第一个到第10个工作表!!!
下次你需要用时,直接按CTRL+q就可以了。
或者在工作表中建个命令按钮,将上面的代码拷贝到里边也可以。需要用时就点。不过这样容易误操作,呵呵。