[發問] 有關使用事件程序取得資料(有二個問題)

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

2^#

發表於 2014-1-15 14:01 | 顯示全部帖子

回復 2# stillfish00

感恩我去試試!

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

3^#

發表於 2014-1-15 14:12 | 顯示全部帖子

回復 3# icestormer

你好程序會很順利的跑完但他不會更新呢,SORRY我沒有說明白我是用下方指令這種來更新

Selection.QueryTable.Refresh BackgroundQuery:=False

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

4^#

發表於 2014-1-15 18:08 | 顯示全部帖子

本帖最後由 icestormer 於 2014-1-15 18:21 編輯

回復 5# stillfish00

那個好像你誤會我的意思了

我再試者說明一次主要是資料會有2 到3千筆但是每次我也許只要更新其中1到3百筆(每種每次更新時種類不同)

我按下更新價位時他好像只會更新主工作表上的B2到C4(目前上頭只有3筆資料)而不會去更新資料區內的如下圖

我想一個程式在我按下[更新市價]時它會自動按[主工作表]上A2到AXXX(看有幾筆)
每一筆上的物品名稱(例如:Pyerite)去找到資料區內進而更新它 ,然後由於資料量大所以他可能會A那或是H或是更遠的AC300那裡
如果全部資料都在同一行(A1:A65536)那我還寫的出來但資料會分散開所以寫不出來><
再次感謝你的回覆!

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

5^#

發表於 2014-1-15 20:38 | 顯示全部帖子

回復 7# stillfish00

對沒錯不然我只要看300筆但一次全部更新3千筆...這..太沒花時間也沒必要感謝我試試!^^

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

6^#

發表於 2014-1-16 09:49 | 顯示全部帖子

本帖最後由 icestormer 於 2014-1-16 09:53 編輯

回復 8# icestormer

你好我一開始試都OK(有3筆) 然後呢我發現當只有一筆資料時(如上圖)就會發生錯誤只要有2筆以上資料就不會出錯不知要修改那裡呢?

另外我把那一行去掉 updateprice 要跑時有錯誤

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

7^#

發表於 2014-1-16 10:29 | 顯示全部帖子

回復 10# stillfish00

感謝!

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

8^#

發表於 2014-1-16 10:55 | 顯示全部帖子

回復 stillfish00

感謝!
icestormer 發表於 2014-1-16 10:29

已完全沒有問題..我再多試感謝的幫忙^^

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

9^#

發表於 2014-1-24 14:10 | 顯示全部帖子

本帖最後由 icestormer 於 2014-1-24 14:19 編輯

回復 icestormer
改上面
With Sheets("主工作表")
ar = Application.Transpose(.Range(.Range(" ...
stillfish00 發表於 2014-1-16 10:18

你好由於發現另一個問題但不知怎寫又來請教你了
我想使用下面程式碼讓它自動重算(我把它改成手動的)
'
Application.MaxChange = 0.001
ActiveWorkbook.PrecisionAsDisplayed = False
Calculate
由於資料在更新時會有2 300筆不知應怎樣寫讓程式判定已停止更新(全部已更新完成) 再執行上述程式碼呢? 麻煩你了

另外不知為什麼只要更新超過十多筆就會出再現如下圖的情況,要等到更新完成才會回復正常 ,但這正常嗎??

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

10^#

發表於 2014-1-26 09:47 | 顯示全部帖子

回復 14# stillfish00

好感謝我去試試