如何做成目錄?

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-7-29 19:50 | 顯示全部帖子

回復 1# gigi0117
試試看

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

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-7-30 11:42 | 顯示全部帖子

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

靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。