excel表太多怎樣建目錄
Ⅰ 怎樣製作excel工作表目錄
1.右鍵單擊工作表左下角的兩個小三角及之間的區域,Excel就會彈出一個類似工作表目錄的界面;單擊界面上的相應表名可以激活對應的工作表。
2.使用相應代碼也可以製作EXCEL工作表目錄。
所使用代碼如下:
Sub ml()
Dim sht AsWorksheet, i&, n$
Columns(1).ClearContents
'清空A列數據
Cells(1, 1)= "目錄"
'第一個單元格寫入字元串"目錄"
i = 1
'將i的初值設置為1.
For Each shtIn Worksheets
'循環當前工作簿的每個工作表
n =sht.Name
If n<> ActiveSheet.Name Then
'如果sht的名稱不是當前工作表的名稱則開始建立超鏈接
i =i 1
'累加i
ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:="", _
SubAddress:=」』」 & n & "』!a1", TextToDisplay:=n
'建超鏈接
End If
Next
End Sub
Ⅱ 在excel工作薄中如何給多個工作表編目錄
使用vba 或宏表函數解決。
以2007版本宏表函數為例,已經盡量清楚明白說明,還看不懂,就自己研究,不要追問,謝謝!
1、定義函數GET.WORKBOOK
開始==》公式==》定義名稱==》名稱我用了 aa ,自己酌情修改==》引用位置輸入:
=GET.WORKBOOK(1)
2、在需要目錄的地方輸入:
=INDEX(aa,ROW(A1))&T(NOW())
然後下拉若干行(數量取決於工作表數量,超過後會出現錯誤代碼)如果工作表數量需要不斷更新/增加,參考為了美觀的公式:
=IFERROR(INDEX(aa,ROW(A1))&T(NOW()),"")
然後下拉即可。
ps:如果定義名稱有問題,請先保存表格,然後再定義名稱!