ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

¦^´_ 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

TOP

¦^´_ 10# ML089


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

TOP

¦^´_ 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

TOP

¦^´_ 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

TOP

¦^´_ 14# stillfish00


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

TOP

¦^´_ 14# stillfish00

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

TOP

¦^´_ 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¼Ë¸Õ¸Õ
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 17# stillfish00


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

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD