標題: 如何做成目錄? [打印本頁]

---

作者: gigi0117    時間: 2011-7-29 17:54     標題: 如何做成目錄?

我有一個檔案,其中有100張sheet,我想增加一張當目錄,直接點選目錄到指定的sheet,請問該怎麼辦?謝謝!

---

作者: play9091    時間: 2011-7-29 18:49

本帖最後由 play9091 於 2011-7-29 18:54 編輯

試試看，下面這個可不可以跑！！！

1. Sub 巨集1()
   
2. '
   
3. ' 巨集1 巨集
   
4. '令I=1
   
5. I = 1
   
6. '迴圈，從1到sheet N
   
7. For N = 1 To Sheets.Count
   
8. '如果I=1的話，加入sheet叫「清單」
   
9.     If I = 1 Then
   
10.     Sheets.Add.Name = "清單"
    
11.     End If
    
12. '取得sheet的名字
    
13.     SN = Sheets(N + 1).Name
    
14. '將取得的名字，寫入cell
    
15.     Cells(I, 1) = SN
    
16. '加上超連結
    
17.     ActiveSheet.Hyperlinks.Add Anchor:=Cells(I, 1), Address:="", SubAddress:= _
    
18.         SN & "!A1", TextToDisplay:=SN
    
19. '把I+1
    
20.     I = I + 1
    
21. Next
    
22. End Sub

複製代碼

---

作者: GBKEE    時間: 2011-7-29 19:50

回復 1# gigi0117
試試看

1. Sub Ex()
   
2.     Dim i As Integer
   
3.     With Sheets.Add(Sheets(1))
   
4.         .Name = "目錄"
   
5.         For i = 2 To Sheets.Count
   
6.           .Hyperlinks.Add Anchor:=.Cells(i - 1, 1), TextToDisplay:=Sheets(i).Name, SubAddress:=Sheets(i).[A1].Address(0, 0, 1, 1, 1), Address:=""
   
7.         Next
   
8.     End With
   
9. End Sub

複製代碼

---

作者: gigi0117    時間: 2011-7-30 11:39

還是不行ㄟ~還是有範本可以參考,謝謝!!

---

作者: GBKEE    時間: 2011-7-30 11:42

回復 4# gigi0117
怎樣不行啊, 那不是範列是什麼?

---

作者: gigi0117    時間: 2011-7-30 11:53

可以了~!!!原來是忘了按執行~謝謝版主!!

---

作者: sammyc    時間: 2011-8-3 11:10

如sheet("目錄") 己存在, 如何可避免執行出錯

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)