學(xué)習(xí)Excel技術(shù)，關(guān)注微信公眾號(hào)：

excelperfect

在工作簿中有許多工作表時(shí)，我們可以創(chuàng)建一個(gè)單獨(dú)的工作表當(dāng)作索引頁(yè)，在其中創(chuàng)建到每個(gè)工作表的鏈接，就像目錄一樣，不僅方便查看工作簿中的工作表名稱，而且單擊時(shí)可以直接到達(dá)指定的工作簿。同時(shí)，在每個(gè)工作表中創(chuàng)建一個(gè)回到索引頁(yè)的鏈接。使用一小段VBA代碼就能實(shí)現(xiàn)。

功能

在當(dāng)前工作表(作為索引頁(yè))中創(chuàng)建所有其它工作表的鏈接，并在各個(gè)工作表中創(chuàng)建對(duì)索引頁(yè)的鏈接。

用途

為工作簿創(chuàng)建一個(gè)索引頁(yè)后，可以在該索引頁(yè)中方便地定位到指定的工作表。并且在每個(gè)工作表中有返回索引頁(yè)的鏈接，可以方便地返回到索引頁(yè)中。

程序代碼

Sub IndexIt()Dim Ws As WorksheetDim WsInd As WorksheetDim lStartRow As LongDim lStartCol As LongDim sBackRange As String sBackRange ="A1" '鏈接的位置,可根據(jù)需要修改 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.AddWs.Range(sBackRange), "", "'" & WsInd.Name &"'" & "!A1" Ws.Range(sBackRange).Value = "返回到索引" End If Next Ws WsInd.ActivateEnd Sub

程序分析

程序中使用了Selection來(lái)表明當(dāng)前所選單元格，其Row屬性和Column屬性返回當(dāng)前單元格所在的行列號(hào)。Hyperlinks屬性返回Hyperlinks集合，使用Add方法從工作表的當(dāng)前單元格開始添加新的鏈接。

程序說(shuō)明

正如程序中所添加的注釋，sBackRange 代表<返回到索引頁(yè)>鏈接的位置，可根據(jù)需要修改要放置該鏈接的位置。此外，還可以根據(jù)需要是否顯示添加<返回到索引>的鏈接。

歡迎在下面留言，完善本文內(nèi)容，讓更多的人學(xué)到更完美的知識(shí)。

歡迎到知識(shí)星球：完美Excel社群，進(jìn)行技術(shù)交流和提問(wèn)，獲取更多電子資料。

總結(jié)

以上是生活随笔為你收集整理的其中一个页签慢_VBA实战技巧15：创建索引页的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。