請問超連結儲存格如何抓取? - Excelㄧ般區

棋語鳥鳴

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2025-5-20

11^# 跳轉到 »

發表於 2011-5-23 14:03 | 只看該作者

這個好像不是我要的!想要的是可加上VLOOKUP去抓取!但是抓取後的值，也要有那個值得超連結內容!不過還是謝謝您的回覆!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

12^#

發表於 2011-5-23 14:28 | 只看該作者

內建函數是無法取得超連結位址字串的
用自定義函數來抽取吧

Function MyLink(Rng As Range) As String
MyLink = Rng.Hyperlinks(1).Address
End Function

複製代碼

MyLink.zip (6.01 KB)

學海無涯_不恥下問

TOP

棋語鳥鳴

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2025-5-20

13^#

發表於 2011-5-23 15:27 | 只看該作者

回復 12# Hsieh

原來需要用到定義名稱!難怪我依直無法設成功!感謝您的回覆!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

14^#

發表於 2011-5-23 16:10 | 只看該作者

回復 13# 棋語鳥鳴

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

學海無涯_不恥下問

TOP

棋語鳥鳴

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2025-5-20

15^#

發表於 2011-5-23 21:29 | 只看該作者

回復 14# Hsieh

後來有發覺不是定義名稱了!不過好像還是不能加入vlookup去抓取那一格個超連結!出來還是只有文字，沒有連結= =

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

16^#

發表於 2011-5-23 21:31 | 只看該作者

回復 15# 棋語鳥鳴

文字再用HYPERLINK轉成超連結

學海無涯_不恥下問

TOP

棋語鳥鳴

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2025-5-20

17^#

發表於 2011-5-23 22:17 | 只看該作者

回復 16# Hsieh

我還是用不出來!不知哪裡出了問題!目前我只能將連結部分文字改成收尋出來的文字!但是連結那個欄位我一改!會出現錯誤!請大大指點!!

MyLink-TEST.rar (8.23 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

18^#

發表於 2011-5-23 23:22 | 只看該作者

回復 17# 棋語鳥鳴

VLOOKUP是傳回儲存格的值，並非傳回該儲存格這個物件
必須使用INDEX或INDIRECT來傳回該儲存格，才能取出其超連結
搞不懂為何H欄以後用Rng.Hyperlinks(1).Address會出錯
改一下抓工作表全部的超連結，比對儲存格位址再取出

Function MyLink(Rng As Range) As String
Dim Hy As Hyperlink
For Each Hy In Rng.Parent.Hyperlinks
Set a = Hy.Range
If a.Address = Rng.Address Then MyLink = Hy.Address: Exit For
Next
End Function

複製代碼

MyLink-TEST.zip (9.71 KB)

學海無涯_不恥下問

TOP

棋語鳥鳴

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2025-5-20

19^#

發表於 2011-5-24 06:47 | 只看該作者

回復 18# Hsieh

這次就明白ㄌ!謝謝您不辭辛勞的回覆!

TOP

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]