办公软件VBA学习（生成目录）

同一个WorkBook 中生成一个目录代码

Option Explicit

Private Sub CommandButton1_Click()
    ' 清空之前的数据
    Rows("2:65536").ClearContents
    Dim sht As Worksheet, irow As Integer
    irow = 2
    For Each sht In Worksheets
        Cells(irow, "A").Value = irow - 1
        ' 添加锚点
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(irow, "B"), Address:="", SubAddress:="'" & sht.Name & "'!A1", TextToDisplay:=sht.Name
        irow = irow + 1
    Next

End Sub

image.png

Excel 中使用 ALT + F11 打开编辑窗口
插入一个窗体 ： 插入》用户窗体
打开的窗体 拖入一个按钮 双击按钮编辑代码
F5 执行 F8 debug

image.png

在活动sheet中就会生成目录