返回列表 上一主題 發帖

[發問] 請問超連結儲存格如何抓取?

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2011-5-23 14:28 | 顯示全部帖子
內建函數是無法取得超連結位址字串的
用自定義函數來抽取吧
  1. Function MyLink(Rng As Range) As String
  2. MyLink = Rng.Hyperlinks(1).Address
  3. End Function
複製代碼
MyLink.zip (6.01 KB)
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-5-23 16:10 | 顯示全部帖子
回復 13# 棋語鳥鳴

您誤會囉!
這並不是定義名稱，這是用VBA寫成一個函數來供工作表使用
目的在取得儲存格超連結的連結位址，而非顯示文字
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2011-5-23 21:31 | 顯示全部帖子
回復 15# 棋語鳥鳴


   文字再用HYPERLINK轉成超連結
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2011-5-23 23:22 | 顯示全部帖子
回復 17# 棋語鳥鳴

VLOOKUP是傳回儲存格的值，並非傳回該儲存格這個物件
必須使用INDEX或INDIRECT來傳回該儲存格，才能取出其超連結
搞不懂為何H欄以後用Rng.Hyperlinks(1).Address會出錯
改一下抓工作表全部的超連結，比對儲存格位址再取出
  1. Function MyLink(Rng As Range) As String
  2. Dim Hy As Hyperlink
  3. For Each Hy In Rng.Parent.Hyperlinks
  4.    Set a = Hy.Range
  5.    If a.Address = Rng.Address Then MyLink = Hy.Address: Exit For
  6. Next
  7. End Function
複製代碼
MyLink-TEST.zip (9.71 KB)
學海無涯_不恥下問

TOP

        靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。
返回列表 上一主題