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

av8d

§Ú¦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?

hugh0620

¦^´_ 1# av8d

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

av8d

¦^´_ 2# hugh0620


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

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

hugh0620

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

hugh0620

¦^´_ 3# av8d


    ´£¨Ñ¤@­Ó­×§ïªºÀÉ®×µ¹±z°Ñ¦Ò
    ©I¥s¦a¹Ï.rar (6.75 KB)

¤U¸ü¦¸¼Æ: 7

2012-2-15 12:06