VBA常用小代码：一键生成带超链接的工作表目录

VBA常用小代码：一键生成带超链接的工作表目录

动画中所复制的代码如下：

Sub ml()     Dim sht As Worksheet, i&, shtname$     Columns(1).ClearContents    ‘清空A列数据     Cells(1, 1) = “目录”    ‘第一个单元格写入字符串”目录”     i = 1    ‘将i的初值设置为1.     For Each sht In Worksheets        ‘循环当前工作簿的每个工作表         shtname = sht.Name         If shtname <> ActiveSheet.Name Then        ‘如果sht的名称不是当前工作表的名称则开始在当前工作表建立超链接             i = i + 1            ‘累加i            ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:=””,SubAddress:=”‘” & shtname & “‘!a1”,TextToDisplay:=shtname            ‘建超链接         End If     Next End Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。