我們在工作中常用到一系列報告。它們有一個特點，這個特點就是報告里用到很多數(shù)據(jù)。這時候我們就遇見一種苦惱。如果用PPT呢，又是純展示的工具，如果用word，它又是純文字處理的工具。
而我想要得到一定的文本和數(shù)字混合呈現(xiàn)技術(shù)。那么Excel不失成為你的一種選擇。
需求
我在每個Sheet里面有各自的主題。例如您在做IATF內(nèi)審時候需要統(tǒng)計各自區(qū)域的得分。
我想要知道總體目錄是什么樣，每個部分的篇幅是多少。
能否賦予一個超鏈接快速訪問的實現(xiàn)，這些都是現(xiàn)實需求。
更新的內(nèi)容，能否在目錄里面相應的更新。
實現(xiàn)
在視圖模式里是有分頁預覽按鈕的，它可以快速區(qū)分整個Sheet用了多少頁。這也是我們目錄的制作要素之一。
以2/10我的文章素材作為案例。我共有五個頁面。我需要新建一個Sheet，并統(tǒng)計他們各自用了多少頁。然后再建立超鏈接。
實現(xiàn)代碼
Option ExplicitSub Create_TOC()Dim wbBook As WorkbookDim wsActive As WorksheetDim wsSheet As WorksheetDim lnRow As LongDim lnPages As LongDim lnCount As LongSet wbBook = ActiveWorkbookWith Application .DisplayAlerts = False .ScreenUpdating = FalseEnd With
On Error Resume NextWith wbBook .Worksheets('TOC').Delete .Worksheets.Add Before:=.Worksheets(1)End WithOn Error GoTo 0Set wsActive = wbBook.ActiveSheetWith wsActive .Name = 'TOC' With .Range('A1:B1') .Value = VBA.Array('Table of Contents', 'Sheet # - # of Pages') .Font.Bold = True End WithEnd WithlnRow = 2lnCount = 1
For Each wsSheet In wbBook.Worksheets If wsSheet.Name <> wsActive.Name Then wsSheet.Activate With wsActive .Hyperlinks.Add .Cells(lnRow, 1), '', _ SubAddress:=''' & wsSheet.Name & ''!A1', _ TextToDisplay:=wsSheet.Name lnPages = wsSheet.PageSetup.Pages().Count .Cells(lnRow, 2).Value = ''' & lnCount & '-' & lnPages End With lnRow = lnRow 1 lnCount = lnCount 1 End IfNext wsSheetwsActive.ActivatewsActive.Columns('A:B').EntireColumn.AutoFitWith Application .DisplayAlerts = True .ScreenUpdating = TrueEnd WithEnd Sub
運行視頻：
