战国无双42中文补丁:excel工作表重命名的问题

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/28 02:17:53
现在我的一个excel表格中有多个工作表,现在我想把它们按1,2,3...重命名一下,有哪位知道告诉小弟一声,先谢谢了!
请问三楼的,我按照你的方法,运行后弹出来了个窗口,让我输入宏名称,该怎么办?

如果要改的表很多的话,给你个高级办法:
[工具]->[宏]->VB编辑器->点击左侧ThisWorkbook对象
->然后在右侧输入:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sheets("Sheet7").Name = "Sheet1"
Sheets("Sheet6").Name = "Sheet2"
End Sub
在切换Sheet时,就可以批量改名.

你可能通过[宏]来执行了.不用这样,我们的代码写在ThisWorkbook对象的SheetChange事件里,只要你从一个表进到另一个表就会执行这个事件的过程,就会自动改名.

抱歉,我记错了,请把第1行的Workbook_SheetChange改为Workbook_SheetSelectionChange

注意改过1次名字后,因为找不到原来的名字,所以再执行这个过程就会报错,删掉这个过程就行了.

你查以在工作表标签得点击鼠标左键两下(不是双击),原名称处于被选中状态,可以改名了!!