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

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

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

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


¦a§}.rar (1.51 KB)
peter460191

¦^´_ 1# peter460191
¸Õ¸Õ¬Ý
  1. Sub TEST()
  2.     Dim r As Long, x
  3.    
  4.     With Sheets("Sheet1")
  5.         r = .Cells(.Rows.Count, "A").End(xlUp).Row
  6.         If r > 1 Then
  7.             For Each x In .Range("A2:A" & r)
  8.                 .Hyperlinks.Add Anchor:=x, Address:="http://maps.google.com.tw/maps?q=" & x.Value
  9.             Next
  10.             .Range("A2:A" & r).Style = "Normal"
  11.         End If
  12.     End With
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# stillfish00


   ·PÁ stillfish00 ªº«ü¾É¡A¤w¸g¥i¥H¡A·|¦n¦n¬ã¨s¡A«D±`ÁÂÁ±z!
peter460191

TOP

¦^´_ 2# stillfish00


   ½Ð°Ý stillfish00
   ­Y§Ú­nÅܧó¦a§}¦ì¸m¤Î¼Æ¶q­n¦p¦ó§ïµ{¦¡¡A§Ú¸Õ¤F¦n¤[³£¥¼¯à¦¨¥\¡A½ÐÀ°¦£±Ð¾É¡A·P¿E¤£ºÉ¡AÁÂÁ±z!
peter460191

TOP

¦^´_  stillfish00


   ½Ð°Ý stillfish00
   ­Y§Ú­nÅܧó¦a§}¦ì¸m¤Î¼Æ¶q­n¦p¦ó§ïµ{¦¡¡A§Ú¸Õ¤F¦n¤[³£¥¼ ...
peter460191 µoªí©ó 2013-6-7 12:06

§A¬O«ü³o­Ó¶Ü¡H
  1. '    ½Ð©ñ¸m¦b "¤u§@ªí1" µ{¦¡°Ï¤º¡C
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     With Target
  4.         .Hyperlinks.Add Anchor:=Target, Address:="http://maps.google.com.tw/maps?q=" & Target
  5.         .Style = "Normal"
  6.     End With
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# peter460191
2# ¦a§}ªº¦ì¸m¬O§ìA2¨ìAÄæ³Ì«á¤@µ§
¦pªG§A­n©ú½T«ü©w°Ï°ì¡A§ï¦¨¤U­±³o¼Ë´N¬O«ü©wA2¨ìA10
  1. Sub TEST()
  2.     Dim x
  3.    
  4.     With Sheets("Sheet1").Range("A2:A10")
  5.         For Each x In .Cells
  6.             .Parent.Hyperlinks.Add Anchor:=x, Address:="http://maps.google.com.tw/maps?q=" & x.Value
  7.         Next
  8.         .Style = "Normal"
  9.     End With
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# c_c_lai


   ·PÁ c_c_lai ±zªº«ü¾É¡A¦³¸Õ¹L¤F¡A¦ý¦³ªº¥i¥H¦³ªº¤£¦æ¡A°ÝÃD¬O¥X¦b¨º¸Ì¡AÁÂÁ±z!
peter460191

TOP

¦^´_ 6# stillfish00


    ·PÁÂstillfish00 «ü¾É¡A§Ú¦A¬ã¨s¸Õ¸Õ¬Ý
peter460191

TOP

¦^´_ 6# stillfish00


   ½Ð°Ý stillfish00
   ­YÀx¦s®æ¤ºªº¦a§}·|ÀH¾÷ÅÜ°Ê¡A¦ý¶W³sµ²¥u·|°O¦í²Ä¤@­Ó¡A½Ð°Ý¦³¿ìªkÀHÀx¦s®æ¤ºªº¦a§}ÅÜ°Ê¡A¦Ó¦a¹Ï¶W³sµ²¤]¥ß§Y¸òµÛÅܰʶÜ?
   ÁÂÁ±z!
peter460191

TOP

¦^´_ 7# peter460191


§Ú´ú¸Õ10´Xµ§³£¥i¥H
­nª`·N¡Aµ{¦¡µ§»Ý©ñ¦b¸Ó¤u§@ªíµ{¦¡°Ï
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD