如何自动更改工作标签名称？

sunny-xie · 发表于 2007-12-24 17:57:15

请看上图红圈处，比如现有50个工作标签，sheet1,sheet2...sheet50

能否通过宏或者代码，把sheet1更改为A1后，sheet2自动更改为A2.....sheet50更改为A50？

请达人举个例子，谢谢！

pureshadow · 发表于 2007-12-24 21:32:30

Sheets("Sheet1").Name = sheets("sheet1").range("a1")

sunny-xie · 发表于 2007-12-25 09:07:40

Sheets("Sheet1").Name = sheets("sheet1").range("a1")
放那里？
说下如何做，THKS！

tmtony · 发表于 2007-12-25 10:07:29

Dim wk As Workbook
Dim ws As Worksheet
Dim i As Integer

For Each ws In wk.Sheets
i = i + 1
ws.Name = "a" & i
Next

pureshadow · 发表于 2007-12-25 10:10:54

站长就是高啊，赞一个！

tmtony · 发表于 2007-12-25 10:20:57

原帖由 pureshadow 于 2007-12-25 10:10 发表
站长就是高啊，赞一个！

Excel我是班门弄斧

可能还需要设置
set wk=acitveworkbook

sunny-xie · 发表于 2007-12-25 14:06:00

实在没搞懂，请用上传的表举个例子，谢谢！

sunny-xie · 发表于 2007-12-26 10:50:05

斑竹，EXCEL的代码写在那里，工作标签那个代码区？

好象不行，更改了A1，后面没跟着变？

sunny-xie · 发表于 2007-12-27 09:05:12

？

pureshadow · 发表于 2007-12-30 09:41:02

看下附件

帐号		自动登录	找回密码
密码			注册

回复 2# 的帖子

群介绍
主题无相 (随机显示版	同地区群块其他地区)