返回列表 上一主題 發帖

[發問] VBA 超連結疑問

[發問] VBA 超連結疑問

各位前輩好

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

感謝~

超連結.rar (6.24 KB)

回復 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
複製代碼

TOP

回復 2# Kubi


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

TOP

回復 1# Michelle-W
A1.png
2016-6-29 19:19

TOP

回復 4# c_c_lai


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

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題