VBA代码：创建索引工作表

excelperfect
标签：VBA有时候，我们的工作簿中包含有太多的工作表，此时，如果创建一个导航工作表，其中列出了工作簿中所有工作表名并链接到相应的工作表，这样就会很方便。下面的代码将创建一个名为“索引”的工作表，在该工作表的列A中列出工作簿中除该工作表外的所有工作表名称并链接到相应的工作表：Sub CreateIndexSheet() Dim ws As Worksheet Dim i As Long i = 1 Application.ScreenUpdating = False Application.DisplayAlerts = False '创建索引工作表. '如果该工作表已经存在,则清空其内容. On Error Resume Next Set ws = Worksheets('索引') If Err.Number = 0 Then Worksheets('索引').ClearContents Else On Error GoTo 0 Worksheets.Add(Before:=Worksheets(1)).Name = '索引' End If Worksheets('索引').Activate Range('A1') = '索引' Range('A1').Font.Bold = True Range('A1').Font.Size = 20 For Each ws In Worksheets If ws.Name   '索引' Then i = i + 1 ws.Hyperlinks.Add Anchor:=Cells(i,1), Address:='', SubAddress:='''   ws.Name  ''!A1', TextToDisplay:=ws.Name End If Next ws Worksheets('索引').Columns(1).AutoFit Application.ScreenUpdating = True Application.DisplayAlerts = TrueEnd Sub在示例工作簿中运行代码后的结果如下图1所示。
本站是提供个人知识管理的网络存储空间，所有内容均由用户发布，不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息，谨防诈骗。如发现有害或侵权内容，请点击一键举报。