Office中国论坛/Access中国论坛

标题: 如何自动更改工作标签名称？ [打印本页]

作者: sunny-xie 时间: 2007-12-24 17:57
标题: 如何自动更改工作标签名称？
[attach]27436[/attach]

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

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

请达人举个例子，谢谢！

作者: pureshadow 时间: 2007-12-24 21:32
Sheets("Sheet1").Name = sheets("sheet1").range("a1")

作者: sunny-xie 时间: 2007-12-25 09:07
标题: 回复 2# 的帖子
Sheets("Sheet1").Name = sheets("sheet1").range("a1")
放那里？
说下如何做，THKS！

作者: tmtony 时间: 2007-12-25 10:07
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
站长就是高啊，赞一个！

作者: tmtony 时间: 2007-12-25 10:20

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

Excel我是班门弄斧

可能还需要设置
set wk=acitveworkbook

作者: sunny-xie 时间: 2007-12-25 14:06
[attach]27447[/attach]

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

作者: sunny-xie 时间: 2007-12-26 10:50
斑竹，EXCEL的代码写在那里，工作标签那个代码区？

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

作者: sunny-xie 时间: 2007-12-27 09:05
[attach]27499[/attach]

？

作者: pureshadow 时间: 2007-12-30 09:41
看下附件

作者: tmtony 时间: 2007-12-30 09:59
呵呵, 照收, 免得再写了

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