[發問] 能否依現有的VBA創出另一個VBA呢?
|
[發問] 能否依現有的VBA創出另一個VBA呢? 本帖最後由 Hsieh 於 2010-5-31 08:49 編輯
現有的VBA: http://naturefruit.myweb.hinet.net/map.xls 使用說明: 請點兩下B欄的儲存格(任意格).儲存格必須有值. 待完成的圖:  希望可以利用現有的VBA的原理.將待完成的圖內的A1~R1代入儲存格A欄~R欄. 將原有的點兩下儲存格更改為.在B1打入資料後按Enter或快捷鍵(如:Ctrl+F1).即可跳窗顯現. 如果跳窗顯現的部分沒辦法的話.請更改回點兩下B欄儲存格(任意格).儲存格必須有值. 感謝各位大大的幫忙. |
|
|
|
|
|
|
發表於 2010-5-30 10:59
| 
|
本帖最後由 vpower 於 2010-5-31 23:50 編輯
回復 vpower 現有的VBA: http://naturefruit.myweb.hinet.net/map.xls 使用說明: 點2下B欄.如 A地 或 台北市忠孝東路1段20號 他都會另外開 http://maps.google.com.tw/ 網頁 網頁內的搜尋第一格就會放B欄位.第二格就會放C欄 我不曉得大大能不能利用程式碼如下: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As 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 對於程式碼我也麻煩人家寫的.也並非很了解.好像和PD961A大大講的一樣.要查他的原文. 搜尋關鍵字是"女" 就在我標明C1的部分. 能不能麻煩PD961A大大詳細講解一下現有的VBA的程式碼. 我唯一了解的就If Target.Column = 2 And Target.Value <> "" Then 他的2代表B欄. |
|
|
|
