如何批量修改10个工作表名字，修改成功则弹出修改成功，如果没有变动则显示无修改内容

YZC51 · 发表于 2018-8-13 06:53

请参考
Sub RenameWorksheets1()
For i = 3 To 12 'Worksheets.Count
   Worksheets(i).Name = Worksheets(1).Cells(i, 1).Value
   Sheet1.Hyperlinks.Add Cells(i, 2), ThisWorkbook.Path & "\" & ThisWorkbook.Name, Sheet1.Cells(i, 1) & "!A1", , "点击进入表格"
   Application.DisplayAlerts = True
Next
MsgBox "修改完成！"
End Sub

minren118 · 发表于 2018-8-14 11:51

还用这么低版本的Excel，为你难过，工作表的相关快捷操作，我在【Excel催化剂】插件上做了实现，批量创建工作表、重命名工作表、排序工作表等等，可以关注下，有现成的就不必自己重复造轮子了

feel5114 · 发表于 2018-8-16 18:58

minren118 发表于 2018-8-14 11:51
还用这么低版本的Excel，为你难过，工作表的相关快捷操作，我在【Excel催化剂】插件上做了实现，批量创建工 ...

请问你说的【Excel催化剂】在什么地方？

feel5114 · 发表于 2018-8-16 19:06

YZC51 发表于 2018-8-13 06:53
请参考
Sub RenameWorksheets1()
For i = 3 To 12 'Worksheets.Count

请问下，这个修改之后是对的，我一共设置了2列可以修改工作表名字的地方，怎么编写第2列的代码，还有第一列修改后我后面做了个超级链接，那个字体能不能让他不变小

YZC51 · 发表于 2018-8-16 19:21

feel5114 发表于 2018-8-16 19:06
请问下，这个修改之后是对的，我一共设置了2列可以修改工作表名字的地方，怎么编写第2列的代码，还有第一 ...

能做到，没有鲜花哪来动力！

feel5114 · 发表于 2018-8-16 19:24

YZC51 发表于 2018-8-16 19:21
能做到，没有鲜花哪来动力！

请问怎么送鲜花的，我刚来论坛，不怎么会弄

feel5114 · 发表于 2018-8-16 19:27

YZC51 发表于 2018-8-16 19:21
能做到，没有鲜花哪来动力！

已经送花；刚来没知道，，呵呵，，你教教我第2列修改的话要怎么写

feel5114 · 发表于 2018-8-16 19:30

minren118 发表于 2018-8-14 11:51
还用这么低版本的Excel，为你难过，工作表的相关快捷操作，我在【Excel催化剂】插件上做了实现，批量创建工 ...

请问03版的教程有么，我看你那个好像都是高版本的。。。

feel5114 · 发表于 2018-8-16 21:09

YZC51 发表于 2018-8-13 06:53
请参考
Sub RenameWorksheets1()
For i = 3 To 12 'Worksheets.Count

鲜花送了，麻烦教下我，第二排实现修改工作表名字

YZC51 · 发表于 2018-8-16 23:11

feel5114 发表于 2018-8-16 21:09
鲜花送了，麻烦教下我，第二排实现修改工作表名字

谢谢鲜花鼓励，请参考！

批量修改10个工作表名字.rar (23.32 KB, 下载次数: 1)

		自动登录	找回密码
密码			免费注册

[求助] 如何批量修改10个工作表名字，修改成功则弹出修改成功，如果没有变动则显示无修改内容

评分

评分

评分

最新热点 /1