- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
4#
發表於 2012-2-15 11:54
| 只看該作者
本帖最後由 hugh0620 於 2012-2-15 12:03 編輯
回復 3# av8d
樓主試著用下面的方式來設定~
這樣只要同一列的B或C欄都有資料就可以被執行~
例B1或C1兩個欄位都有資料點選C1或B1都可以被執行
B:出發地
C:目標地- 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點~ 出發地
- .Document.all("d_daddr").innerText = Target.Offset(0, 1) 'B點~ 目標地
- .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點~ 出發地
- .Document.all("d_daddr").innerText = Target 'B點~ 目標地
- .Document.all("d_sub").Click
- .Visible = True
- End With
- End If
-
- End If
- End Sub
|
|
