stillfish00

回復 9# peter460191

隨儲存格內的地址變動，而地圖超連結也立即跟著變動嗎?

這樣就是和5#一樣，寫在 Change 事件中，
稍微改了一下，若還是不行請上傳附件。

1. '    請放置在 "工作表1" 程式區內。
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Dim x, addrChange
   
4.    
   
5.     Application.EnableEvents = False
   
6.     Application.ScreenUpdating = False
   
7.    
   
8.     Set addrChange = Intersect(Target, Range("A2:A10"))
   
9.     If Not addrChange Is Nothing Then
   
10.         For Each x In addrChange
    
11.             If x.Value <> "" Then
    
12.                 Hyperlinks.Add Anchor:=x, Address:="http://maps.google.com.tw/maps?q=" & x.Value
    
13.                 x.Style = "Normal"
    
14.             End If
    
15.         Next
    
16.     End If
    
17.    
    
18.     Application.ScreenUpdating = True
    
19.     Application.EnableEvents = True
    
20. End Sub

複製代碼

peter460191

回復 10# ML089


   謝謝 ML089，我再試試看!

peter460191

回復 11# stillfish00


   謝謝 stillfish00 指導，我再研究看看，若不行再向您請教，
  另外再向您請教一個問題，檔案的地址數量太多(約400個)，及又有其他的矩陣及VBA程式，會不會影響執行結果?

stillfish00

回復 13# peter460191
執行結果你可以自行嘗試比較看看就知道了。
至於執行效率會不會影響，這要看你的地址是如何"隨機生成"，
除非地址內容常常會400個、400個變動，又或者
其他VBA程式中常常去變動那些地址，
否則應該影響不大。

當然，自行備分後嘗試比較看看是最清楚的。

peter460191

回復 14# stillfish00


   了解了!
   謝謝您!
   我再試試看。

av8d

回復 14# stillfish00

老師，現在好像不能用了，地址會變成亂碼。

stillfish00

回復 16# av8d
加一function

1. Function encodeURL(str As String)
   
2.     With CreateObject("ScriptControl")
   
3.         .Language = "JScript"
   
4.         .AddCode "function encode(str) {return encodeURIComponent(str);}"
   
5.         encodeURL = .Run("encode", str)
   
6.     End With
   
7. End Function

複製代碼

9樓改為
Hyperlinks.Add Anchor:=x, Address:="http://maps.google.com.tw/maps?q=" & encodeURL(x.Value)

這樣試試

av8d

回復 17# stillfish00


可以了~謝謝老師~如果老師還有空~是否可以解答一下這題
http://forum.twbts.com/viewthrea ... ighlight=%A6a%B9%CF