[發問] 問一個修改欄位的問題 (hugh0620 解決了我的問題，感謝)

本帖最後由 av8d 於 2012-2-15 13:12 編輯

我在網路上看到了一篇利用EXCEL填入儲存格資料到GOOGLE網站的格子上
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
我想修改欄位從點兩下B欄改成C欄
Target.Column = 2  我改成了 Target.Column = 3
但是卻沒有反應，不知道該如何修改呢?

樓主熱帖

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

5^#

發表於 2012-2-15 12:06 | 只看該作者

回復 3# av8d

提供一個修改的檔案給您參考

呼叫地圖.rar (6.75 KB)

學習才能提升自己

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 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