返回列表 上一主題 發帖

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

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欄 要如何做呢?
目前代碼只是讓此頁的超連結路徑全部顯示而已
收藏 分享

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

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

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
返回列表 上一主題