2011年11月24日 星期四

Excel VBA︰自訂函數取得儲存格的超連結


Excel 內建函數可以自動設定儲存格內容為超連結
卻沒有根據儲存格取得超連結的文字
像是下圖這樣,壹週刊是從網頁複製的連結
你必須編輯超連結才有辦法看到連結內容





設計了一個巨集公式,新增聚集,在module1寫下以下內容

Function getlink(I As Integer, J As Integer)
getlink = Cells(I, J).Hyperlinks(1).Address
End Function

使用時的儲存格內容鍵入以下內容,D1就是我們要替換的目標
=getlink(ROW(D1),COLUMN(D1))

我還沒辦法做到以下這樣,真好奇是怎麼做的
=getlink(D1)

------------------------
原來是這樣

Function GETURL(HyperlinkCell As Range)

 GETURL = HyperlinkCell.Hyperlinks(1).Address

End Function

http://www.bohack.com/2009/06/get-the-url-from-a-hyperlink-in-excel/

沒有留言:

張貼留言