创建索引页

1 Star2 Stars3 Stars4 Stars5 Stars (您认为本文值几颗星)
Loading ... Loading ...

程序功能： 在当前工作表(作为索引页)中创建所有其它工作表的链接，并在各个工作表中创建对索引页的链接。
程序用途： 为工作簿创建一个索引页后，可以在该索引页中方便地定位到指定的工作表。并且在每个工作表中有返回索引页的链接，可以方便地返回到索引页中。
程序代码：
Sub IndexIt()
    Dim Ws As Worksheet, WsInd As Worksheet, lStartRow%, lStartCol, sBackRange As String
    
    sBackRange = “A1″ ‘<返回到索引页>链接的位置,可根据需要修改
    
    lStartRow = Selection.Row
    lStartCol = Selection.Column
    
    Set WsInd = ActiveSheet
    
    ‘添加链接
    For Each Ws In Worksheets
        If Ws.Name <> WsInd.Name Then
            WsInd.Hyperlinks.Add WsInd.Cells(lStartRow, lStartCol), “”, “‘” & Ws.Name & “‘!A1″
            WsInd.Cells(lStartRow, lStartCol).Value = Ws.Name
            lStartRow = lStartRow + 1
            
            ‘添加返回索引的链接
            Ws.Hyperlinks.Add Ws.Range(sBackRange), “”, “‘” & WsInd.Name & “‘” & “!A1″
            Ws.Range(sBackRange).Value = “返回到索引”
        End If
    Next Ws
    
    WsInd.Activate
End Sub

程序分析：程序中使用了Selection来表明当前所选单元格，其Row属性和Column属性返回当前单元格所在的行列号。Hyperlinks属性返回Hyperlinks集合，使用Add方法从工作表的当前单元格开始添加新的链接。
程序说明：正如程序中所添加的注释，sBackRange 代表<返回到索引页>链接的位置，可根据需要修改要放置该链接的位置。此外，还可以根据需要是否显示添加<返回到索引>的链接。
示例下载：http://www.drexcel.cn/article.asp?id=33

评论 (RSS)  |  引用

提示:您可以在评论中使用HTML标签,且任何与HTML标签相同的符号都会被理解为HTML标签并以相应的格式显示.如果您的评论中有代码,可以使用相应的标签,例如,如果有VB或VBA代码,则可以使用[vb]标签,即[vb]放置的代码[/vb],这样会很清晰地显示代码.

发表评论