標題: [發問] 關於如何讓超連結路徑顯示至他欄呢? [打印本頁]

---

作者: starry1314    時間: 2015-6-9 16:07     標題: 關於如何讓超連結路徑顯示至他欄呢?

Sub 顯示超連結路徑()
On Error Resume Next
For Each C In Sheets("客戶明細").UsedRange
C.Value = C.Hyperlinks(1).Address
Next
End Sub

上面再統一在B欄為超連結,想顯示如H欄 要如何做呢?
目前代碼只是讓此頁的超連結路徑全部顯示而已

---

作者: lpk187    時間: 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

複製代碼

---

作者: starry1314    時間: 2015-6-9 22:51

回復 2# lpk187


    感謝指導~
另一個方法使用之前板上大大提供的指令稍做修改
原版 是在B欄已有值做上連結

1.         .Hyperlinks.Add Anchor:=.Cells(lTargetRow, "B"), _
   
2.                         Address:=ThisWorkbook.FullName, _
   
3.                         SubAddress:=ThisWorkbook.Sheets("客戶明細").Name & "!" & Rows(lSourceRow).Address, _
   
4.                      TextToDisplay:=.Cells(lTargetRow, "b").Text

複製代碼

修改後  只再AO欄空白儲存格貼上路徑~不貼上原始資料的範圍儲存格

1.    .Hyperlinks.Add Anchor:=.Cells(lTargetRow, "AO"), _
   
2.                         Address:=ThisWorkbook.FullName, _
   
3.                         SubAddress:=ThisWorkbook.Sheets("客戶明細").Name & "!" & Rows(lSourceRow).Address, _
   
4.                      TextToDisplay:=.Cells(lTargetRow, "ao").Text

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)