- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¥»©«³Ì«á¥Ñ hugh0620 ©ó 2012-2-15 12:03 ½s¿è
¦^´_ 3# av8d
¼Ó¥D¸ÕµÛ¥Î¤U±ªº¤è¦¡¨Ó³]©w~
³o¼Ë¥un¦P¤@¦CªºB©ÎCÄæ³£¦³¸ê®Æ´N¥i¥H³Q°õ¦æ~
¨ÒB1©ÎC1¨âÓÄæ¦ì³£¦³¸ê®ÆÂI¿ïC1©ÎB1³£¥i¥H³Q°õ¦æ
B:¥Xµo¦a
C:¥Ø¼Ð¦a- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
- If Target.Column = 2 And Target <> "" Then
- If Target.Offset(0, 1) <> "" 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 'AÂI~ ¥Xµo¦a
- .Document.all("d_daddr").innerText = Target.Offset(0, 1) 'BÂI~ ¥Ø¼Ð¦a
- .Document.all("d_sub").Click
- .Visible = True
- End With
- End If
- ElseIf Target.Column = 3 And Target <> "" Then
- If Target.Offset(0, -1) <> "" 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.Offset(0, -1) 'AÂI~ ¥Xµo¦a
- .Document.all("d_daddr").innerText = Target 'BÂI~ ¥Ø¼Ð¦a
- .Document.all("d_sub").Click
- .Visible = True
- End With
- End If
-
- End If
- End Sub
½Æ»s¥N½X |
|