- 帖子
- 12
- 主題
- 0
- 精華
- 0
- 積分
- 108
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 註冊時間
- 2010-5-23
- 最後登錄
- 2020-11-16
|
2#
發表於 2012-2-14 20:43
| 只看該作者
For I = 2 To Sheets.Count
ActiveSheet.Hyperlinks.Add Anchor:=Range("a" & I), Address:="", SubAddress:= _
Worksheets(I).Name & "!A1", TextToDisplay:=Sheets(I).Name
Next |
|