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

dong686

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

最佳答案

月排行榜 / 总排行榜

王谦

2014-3-1 23:06

dong686 发表于 2014-3-1 21:14
譬如：
1.原sheet名是：“第1课” 按下按钮就更改为：“第3课”
2.原sheet名是：“第3课” 按下按钮就 ...

你这个真是说的太笼统了。我就当你只要求第一个sheet，并在此sheet所在的workbook里运行宏了吧！
写的比较死！

Sub text()
Dim sht
sht = ThisWorkbook.Sheets(1).Name
sht = CInt(Mid(sht, 2, Len(sht) - 2)) + 2
ThisWorkbook.Sheets(1).Name = "第" & sht & "课"
End Sub

跳转到最佳答案楼层

王谦

需要被更改的sheet名 是差4 递增的么？都是奇数？

dong686

王谦 发表于 2014-3-1 21:07
需要被更改的sheet名 是差4 递增的么？都是奇数？

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

王谦

dong686 发表于 2014-3-1 21:14
譬如：
1.原sheet名是：“第1课” 按下按钮就更改为：“第3课”
2.原sheet名是：“第3课” 按下按钮就 ...

你这个真是说的太笼统了。我就当你只要求第一个sheet，并在此sheet所在的workbook里运行宏了吧！
写的比较死！

Sub text()
Dim sht
sht = ThisWorkbook.Sheets(1).Name
sht = CInt(Mid(sht, 2, Len(sht) - 2)) + 2
ThisWorkbook.Sheets(1).Name = "第" & sht & "课"
End Sub

dong686

王谦 发表于 2014-3-1 23:06
你这个真是说的太笼统了。我就当你只要求第一个sheet，并在此sheet所在的workbook里运行宏了吧！
写的比 ...

不是要求第一个sheet(1)，而是要求当前的sheet，代码怎样表示？

王谦

dong686 发表于 2014-3-3 22:55
不是要求第一个sheet(1)，而是要求当前的sheet，代码怎样表示？

把thisworkbook.sheets(1).name改为 thisworkbook.activesheet.name 就可以了

dong686

王谦 发表于 2014-3-4 07:10
把thisworkbook.sheets(1).name改为 thisworkbook.activesheet.name 就可以了

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

王谦

dong686 发表于 2014-3-4 20:13
在工作表“第1课”按下按钮“就新建一个名为”第2课“的工作表，在工作表“第2课”按下按钮“就新建一个名 ...

哦！我发现了，只能做到第2个，容我三思~~

王谦

dong686 发表于 2014-3-4 20:13
在工作表“第1课”按下按钮“就新建一个名为”第2课“的工作表，在工作表“第2课”按下按钮“就新建一个名 ...

WQ-王谦.zip (11.27 KB, 下载次数: 3)

2014-3-4 22:43 上传

点击文件名下载附件

这样做能达到，你参考一下吧！

dong686

王谦 发表于 2014-3-4 22:45
这样做能达到，你参考一下吧！

GOOD! 厉害，到达我要的结果！谢谢