怎样使用VBA工作表表名排序?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 排序()

 

    Dim sht As Worksheet, sht_names As String, f, x, y, i

 

    sht_names=ActiveSheet.Name

 

    If Sheets.Count < 2 Then Exit Sub

 

    f=Application.InputBox("“0”表示降序," & Chr(10) & "“1”表示升序。",

 

      "排序方式", "1")

 

Application.ScreenUpdating=False

 

If f=Cancel Then Exit Sub

 

For Each sht In Sheets

 

    For i=2 To Sheets.Count

 

      x=UCase(sht.Name)

 

      y=UCase(Sheets(i).Name)

 

      Select Case f

 

      Case Is=0

 

          If x < y Then Sheets(x).Move AFTER:=Sheets(i)

 

      Case Is=1

 

          If x > y Then Sheets(x).Move AFTER:=Sheets(i)

 

      End Select

 

    Next i

 

Next sht

 

Sheets(sht_names).Select

 

Application.ScreenUpdating=True

 

End Sub

5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序弹出选择“排序方式”对话框，等待选择排序方式，如图所示，本例选择升序。