hugh0620

¦^´_ 1# av8d

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

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