½Ð°Ý­n¦p¦ó¦Û°Ê¦b¨C¤@­Ó¦a§}¤W¥[¤JGoogle¦a¹Ï³sµ²¡A¥B¦r«¬ÃC¦â¬Ò¤£·|ÅÜ¡AÁÂÁ±z!

peter460191

½Ð°Ý­n¦p¦ó¦Û°Ê¦b(A2~A10Àx¦s®æ)¨C¤@­Ó¦a§}¤W¥[¤JGoogle¦a¹Ï³sµ²¡A¥B¦r«¬ÃC¦â¬Ò¤£·|ÅÜ

¤U¸ü (59.27 KB)

2013-6-6 15:41

¦a§}.rar (1.51 KB)

¤U¸ü¦¸¼Æ: 26

2013-6-6 15:42

av8d

¦^´_ 17# stillfish00


¥i¥H¤F~ÁÂÁ¦Ѯv~¦pªG¦Ñ®vÁÙ¦³ªÅ~¬O§_¥i¥H¸Ñµª¤@¤U³oÃD
http://forum.twbts.com/viewthrea ... ighlight=%A6a%B9%CF

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

½Æ»s¥N½X

9¼Ó§ï¬°
Hyperlinks.Add Anchor:=x, Address:="http://maps.google.com.tw/maps?q=" & encodeURL(x.Value)

³o¼Ë¸Õ¸Õ

av8d

¦^´_ 14# stillfish00

¦Ñ®v¡A²{¦b¦n¹³¤£¯à¥Î¤F¡A¦a§}·|Åܦ¨¶Ã½X¡C

peter460191

¦^´_ 14# stillfish00


   ¤F¸Ñ¤F!
   ÁÂÁ±z!
   §Ú¦A¸Õ¸Õ¬Ý¡C

stillfish00

¦^´_ 13# peter460191
°õ¦æµ²ªG§A¥i¥H¦Û¦æ¹Á¸Õ¤ñ¸û¬Ý¬Ý´Nª¾¹D¤F¡C
¦Ü©ó°õ¦æ®Ä²v·|¤£·|¼vÅT¡A³o­n¬Ý§Aªº¦a§}¬O¦p¦ó"ÀH¾÷¥Í¦¨"¡A
°£«D¦a§}¤º®e±`±`·|400­Ó¡B400­ÓÅÜ°Ê¡A¤S©ÎªÌ
¨ä¥LVBAµ{¦¡¤¤±`±`¥hÅܰʨº¨Ç¦a§}¡A
§_«hÀ³¸Ó¼vÅT¤£¤j¡C

·íµM¡A¦Û¦æ³Æ¤À«á¹Á¸Õ¤ñ¸û¬Ý¬Ý¬O³Ì²M·¡ªº¡C

peter460191

¦^´_ 11# stillfish00


   ÁÂÁ stillfish00 «ü¾É¡A§Ú¦A¬ã¨s¬Ý¬Ý¡A­Y¤£¦æ¦A¦V±z½Ð±Ð¡A
  ¥t¥~¦A¦V±z½Ð±Ð¤@­Ó°ÝÃD¡AÀɮתº¦a§}¼Æ¶q¤Ó¦h(¬ù400­Ó)¡A¤Î¤S¦³¨ä¥Lªº¯x°}¤ÎVBAµ{¦¡¡A·|¤£·|¼vÅT°õ¦æµ²ªG?

peter460191

¦^´_ 10# ML089


   ÁÂÁ ML089¡A§Ú¦A¸Õ¸Õ¬Ý!

stillfish00

¦^´_ 9# peter460191

ÀHÀx¦s®æ¤ºªº¦a§}ÅÜ°Ê¡A¦Ó¦a¹Ï¶W³sµ²¤]¥ß§Y¸òµÛÅܰʶÜ?

³o¼Ë´N¬O©M5#¤@¼Ë¡A¼g¦b Change ¨Æ¥ó¤¤¡A
µy·L§ï¤F¤@¤U¡A­YÁÙ¬O¤£¦æ½Ð¤W¶Çªþ¥ó¡C

1. '    ½Ð©ñ¸m¦b "¤u§@ªí1" µ{¦¡°Ï¤º¡C
   
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

½Æ»s¥N½X

ML089

¦^´_ 7# peter460191


§Ú´ú¸Õ10´Xµ§³£¥i¥H
­nª`·N¡Aµ{¦¡µ§»Ý©ñ¦b¸Ó¤u§@ªíµ{¦¡°Ï