Hero Think~用手摀住我的嘴

前言

當一個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 連結，點了就可以自動連結到你這個工作表了，是不是很簡單呢 !

參考資料

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

• https://www.extendoffice.com/documents/excel/572-excel-list-worksheet-names.html
• https://stackoverflow.com/questions/9813488/excel-vba-create-hyperlink-to-another-sheet

這幾年工作已經少不了雙螢幕，對於寫程式來講，或許雙螢幕的功效不太大
但對於寫文件來說，雙螢幕是有增進工作效率的，因為常常要核對文件，或是參考文件的

參考資料:http://social.technet.microsoft.com/forums/zh-TW/officezhcht/thread/5312d620-8497-4341-a3f7-a1f5d88cfb6b

剛好有Excel 行列互換的需要 所以找了一下 
發現真的有這功能(哈~真不錯)

不過在使用上有一小小要注意的事項就是要行數及欄數是一樣的才能執行

相關來源:http://office.microsoft.com/en-us/excel/HP052031381033.aspx