将工作薄中的全部N张工作表都在sheet1中建上链接

最新推荐文章于 2022-02-25 21:57:21 发布

原创最新推荐文章于 2022-02-25 21:57:21 发布 · 2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#工作 #c

VBA 专栏收录该内容

6 篇文章

订阅专栏

本文介绍了一个Excel VBA宏，该宏可以实现在Sheet1中为工作簿内的每一张工作表创建链接。通过简单的代码实现自动化操作，极大地提高了工作效率。

'**********************************************************************************
'*   函数名称：AddLnk
'*   功    能：将工作薄中的全部N张工作表都在sheet1中建上链接
'*
'*   入口参数：wsWork As Worksheet(sheet1)
'*   出口参数：无
'*
'*   返回值：无
'************************************************************************************
Sub AddLnk(wsWork As Worksheet)
    Dim Pt As Range
    Dim i As Long
'    Dim wsWork As Worksheet
'    Set wsWork = ThisWorkbook.Sheets("功能主页")

    With wsWork
        Set Pt = .Range("A14")
        For i = 2 To ThisWorkbook.Worksheets.Count
            Pt.FormulaR1C1 = Worksheets(i).Name
            .Hyperlinks.Add Anchor:=Pt, Address:="", SubAddress:=(Worksheets(i).Name & "!A1")
            Set Pt = Pt.Offset(1, 0)
        Next i
    End With
End Sub