返回列表 上一主題 發帖

[發問] 用EXCEL匯集各檔案

wl02353427

帖子
30 
主題
4 
精華
0 
積分
34 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
來自
新北市 
註冊時間
2013-11-30 
最後登錄
2023-1-12 
1# 跳轉到 »
發表於 2013-12-8 23:45 | 顯示全部帖子
回復 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)<<<都沒有顯示...
初新者~指教囉~

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題