Excel 連結vbs

vb excel

chengwin1957 2013-05-10 05:49:51 ‧ 3460 瀏覽

分享至

Excel 某儲存格有網址，但copy進去，沒有連結，一般點儲存格裡任ㄧ個字，再按enter就會自動連結。
這樣的vb要怎麼寫。因為有好幾百個這樣東西。前輩指點ㄧ下。

海綿寶寶 iT邦大神 1 級 ‧ 2013-05-10 07:15:12 檢舉

你的描述我看不懂
是否可以提供檔案供研究

chengwin1957 iT邦新手 1 級 ‧ 2013-05-10 08:07:27 檢舉

我在A1儲存格放個網址比如
http://ithelp.ithome.com.tw/question/10120327?tab=opinion#bottom
因為沒有連結
我要連結在上方顯示格裡的任一位置點一下，按enter後
A1就連結了
從A1到A500都一樣約500個，一個一個做太麻煩了，想用vb做
寫ㄧ個，後面就可照做了。

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2013-05-10 09:55:11

最佳解答

試試看可不可用

&lt;pre class="c" name="code">
Sub Run()
    For i = 1 To 500
        Range("A" & i).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Selection.Value
    Next
End Sub