標題: [發問] VBA 超連結疑問 [打印本頁]

---

作者: Michelle-W    時間: 2016-6-27 17:20     標題: VBA 超連結疑問

各位前輩好

想請教一下，如果儲存格裡面已經有網址了
如何撰寫可以一次全部變成超連結的方法?(資料大概有100多筆)
我知道可以在隔壁欄貼上=hyperlink(A2)的方法往下拉，會變成超連結
但我還是想要學習一下，有沒有程式的撰寫方法

感謝~

[attach]24570[/attach]

---

作者: Kubi    時間: 2016-6-28 20:02

回復 1# Michelle-W
試看看。

1. Sub test()
   
2.     Dim cell As Range
   
3.     For i = 2 To [A65536].End(3).Row
   
4.         Set cell = Cells(i, 1)
   
5.         ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=Cells(i, 2).Value, TextToDisplay:=cell.Value
   
6.     Next i
   
7. End Sub

複製代碼

---

作者: Michelle-W    時間: 2016-6-29 15:47

回復 2# Kubi


真的可以耶!! 原來可以這樣寫~
非常感謝您~ ^^

---

作者: c_c_lai    時間: 2016-6-29 19:19

回復 1# Michelle-W
[attach]24590[/attach]

---

作者: Michelle-W    時間: 2016-6-30 17:19

回復 4# c_c_lai


非常謝謝您~~
方法一跟二我都知道
只是想學習看看VBA的寫法
因為身旁沒有人會，只好自己從簡單案例開始著手練習
謝謝^^

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)