- 帖子
- 30
- 主題
- 4
- 精華
- 0
- 積分
- 34
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2010
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 新北市
- 註冊時間
- 2013-11-30
- 最後登錄
- 2023-1-12
|
回復 1# li_hsien
應該是可以的，只是為什麼我一直失敗...:'(
有前輩可以幫忙一下嗎 ....
 example.rar (17.94 KB)
Dim i As Long
With Worksheets("工作表1")
For i = 1 To 4
On Error Resume Next
.Cells(i, 1).Hyperlinks.Delete
On Error GoTo 0
.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="EXAMPLE" & "\" & Left(Cells(i).Text, 11), TextToDisplay:=Left(.Cells(i, 1).Text, 1)
為什麼後面>>>Left(Cells(i).Text, 11)<<<都沒有顯示... |
|
發表於 2013-12-8 23:45
| 