怎样使用VBA在工作表中建立目录？

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

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

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

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

Private Sub Workbook_Open()

 

    On Error Resume Next

 

    Application.ScreenUpdating=False  '禁止刷屏

 

    Dim XStr, YStr, ZStr

 

    XStr="-"

 

    ZStr=""

 

    For i=1 To Worksheets.Count

 

      If Worksheets(i).Name="工作表目录" Then GoTo add: Exit For

 

    Next

 

    If i > Worksheets.Count Then

 

      Sheets.add

 

      ActiveSheet.Name="工作表目录"

 

    End If

 

    Sheets("工作表目录").Move Before:=Sheets(1)

 

add:

 

    Sheets("工作表目录").Select

 

    With Range("a:b")

 

      .Clear

 

      .NumberFormatLocal="@"

 

      Worksheets(1).Cells(1, 1).Value="编号"

 

      Worksheets(1).Cells(1, 2).Value="目录"

 

      For i=2 To Worksheets.Count

 

          Worksheets(1).Cells(i, 1).Value=i-1

 

          Worksheets(1).Cells(i, 2).Value=Worksheets(i).Name

 

          For j=1 To Len(Worksheets(i).Name)

 

              YStr=Mid(Worksheets(i).Name, j, 1)

 

              If InStr(XStr, YStr) <> 0 Then

 

                  ZStr="'"

 

                  Exit For

 

              End If

       Next

 

          ActiveSheet.Hyperlinks.add Anchor:=Worksheets(1).Cells(i, 2),

 

          Address:="", SubAddress:=ZStr & Worksheets(i).Name & ZStr &

 

          "!A1", TextToDisplay:=Worksheets(i).Name

 

      Next

 

      .HorizontalAlignment=xlCenter '设置目录文字为居中

 

      .VerticalAlignment=xlCenter

 

    End With

 

    Range("a2").Select                       '冻结窗格

 

    ActiveWindow.FreezePanes=True

 

    ActiveWindow.DisplayGridlines=False       '不显示网格线

 

    Application.ScreenUpdating=True

 

End Sub

5、重新启动工作簿，可以看到工作簿已新加了一个名为“工作表目录”的工作表，且已建立目录，单击该目录中任意表名则进入该表