Re: [算表] Excel 製作分頁目錄

看板Office作者smallpudding ( )時間15年前 (2010/11/06 16:08)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

再請教一個問題～建立完分頁目錄之後分頁有可能再增加或刪除如何可以讓目錄自動更新？或是至少重新開啟時它可以再重新建立一次？謝謝～ ※ 引述《windknife18 (windknife18)》之銘言： : Sub 建立分頁目錄() : Dim Pt As Range : Dim i As Integer : With Sheet1 : Set Pt = .Range("a1") : For i = 2 To ThisWorkbook.Worksheets.Count : .Hyperlinks.Add Anchor:=Pt, Address:="", SubAddress:="'" & _ : Worksheets(i).Name & "'!A1", TextToDisplay:=Worksheets(i).Name : Set Pt = Pt.Offset(1, 0) : Next i : End With : End Sub : ※ 引述《smallpudding ( )》之銘言： : : 軟體: Excel : : 版本: 2007 : : 我在網路上找到網友分享的製作分頁目錄的code（在下面） : : 測試結果ok 但是我還有兩個疑問想請教 : : 第一個 : : 如果我的分頁名稱中含有括號的話超連結就會失敗 : : ex. 小叮噹(大雄) : : 點下去之後電腦會告訴我參照無效 : : 要如何修改code呢？ : : 第二個 : : 要如何更改目錄上顯示出來的文字？ : : 如果我的分頁名稱是「小叮噹」顯示的文字就會是「小叮噹!A1」 : : 我不想要出現"!A1" >"< : : 本身有學過程式但是沒有碰過Excel用的程式（VBA?） : : 還請板友們多多指教謝謝～ : : ～～～code～～～ : : Sub 建立分頁目錄() : : Dim Pt As Range : : Dim i As Integer : : With Sheet1 : : Set Pt = .Range("a1") : : For i = 2 To ThisWorkbook.Worksheets.Count : : .Hyperlinks.Add Anchor:=Pt, Address:="", SubAddress:=Worksheets(i).Name & : : "!A1" : : Set Pt = Pt.Offset(1, 0) : : Next i : : End With : : End Sub : : 來源： http://zhidao.baidu.com/question/50888811.html?fr=qrl&cid=864&index=2 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 122.127.32.146