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

minren118 · 发表于 2018-8-18 14:28

feel5114 发表于 2018-8-16 18:58
请问你说的【Excel催化剂】在什么地方？

你可以加我QQ或微信：190262897，我给你发，或者自己百度下【Excel催化剂】

minren118 · 发表于 2018-8-18 14:33

feel5114 发表于 2018-8-16 19:30
请问03版的教程有么，我看你那个好像都是高版本的。。。

自己个人电脑用吧，公司电脑不给用高版本的话，没必要和自己过不去，还用15年前的产品，IT软件世界可是一年一大变

feel5114 · 发表于 2018-8-18 17:30

minren118 发表于 2018-8-18 14:33
自己个人电脑用吧，公司电脑不给用高版本的话，没必要和自己过不去，还用15年前的产品，IT软件世界可是一 ...

请问高版本的那个比较好用，高版本是不是都要付费的？

feel5114 · 发表于 2018-8-18 17:32

YZC51 发表于 2018-8-16 23:11
谢谢鲜花鼓励，请参考！

非常感谢，请问能不能给我个注释，，我不吗，明白你写的那些代码是什么意思，有注释的话，我自己好琢磨。。要不然自己学不会

feel5114 · 发表于 2018-8-18 17:37

YZC51 发表于 2018-8-16 23:11
谢谢鲜花鼓励，请参考！

麻烦有空的话，帮我给个注释吧，这样我如果表格下次不够用了，，我自己还可以添加第3第四列

feel5114 · 发表于 2018-8-18 17:56

YZC51 发表于 2018-8-16 23:11
谢谢鲜花鼓励，请参考！

你发给我这个表格写11和12怎么就没有修改的地方了，是不是什么地方不对？

feel5114 · 发表于 2018-8-18 18:35

YZC51 发表于 2018-8-16 23:11
谢谢鲜花鼓励，请参考！

可以给我留个你的QQ么，我加上问你方便些，我想问下你有几句代码表示的意思

YZC51 · 发表于 2018-8-19 06:43

抱歉！是我的疏忽。附件已经修改，请参考！

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

feel5114 · 发表于 2018-8-19 19:10

本帖最后由 feel5114 于 2018-8-19 19:35 编辑

YZC51 发表于 2018-8-19 06:43
抱歉！是我的疏忽。附件已经修改，请参考！

我想问下，如果我想加入个第三列代码这样写的话对不对的

Sub RenameWorksheets3()
For i = 29 To 43 'Worksheets.Count
   Worksheets(i).Name = Sheet1.Cells(i - 28, 7).Value
   Sheet1.Hyperlinks.Add Cells(i - 28, 8), ThisWorkbook.Path & "\" & ThisWorkbook.Name, Sheet1.Cells(i - 28, 7) & "!A1", , "点击进入表格"
   Application.DisplayAlerts = True
Next
With Range("H1:H14").Font
      .Name = "宋体"
      .Size = 12
      .Bold = True
End With
MsgBox "修改完成！"
End Sub

YZC51 · 发表于 2018-8-19 20:54

应该可以的，试试吧！

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

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