想在Excel VBA 儲存格中加入前後網址?

office

ypyp1015 2016-07-30 01:09:00 ‧ 5482 瀏覽

想用Excel VBA 將儲存格中加入前後網址 Ex. A2數值1 A3數值2 A4數值3...想將A2欄位加入超連結網址 http://gogl.1.com A3欄位加入超連結網址http://gogl.2.com A4欄位加入超連結網址http://gogl.3.com...依此類推用VBA設定整列有數值的儲存格。因不太懂VBA，只會用錄製修改，此點錄製不出故求教，請求好心人解惑，謝謝。

Foster iT邦研究生 1 級 ‧ 2016-07-30 08:37:41 檢舉

又是一個不會標點符號的，先把標點符號學好再來問問題，要刮別人的鬍子之前，先把自己的刮乾淨。

登入發表討論

直播研討會

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

直播中

2 個回答

johnstudy

iT邦新手 5 級 ‧ 2016-07-30 17:16:29

無須使用到VBA

建立A2以下的值

=HYPERLINK("www.goo.1.com",B2)

在建立B2 ~ B4你要的值後

在A2複製公式往下貼，完成

如果你不想被看見B行的數字把它隱藏即可

回應 2
分享
檢舉

johnstudy iT邦新手 5 級 ‧ 2016-07-30 17:21:02 檢舉

抱歉公式改成

=HYPERLINK("www.goo."& B2&".com",B2)

johnstudy iT邦新手 5 級 ‧ 2016-07-30 17:25:24 檢舉

=HYPERLINK("http://www.goo."& B2&".com",B2)

登入發表回應

做工仔人!

iT邦大師 1 級 ‧ 2016-07-30 19:32:04

請參考下列所錄製的巨集.(放到VBA中也可以用)

ActiveCell.FormulaR1C1 = "A2"
Range("A1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.google.com.tw", TextToDisplay:="A2"

Range("B1").Select
ActiveCell.FormulaR1C1 = "A3"
Range("B1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
    "http://tw.yahoo.com/", TextToDisplay:="A3"