Re: [算表] Excel 製作分頁目錄(VBA)
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.116.146.144
推
11/06 15:47, , 1F
11/06 15:47, 1F
討論串 (同標題文章)
完整討論串 (本文為第 1 之 2 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章