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

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

15^#

發表於 2014-1-26 09:47 | 只看該作者

回復 14# stillfish00

好感謝我去試試

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

14^#

發表於 2014-1-26 07:29 | 只看該作者

回復 13# icestormer
1. FOR迴圈結束就全部完成阿..
2. 沒遇到，迴圈內加個DOEVENTS看看

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

13^#

發表於 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

12^#

發表於 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

11^#

發表於 2014-1-16 10:29 | 只看該作者

回復 10# stillfish00

感謝!

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

10^#

發表於 2014-1-16 10:18 | 只看該作者

本帖最後由 stillfish00 於 2014-1-16 10:20 編輯

回復 9# icestormer
改上面
With Sheets("主工作表")
ar = Application.Transpose(.Range(.Range("A2"), .Cells(.Rows.Count, "A").End(xlUp)).Value)
If Not IsArray(ar) Then ar = Array(ar)
End With

去掉 updateprice 要跑時有錯誤
不懂，不可能取消呼叫函數反而產生錯誤

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

9^#

發表於 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

8^#

發表於 2014-1-15 20:38 | 只看該作者

回復 7# stillfish00

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

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

7^#

發表於 2014-1-15 20:16 | 只看該作者

回復 6# icestormer
所以你資料表是有很多很多外部資料連線組成，全部都更新太慢所以是要找到特定的外部資料更新連線就好，
然後再取回買賣價到主工作表，對嗎？

修改主工作表

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("F1:G1")) Is Nothing Then Exit Sub
UpdateQueryTable
UpdatePrice
End Sub

複製代碼

原本一般模組再加上:

Sub UpdateQueryTable()
Dim ar, rng As Range, x
Dim sMsg As String, bNotFound As Boolean
Const sMark = " - Market Browser"
sMsg = "以下找不到 : "
With Sheets("主工作表")
ar = Application.Transpose(.Range(.Range("A2"), .Cells(.Rows.Count, "A").End(xlUp)).Value)
End With
With Sheets("資料區")
For Each x In ar
Set rng = .Cells.Find(x & sMark, LookIn:=xlValues, lookat:=xlWhole)
If rng Is Nothing Then
sMsg = sMsg & vbCrLf & x & sMark
bNotFound = True
Else
rng.QueryTable.Refresh BackgroundQuery:=False
End If
Next
End With
If bNotFound Then MsgBox sMsg Else MsgBox "Finish"
End Sub

複製代碼