[發問] VBA 超連結疑問

Michelle-W

各位前輩好

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

感謝~

超連結.rar (6.24 KB)

下載次數: 4

2016-6-27 17:19

Kubi

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

回復 2# Kubi


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

c_c_lai

回復 1# Michelle-W

下載 (119.29 KB)

2016-6-29 19:19

Michelle-W

回復 4# c_c_lai


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