[已解决]如何修改？

qjsu

Sub 按钮1_Click()
Dim i As Integer
Dim y As Integer
Dim sh As Worksheet
For Each sh In ThisWorkbook
i = sh.Name
y = Mid(i, 5)
sh.Name = y
Next
End Sub

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-6-3 20:37

Sub 按钮1_Click()
Dim i As String
Dim y As String
Dim sh As Worksheet
For Each sh In Sheets
i = sh.Name
y = Mid(i, 5)
sh.Name = y
Next
End Sub

跳转到最佳答案楼层

ligh1298

Sub 按钮1_Click()
Dim i As String
Dim y As String
Dim sh As Worksheet
For Each sh In Sheets
i = sh.Name
y = Mid(i, 5)
sh.Name = y
Next
End Sub

lyf7276

MId函数少个参数吧，这个函数应该有三个参数