首頁 > 小技巧 > 如何快速產生Exceel的工作表索引頁(使用VBA)

如何快速產生Exceel的工作表索引頁(使用VBA)

2018年11月16日 發表評論 閱讀評論

 

前言

當一個Excel 有很多個工件表時,因為超過下方可以顯示的範圍,就想弄一個索引頁工作表,一個一個弄有點麻煩,所以去找了一下作法,分享給大家,用法很簡單,但至少你要會建立巨集,執行巨集。

 

產生索引頁的VBA

在檢視巨集之中開啟Microsoft Visual Basic for Applications 工具,建立以下的巨集 

Sub ListWorkSheetNamesNewWs()
'
Dim xWs As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
xTitleId = "Index"
Application.Sheets(xTitleId).Delete
Application.Sheets.Add Application.Sheets(1)
Set xWs = Application.ActiveSheet
xWs.Name = xTitleId
For i = 2 To Application.Sheets.Count
    xWs.Range("A" & (i - 1)) = Application.Sheets(i).Name
    xWs.Range("B" & (i - 1)).FormulaR1C1 = "=HYPERLINK(""#'" + Application.Sheets(i).Name + "'!A1"",""CLICK HERE"")"
Next
Application.DisplayAlerts = True
End Sub

 

然後再執行它,這樣你就會產生一頁名稱叫 Index的工作表,而後方有個Click Here 連結,點了就可以自動連結到你這個工作表了,是不是很簡單呢 !

參考資料

我是參考以下網站,弄成我想要的

Be Sociable, Share!
Categories: 小技巧 Tags: ,
  1. 目前尚無任何的評論。
  1. 目前尚無任何 trackbacks 和 pingbacks。

*