[µ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?

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?