Office中国论坛/Access中国论坛

标题: 求工作表改名的代码 [打印本页]

作者: ok123.1 时间: 2006-9-21 10:19
标题: 求工作表改名的代码
请教:

工作表sheet1, sheet2 至 sheet10, 用本工作表中 "C2"中的值命名?

如: sheet1 中 "c2" 的值是"一班", 则工作表 sheet1 名也改为 "一班",

sheet2 中 "c2" 的值是" 二班", 则工作表 sheet2 的名也改为 "二班"

先谢谢了

作者: 方漠 时间: 2006-9-21 21:51
Sub ChangeName()

Dim SH As Worksheet

For Each SH In ThisWorkbook.Worksheets
If SH.Name <> SH.Range("C2").Value Then SH.Name = SH.Range("C2").Value
Next

End Sub

作者: ok123.1 时间: 2006-9-21 23:22
谢谢方漠，

代入程序时显示：

运行时错误1004

方法“Name"作用于对象“ _worksheet" 时失败

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)