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

棋語鳥鳴

測試.rar (4.05 KB)

下載次數: 7

2011-5-23 13:07

下載 (13.49 KB)

2011-5-22 14:05

如標題請問超連結儲存格如何抓取?
以上圖來說:c1~c5是有包含超連結的儲存格!
我想要a1=c1但是出來的卻只有值，沒有超連結的內容!
請問要設定何種函數，才會使a1有c12的超連結內容&文字!

補充如夾帶檔案中內容，如何使用VLOOKUP後，使A10有C10的超連結內容!

棋語鳥鳴

回復 18# Hsieh


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

Hsieh

回復 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)

下載次數: 18

2011-5-23 23:22

棋語鳥鳴

回復 16# Hsieh


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

下載次數: 5

2011-5-23 22:16

Hsieh

回復 15# 棋語鳥鳴


   文字再用HYPERLINK轉成超連結

棋語鳥鳴

回復 14# Hsieh


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

Hsieh

回復 13# 棋語鳥鳴

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

棋語鳥鳴

回復 12# Hsieh


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

Hsieh

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

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

複製代碼

MyLink.zip (6.01 KB)

下載次數: 14

2011-5-23 14:28

棋語鳥鳴

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