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

[µo°Ý] °Ý¤@­Ó­×§ïÄæ¦ìªº°ÝÃD (hugh0620 ¸Ñ¨M¤F§Úªº°ÝÃD¡A·PÁÂ)

[µo°Ý] °Ý¤@­Ó­×§ïÄæ¦ìªº°ÝÃD (hugh0620 ¸Ñ¨M¤F§Úªº°ÝÃD¡A·PÁÂ)

¥»©«³Ì«á¥Ñ av8d ©ó 2012-2-15 13:12 ½s¿è

§Ú¦bºô¸ô¤W¬Ý¨ì¤F¤@½g§Q¥ÎEXCEL¶ñ¤JÀx¦s®æ¸ê®Æ¨ìGOOGLEºô¯¸ªº®æ¤l¤W
Private Sub Worksheet_BeforeDoubleClick(ByVal4As Range, Cancel As Boolean)
    If Target.Column = 2 And Target.Value <> "" Then
        If Target.Range("B1") <> "" Then
            Cancel = True
            With CreateObject("InternetExplorer.Application")
                .Navigate "http://maps.google.com.tw/"
                Do While .Busy Or .ReadyState <> 4
                    DoEvents
                Loop
                .Document.all("d_d").innerText = Target
                .Document.all("d_daddr").innerText = Target.Range("B1")
                .Document.all("d_sub").Click
                .Visible = True
            End With
        End If
    End If
End Sub
§Ú·Q­×§ïÄæ¦ì±qÂI¨â¤UBÄæ§ï¦¨CÄæ
Target.Column = 2  §Ú§ï¦¨¤F Target.Column = 3
¦ý¬O«o¨S¦³¤ÏÀ³¡A¤£ª¾¹D¸Ó¦p¦ó­×§ï©O?

¦^´_ 1# av8d

    µ{¦¡½X³o¼Ë­×§ï¨ä¹ê¨S¿ù~
    ¼Ó¥D­n¦b"E1"Äæ¦ì¿é¤J¸ê®Æ~ ´N¥i¥H°õ¦æ~
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 2# hugh0620


    ±z¬O»¡¦bDÄæ¿é¤J¸ê®Æ´N·|±Ò°ÊC©MDÄ檺¶W³sµ²~

¦ý¬O¦p¬O·Q§ï¼g¦¨
ÂI¨â¤UCÄæ~§@¥ÎÄæ¦ì¨ÌµM¬OB©MCªº¸Ü~¸Ó¦p¦ó§ï¼g©O?

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2012-2-15 12:03 ½s¿è

¦^´_ 3# av8d


    ¼Ó¥D¸ÕµÛ¥Î¤U­±ªº¤è¦¡¨Ó³]©w~
    ³o¼Ë¥u­n¦P¤@¦CªºB©ÎCÄæ³£¦³¸ê®Æ´N¥i¥H³Q°õ¦æ~
    ¨ÒB1©ÎC1¨â­ÓÄæ¦ì³£¦³¸ê®ÆÂI¿ïC1©ÎB1³£¥i¥H³Q°õ¦æ
        B:¥Xµo¦a
        C:¥Ø¼Ð¦a
  1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  2.     If Target.Column = 2 And Target <> "" Then
  3.         If Target.Offset(0, 1) <> "" Then
  4.             Cancel = True
  5.             With CreateObject("InternetExplorer.Application")
  6.                 .Navigate "http://maps.google.com.tw/"
  7.                 Do While .Busy Or .ReadyState <> 4
  8.                     DoEvents
  9.                 Loop
  10.                 .Document.all("d_d").innerText = Target                        'AÂI~ ¥Xµo¦a
  11.                 .Document.all("d_daddr").innerText = Target.Offset(0, 1)       'BÂI~ ¥Ø¼Ð¦a
  12.                 .Document.all("d_sub").Click
  13.                 .Visible = True
  14.             End With
  15.         End If
  16.     ElseIf Target.Column = 3 And Target <> "" Then
  17.         If Target.Offset(0, -1) <> "" Then
  18.             Cancel = True
  19.             With CreateObject("InternetExplorer.Application")
  20.                 .Navigate "http://maps.google.com.tw/"
  21.                 Do While .Busy Or .ReadyState <> 4
  22.                     DoEvents
  23.                 Loop
  24.                 .Document.all("d_d").innerText = Target.Offset(0, -1)          'AÂI~ ¥Xµo¦a
  25.                 .Document.all("d_daddr").innerText = Target                    'BÂI~ ¥Ø¼Ð¦a
  26.                 .Document.all("d_sub").Click
  27.                 .Visible = True
  28.             End With
  29.         End If
  30.    
  31.     End If
  32. End Sub
½Æ»s¥N½X
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 3# av8d


    ´£¨Ñ¤@­Ó­×§ïªºÀÉ®×µ¹±z°Ñ¦Ò
    ©I¥s¦a¹Ï.rar (6.75 KB)
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD