返回列表 上一主題 發帖

[發問] 關於如何讓超連結路徑顯示至他欄呢?

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2015-6-9 22:21 | 顯示全部帖子
回復 1# starry1314


   若只是顯示路徑的名稱則是下面代碼
  1. For Each c In Sheets("客戶明細").Range("B1:B" & Sheets("客戶明細").Range("B65535").End(xlUp).Row)
  2.     n = Sheets("客戶明細").Cells(Rows.Count, "H").End(xlUp).Row
  3.     If c.Hyperlinks.Count = 0 Then GoTo 100 '如果 C物件沒有連結物則跳過，有連結物作則執行下列程序
  4.     Sheets("客戶明細").Cells(n + 1, "H") = c.Hyperlinks(1).Address
  5.    
  6. 100:
  7. Next
複製代碼

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題