- 帖子
- 30
- 主題
- 4
- 精華
- 0
- 積分
- 34
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2010
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 新北市
- 註冊時間
- 2013-11-30
- 最後登錄
- 2023-1-12
|
2#
發表於 2014-3-22 09:54
| 只看該作者
回復 1# jhwish
呃，小弟也是新手，不知版大的意思是不是超連結丟入迴圈的意思，以下是小弟的某一個檔案可以做參考- Sub 超連結()
- Dim i As Long
- With Worksheets("Sheet1") '你要選的資料表
- For i = 2 To 152
- On Error Resume Next
- .Cells(i, 4).Hyperlinks.Delete
- On Error GoTo 0
- .Hyperlinks.Add Anchor:=.Cells(i, 4), _
- Address:="LIST\Section" & Left(.Cells(i, 4).Text, 1) & "\" & .Cells(i, 4).Text, _
- TextToDisplay:=.Cells(i, 4).Text '超連結的資料夾及資料路徑, 但我的是文字檔形式, word....應該可以吧....
- Next
- End With
- End Sub
|
|
