dong686 发表于 2014-3-1 21:14 ![](static/image/common/back.gif)
譬如:
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