[已解决]help!!!看看这段代码哪里错了，主要是涂红色的句子

qjsu

Sub 工作表重命名()
Dim I
Dim Y
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sh As Worksheet
For Each sh In Sheets
I = sh.Name
IF NOT I LIKE "[汇总,Sheet1]" then
Y = Mid(I, 1, 5)
sh.Name = Y
End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-6 18:28

1. Sub 工作表重命名()
   
2.     Dim I As String
   
3.     Dim Y As String
   
4.     Application.ScreenUpdating = False
   
5.     Application.DisplayAlerts = False
   
6.     Dim sh As Worksheet
   
7.     For Each sh In Sheets
   
8.         I = sh.Name
   
9.         Select Case I
   
10.             Case "汇总", "Sheet1"
    
11.             Case Else
    
12.                 Y = Mid(I, 1, 5)
    
13.                 sh.Name = Y
    
14.         End Select
    
15.     Next
    
16.     Application.ScreenUpdating = True
    
17.     Application.DisplayAlerts = True
    
18. End Sub

复制代码

多工作表时，小心后面重命名失败。

跳转到最佳答案楼层

1032446692

看你还是经常的最佳的人  怎么不知道发帖规则呢
你没有附件  也没有要求  大家都不知道你想做什么 有什么问题

qjsu

1032446692 发表于 2013-6-6 16:22
看你还是经常的最佳的人  怎么不知道发帖规则呢
你没有附件  也没有要求  大家都不知道你想做什么 有什么问 ...

临时有点事，没编辑完出去了一下

hwc2ycy

[charlist] charlist.中的任何单一字符。
这只会匹配单一字符，你可以用SELECT来实现，条理更清楚。

hwc2ycy

1. Sub 工作表重命名()
   
2.     Dim I As String
   
3.     Dim Y As String
   
4.     Application.ScreenUpdating = False
   
5.     Application.DisplayAlerts = False
   
6.     Dim sh As Worksheet
   
7.     For Each sh In Sheets
   
8.         I = sh.Name
   
9.         Select Case I
   
10.             Case "汇总", "Sheet1"
    
11.             Case Else
    
12.                 Y = Mid(I, 1, 5)
    
13.                 sh.Name = Y
    
14.         End Select
    
15.     Next
    
16.     Application.ScreenUpdating = True
    
17.     Application.DisplayAlerts = True
    
18. End Sub

复制代码

多工作表时，小心后面重命名失败。