瞿四美的博客复制网址 | 设为主页| 加入收藏

承上篇文章：如何根据文件名中数字变化、自动重命名工作表？

上篇文章公式续：FIND("20",MID(CELL("filename"),FIND("\",CELL("filename"))-(FIND("\[",CELL("filename"))+2))),4)

这里需要用到VBA技术。在“销售清单2009”文件中，把下列代码粘贴到“工具--宏--Visual Basic编辑器”中，然后选择“运行--运行子过程/用户窗体”，看看会发生什么？

Sub shname() '根据年份变化、修改工作表名称
Application.ScreenUpdating = False
On Error Resume Next
    Dim a As Integer, i As Integer, m As Integer, m1 As String, b As String
    a = Sheets.Count
    b = Right(Sheets("Sheet1").Range("A1"), 2)
    If a < 13 Then
        MsgBox "该工作簿中只有" & a - 1 & "个工作表，无法命名12个月。"
        Exit Sub
    End If
    m = 1
    For i = 2 To 13
        If m < 10 Then
            m1 = 0 & m
        Else
            m1 = m
        End If
        Sheets(i).Name = b & m1
        m = m + 1
    Next i
Application.ScreenUpdating = True
End Sub