VBA生成各个超链接目录 (带冻结首行)

'使用方法:

' 1、在目前的excel中,新建一个sheet,命名为“目录”或者“某人就是帅”等;
’2、快捷键alt+F11,就打开了VBA编辑界面
’3、把这个文件中所有的内容全部复制到名为“sheet1(目录)”下,可能不是sheet1,重点是复制到名为“目录”的sheet下。
’4、按F5执行程序。

’ps1、office-excle下,直接执行就好了;如果是WPS-excle,记得安装一个大概8M的插件,网上下载,或者找我要。
’ps2、EXCEL保存时,会提示是否需要保存宏模板,保存宏的话,扩展名为变成XSLM,下次启动,代码还在。如果不保存宏,下次子表格sheet增加时,还需要把这个复制进去。




Sub 生成目录()
 
    Dim wsht As Worksheet, k%, wshtname$
 
    Columns(1).ClearContents '
        Columns(2).ClearContents '
        
     Range("a1") = "序号" '第一个单元格写入字符串
    Range("b1") = "目录" '第一个单元格写入字符串
    
 
    k = 1 '赋予参数初值
 
    For Each wsht In Worksheets '找到当前工作簿的每个工作表
        Cells(k + 1, 1) = k
    
            wshtname = wsht.Name
 
        If wshtname <> ActiveSheet.Name Then
 
          k = k + 1
 
          ActiveSheet.Hyperlinks.Add anchor:=Cells(k, 2), Address:="", SubAddress:="'" & wshtname & "'!a1", TextToDisplay:=wshtname
 
        End If
      
   Next
 
 
    Columns("A:A").Select
    Selection.AutoFit
    Columns("B:B").Select
    Selection.AutoFit
    ActiveWindow.Split = False
    ActiveWindow.ScrollRow = 1
 
End Sub

 

上一篇:python-day13


下一篇:IntelliJ IDEA one-line function formatting