標題: [發問] 問一個修改欄位的問題 (hugh0620 解決了我的問題，感謝) [打印本頁]

---

作者: av8d    時間: 2012-2-14 11:02     標題: 問一個修改欄位的問題 (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    時間: 2012-2-14 12:14

回復 1# av8d

    程式碼這樣修改其實沒錯~
    樓主要在"E1"欄位輸入資料~ 就可以執行~

---

作者: av8d    時間: 2012-2-15 11:35

回復 2# hugh0620


    您是說在D欄輸入資料就會啟動C和D欄的超連結~

但是如是想改寫成
點兩下C欄~作用欄位依然是B和C的話~該如何改寫呢?

---

作者: hugh0620    時間: 2012-2-15 11:54

本帖最後由 hugh0620 於 2012-2-15 12:03 編輯

回復 3# av8d


    樓主試著用下面的方式來設定~
    這樣只要同一列的B或C欄都有資料就可以被執行~
    例B1或C1兩個欄位都有資料點選C1或B1都可以被執行
        B:出發地
        C:目標地

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     If Target.Column = 2 And Target <> "" Then
   
3.         If Target.Offset(0, 1) <> "" Then
   
4.             Cancel = True
   
5.             With CreateObject("InternetExplorer.Application")
   
6.                 .Navigate "http://maps.google.com.tw/"
   
7.                 Do While .Busy Or .ReadyState <> 4
   
8.                     DoEvents
   
9.                 Loop
   
10.                 .Document.all("d_d").innerText = Target                        'A點~ 出發地
    
11.                 .Document.all("d_daddr").innerText = Target.Offset(0, 1)       'B點~ 目標地
    
12.                 .Document.all("d_sub").Click
    
13.                 .Visible = True
    
14.             End With
    
15.         End If
    
16.     ElseIf Target.Column = 3 And Target <> "" Then
    
17.         If Target.Offset(0, -1) <> "" Then
    
18.             Cancel = True
    
19.             With CreateObject("InternetExplorer.Application")
    
20.                 .Navigate "http://maps.google.com.tw/"
    
21.                 Do While .Busy Or .ReadyState <> 4
    
22.                     DoEvents
    
23.                 Loop
    
24.                 .Document.all("d_d").innerText = Target.Offset(0, -1)          'A點~ 出發地
    
25.                 .Document.all("d_daddr").innerText = Target                    'B點~ 目標地
    
26.                 .Document.all("d_sub").Click
    
27.                 .Visible = True
    
28.             End With
    
29.         End If
    
30.    
    
31.     End If
    
32. End Sub

複製代碼

---

作者: hugh0620    時間: 2012-2-15 12:06

回復 3# av8d


    提供一個修改的檔案給您參考
    [attach]9596[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)