Excel全自动超链接（事情表事件目录法），超厉害

亚博2022最新版-首页登录官网

在事情中我们经常遇到在一个事情簿中事情表太多，欠好治理的情况，这个时候我们就会想要是有个目录，而且可以超链接一点就已往就好了。因此以下功效代码孕育而生。Private Sub Worksheet_Activate() On Error Resume Next Sheets("目录").Range("A1") = "目录" k = 1 For Each sh In Sheets If sh.Name <> "目录" Then k = k + 1 Sheets("目录").Cells(k, 1) = sh.Name End If Next Sheets("目录").Range("A:A").EntireColumn.AutoFit Sheets("目录").Range("A:A").EntireColumn.HorizontalAlignment = xlCenterEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) Dim sht As Worksheet On Error Resume Next If Target.Address = "$D$1" Then Call ShowSheet Exit Sub End If If Target.Row < 2 Or Target.Column > 1 Then Exit Sub For Each sht In Worksheets If sht.Name <> "目录" Then sht.Visible = xlSheetVeryHidden Next Sheets(Target.Value).Visible = xlSheetVisible Sheets(Target.Value).SelectEnd SubSub ShowSheet() Dim sh As Worksheet For Each sh In Sheets sh.Visible = -1 NextEnd Sub代码功效解说：财政事情中，你是否遇到焦头烂额不知如何解决的问题呢？目录事情表激活事件，目的提取事情表名。

单元格选择改变事件，也就是我们单击差别的单元格就会触发事件，目的是跳转对应事情表，以及隐藏其他无关的事情表。显示所有事情表代码如用法：事情薄中新建一事情表取名为目录，右键目录事情表单击检察代码复制上面的代码粘贴上去特别提醒注意：事情簿另存为后缀名.xlsm，启用宏。用法如图：当我们选中目录表时，就会自动把所有的事情表名提取到A列。当我们选中对应A列的表名就会跳转到对应的表并自动隐藏其他的表。

当我们新增表，再回到目录表时会自动把新增的事情表名提取到A列中。泉源：猫哥 Excel教程自学平台 在这里相信有许多想要学习会计的同学，大家可以关注小编头条号，下方评论区留言：想要学习，并收藏本文；私信小编：学习即可领取一整套系统的会计学习资料！还可以免费试学会计课程15天！因领取人数太多，不能实时回复，请大家耐心等候。

本文来源：亚博2022最新首页登录-www.langxtx.com