当前位置
主页 > 新闻中心 > 行业新闻 >
Excel全自动超链接(事情表事件目录法),超厉害
2022-10-13 15:06
本文摘要:在事情中我们经常遇到在一个事情簿中事情表太多,欠好治理的情况,这个时候我们就会想要是有个目录,而且可以超链接一点就已往就好了。因此以下功效代码孕育而生。

yobo体育全站app

在事情中我们经常遇到在一个事情簿中事情表太多,欠好治理的情况,这个时候我们就会想要是有个目录,而且可以超链接一点就已往就好了。因此以下功效代码孕育而生。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代码功效解说:财政事情中,你是否遇到焦头烂额不知如何解决的问题呢?目录事情表激活事件,目的提取事情表名。

yobo体育全站app下载

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

yobo体育全站app

用法如图:当我们选中目录表时,就会自动把所有的事情表名提取到A列。当我们选中对应A列的表名就会跳转到对应的表并自动隐藏其他的表。当我们新增表,再回到目录表时会自动把新增的事情表名提取到A列中。

泉源:猫哥 Excel教程自学平台 在这里相信有许多想要学习会计的同学,大家可以关注小编头条号,下方评论区留言:想要学习,并收藏本文;私信小编:学习即可领取一整套系统的会计学习资料!还可以免费试学会计课程15天!因领取人数太多,不能实时回复,请大家耐心等候。


本文关键词:Excel,全自动,超,链接,事情,表,事件,目录,法,yobo体育全站app下载,在

本文来源:yobo体育全站app下载-www.cqbiyou.com

联系方式

电话:0153-355715513

传真:0755-387323603

邮箱:admin@cqbiyou.com

地址:安徽省滁州市夹江县复达大楼18号