【技巧1001-18】- 小白可用的完全自动更新的工作表目录

其实前面我们也做过工作表目录的教程，只是那个没有办法自动更新，一旦有新增或者删减不是很方便。

今天我们就来分享 一个小白都可以套用的

技巧18 -全自动更新的工作表目录

不管是新增还是工作表删除，我们来到目录都可以看到目录是最新的
而且可以双击切换到对应的工作表，非常好用，全自动更新！

教程

1、点击开发工具-Visual Basic（或者使用快捷键：ALT+F11）
2、双击对应的工作笔目录
3、复制代码，粘贴进去
代码通用，不用考虑特殊情况的问题，主要注意文件有有一个工作表名称叫目录即可

代码：


'功能：自动生成文件目录'作者：Excel办公实战-小易Private Sub Worksheet_Activate() Columns("A:B").Clear Range("A1:B1") = [{"序号","表名"}] Dim sht As Worksheet, n As Integer n = 1 For Each sht In Worksheets If sht.Name <> "目录" Then n = n + 1 Cells(n, 1) = n - 1 Cells(n, 2) = sht.Name End If Next With Range("a1").CurrentRegion .Borders.LineStyle = 1 .RowHeight = 18 End WithEnd Sub

'功能：双击跳转到对应的工作表'作者：Excel办公实战-小易Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column <> 2 Or Target.Cells.Count <> 1 Then End If Target.Value <> "" Then Cancel = True Worksheets(Target.Value).Select End IfEnd Sub
赞 (0)

相关推荐