Re: [算表] Excel 製作分頁目錄(VBA)
清掉重建最快
Sub 建立分頁目錄()
Dim Pt As Range
Dim i As Integer
With Sheet1
.Columns("A:A").ClearContents
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 ( )》之銘言：
: 再請教一個問題～
: 建立完分頁目錄之後
: 分頁有可能再增加或刪除
: 如何可以讓目錄自動更新？
: 或是至少重新開啟時它可以再重新建立一次？
: 謝謝～
: ※ 引述《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
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.116.146.144
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章