excel利用VBA制作包含超鏈接的工作表目錄

Excel利用VBA制作包含超鏈接的工作表目錄

如果Excel工作簿中包含許多工作表，可以在一個工作表中列出所有工作表目錄和相關(guān)說明，以方便在各工作表之間跳轉(zhuǎn)。下面的VBA代碼就可以實現(xiàn)這個功能，可以在某個工作表的第一列中產(chǎn)生其他工作表的目錄列表及其超鏈接，單擊工作表名稱就可以跳轉(zhuǎn)到相應(yīng)的工作表中，并且可以在其他工作表的A1單元格中設(shè)置一個返回目錄的超鏈接，單擊可以返回到包含目錄的工作表中。

按Alt+F11，打開VBA編輯器，在“工程”窗口中雙擊要設(shè)置目錄列表的工作表名稱，在右側(cè)代碼窗口中輸入下面的代碼后運行：

Sub CreateSheetsIndex()Dim wSheet As WorksheetDim i As Longi = 1With Me.Columns(i).ClearContents.Cells(1, 1) = "工作表目錄".Cells(1, 1).Name = "目錄"End WithFor Each wSheet In WorksheetsIf wSheet.Name <> Me.Name Theni = i + 1With wSheet.Range("A1").Name = "工作表" & wSheet.Index.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:="目錄", ScreenTip:= _"跳轉(zhuǎn)到“" & Me.Name & "”工作表", TextToDisplay:="返回目錄"End WithMe.Hyperlinks.Add Anchor:=Me.Cells(i, 1), Address:="", SubAddress:="工作表" & wSheet.Index, _ScreenTip:="跳轉(zhuǎn)到“" & wSheet.Name & "”工作表", TextToDisplay:=wSheet.NameEnd IfNext wSheetEnd Sub

說明：

1.由于上述代碼會在所有工作表的A1單元格輸入鏈接內(nèi)容，所以運行代碼前務(wù)必確保A1單元格為空。

2.如果工作表有密碼保護，請先解除保護。

3.運行代碼創(chuàng)建工作表目錄列表后，如果又新建工作表或修改工作表名稱，請再次運行代碼。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。