返回列表 上一主題 發帖

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

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 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

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
3#
發表於 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
複製代碼

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題