[µo°Ý] ¦³Ãö¨Ï¥ÎExcel¤è«KŪ¨úGoogle¦a¹Ï¤ºªº°_©lÂI(½Ð¤U¸üªþ¥ó)

av8d

§Ö³t¦a¹Ï2.rar (7.07 KB)

¤U¸ü¦¸¼Æ: 23

2016-1-20 17:23

1/20  17:17  ºô­¶¦³¶]¥X¨Ó~¦ý¬O¦a¹ÏµLªkÅã¥Ü¡C

av8d

¦^´_ 3# lpk187


    ¦Ñ®v~§Úµo²{¤@­Ó°ÝÃD~§Úµo²{µL½×«ö¨â¤UB2¡BB3¡BB4¡A¥L³£¥u·|§@¥ÎB2°_ÂIC2²×ÂI

·Ó¹D²z«ö¨â¤UB2¡A·|¥X²{B2°_ÂIC2²×ÂI¨S¿ù
¦ý¬O«ö¨â¤UB3¡AÀ³¸Ó­n¥X²{3°_ÂIC3²×ÂI¤~¹ï

·Ó¨ì¤èªk¤F~ÁÂÁ¦U¦ì¦Ñ®v

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     If Target.Column = 2 And Target.Value <> "" Then
   
3.         If Target.Range("B1") <> "" Then
   
4.             Cancel = True
   
5.             With CreateObject("InternetExplorer.Application")
   
6.                 .Navigate "https://www.google.com.tw/maps/dir/" & Target & "/" & Target.Range("B1")
   
7.                 Do While .Busy Or .ReadyState <> 4
   
8.                     DoEvents
   
9.                 Loop
   
10.                 .Document.all("gs_id51").innerText = Target
    
11.                 .Document.all("gs_id52").innerText = Target.Range("B1")
    
12.                 '.Document.all("d_sub").Click
    
13.                 .Visible = True
    
14.             End With
    
15.         End If
    
16.     End If
    
17. End Sub

½Æ»s¥N½X

av8d

¦^´_ 3# lpk187

ÁÂÁ¨â¦ì¦Ñ®vªºÀ°¦£¡A¥k¤è¦a¹Ï¬Ý¨Ó­n¤â°Ê½Õ¾ã¤F¡A»Ý­n¤@µf¥\¤Ò¡AÁÙ¬O«D±`·PÁ¨â¦ì¦Ñ®v¡C

lpk187

¦^´_ 1# av8d
¥i¥H³o¼Ë
https://www.google.com.tw/maps/dir/±ÒÂI/²×ÂI
³][B2]¬°±ÒÂI¡A[C2]¬°²×ÂI

©Ò¥H:
                With CreateObject("InternetExplorer.Application")
                .Visible = True
                .Navigate "https://www.google.com.tw/maps/dir/" & [B2] & "/" & [C2]
                Do While .Busy Or .ReadyState <> 4
                    DoEvents
                Loop
            End With

stillfish00

¦^´_ 1# av8d
http://stackoverflow.com/questio ... t-to-show-search-ne
saddr  °_ÂI
daddr  ²×ÂI