[已解决]如何用宏代码更改工作表名称？如下

dong686

如何用宏代码将工作表名称“Sheet1”改为“Sheet3”改为“Sheet5”改为“Sheet7”改为“Sheet9”。。。。。。按一次按钮就递增2
宏代码是怎么表示？

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-1 22:15

1. Sub Macro1()
   
2. Dim w, x%, y%
   
3. x = Sheets.Count
   
4. ReDim w(1 To x)
   
5. For i = 1 To x
   
6.     w(i) = Val(Mid(Sheets(i).Name, 2))
   
7. Next
   
8. For i = 1 To x
   
9.     y = Application.Large(w, i)
   
10.     Sheets("第" & y & "课").Name = "第" & y + 2 & "课"
    
11. Next
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

我心飞翔410

最好 弄个附件传上来 你这个有重复的 还是 什么情况

dong686

我心飞翔410 发表于 2014-3-1 21:03
最好 弄个附件传上来 你这个有重复的 还是 什么情况

譬如：
1.原sheet名是：“第1课” 按下按钮就更改为：“第3课”
2.原sheet名是：“第3课” 按下按钮就更改为：“第5课”
3.原sheet名是：“第5课” 按下按钮就更改为：“第7课”
求宏代码？

风林火山

1. Sub test() '在工作薄只有一个工作表的情况下
   
2.     ActiveSheet.Name = "sheet" & (Replace(ActiveSheet.Name, "sheet", "") * 1 + 2)
   
3. End Sub
   

复制代码

dong686

风林火山 发表于 2014-3-1 21:18

谢谢！
但是不可以，提示错误。我是Excel2003

风林火山

dong686 发表于 2014-3-1 21:37
谢谢！
但是不可以，提示错误。我是Excel2003

03我没有，你把代码改成这样试试
ActiveSheet.Name = "sheet" & (VBA.Replace(ActiveSheet.Name, "sheet", "") * 1 + 2)

dsmch

1. Sub Macro1()
   
2. Dim w, x%, y%
   
3. x = Sheets.Count
   
4. ReDim w(1 To x)
   
5. For i = 1 To x
   
6.     w(i) = Val(Mid(Sheets(i).Name, 2))
   
7. Next
   
8. For i = 1 To x
   
9.     y = Application.Large(w, i)
   
10.     Sheets("第" & y & "课").Name = "第" & y + 2 & "课"
    
11. Next
    
12. End Sub
    

复制代码

dsmch

………………

王谦

风林火山 发表于 2014-3-1 21:18

您好！请问
乘以1是可以改变数据类型么？
如果不是，可以告诉我目的么？

dong686

dsmch 发表于 2014-3-1 22:16
………………

目的：
在工作表“第1课”按下按钮“就新建一个名为”第2课“的工作表，在工作表“第2课”按下按钮“就新建一个名为”第3课“的工作表，在工作表“第3课”按下按钮“就新建一个名为”第4课“的工作表。。。。。。
如何做到？