請問要如何自動在每一個地址上加入Google地圖連結，且字型顏色皆不會變，謝謝您!

1^# 跳轉到 »

發表於 2013-6-7 13:08 | 顯示全部帖子

回復 stillfish00

請問 stillfish00
若我要變更地址位置及數量要如何改程式，我試了好久都未 ...
peter460191 發表於 2013-6-7 12:06

你是指這個嗎？

' 請放置在 "工作表1" 程式區內。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
.Hyperlinks.Add Anchor:=Target, Address:="http://maps.google.com.tw/maps?q=" & Target
.Style = "Normal"
End With
End Sub

複製代碼

靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。