- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 91
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-4-19
              
|
本帖最後由 Hsieh 於 2012-5-25 16:32 編輯
回復 3# VANESSA
你應該是要做超連結吧，這樣也要返回目錄的操作
- Private Sub Worksheet_Activate()
- Dim A As Range, Sh As Worksheet
- Columns("A:A").Clear
- r = 1
- For Each Sh In Sheets
- If Sh.Name <> Me.Name Then
- Set A = Cells(r, 1)
- Me.Hyperlinks.Add Anchor:=A, Address:="", SubAddress:= _
- "'" & Sh.Name & "'!A1", TextToDisplay:=Sh.Name
- Sh.Hyperlinks.Add Anchor:=Sh.[A1], Address:="", SubAddress:= _
- "'目錄'!A1", TextToDisplay:="返回目錄"
- r = r + 1
- End If
- Next
- End Sub
|
|
發表於 2012-5-25 16:24
| 