棘手的excel運算問題，如何改善??

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

21^# 跳轉到 »

發表於 2016-1-28 10:41 | 只看該作者

本帖最後由 c_c_lai 於 2016-1-28 10:48 編輯

回復 20# 藍天麗池
你說的 "昨天7樓的附件經測試後無法記錄價格"，
7樓那來的附件？
你指的是？

Sub RecordPrice()
Dim WR As Long
Dim I As Byte
If Range("P2") < 1 Then Exit Sub
WR = Range("A1").End(xlDown).Row + 1
' ActiveWindow.ScrollRow = WR - 5 ' 只顯示最新幾筆資料
If (WR = 3) Or _
(Range("F" & WR - 1) <> Range("F2")) Then ' 總量有異動時才記錄
. For I = 1 To 6
Cells(WR, I) = Cells(2, I)
Next 'I
STSumifs WR, WR ' 資料同步將數值寫入到 R，S，T 三欄內
End If
' With ActiveWindow
' If Intersect(Cells(WR, "B"), .VisibleRange) Is Nothing Then .SmallScroll 5
' End With
End Sub

複製代碼

你的程式碼中有加入這一行嗎？

STSumifs WR, WR ' 資料同步將數值寫入到 R，S，T 三欄內

複製代碼

你的原始碼是在 Workbook_Calculate() 裡執行的，
請檢查一下。
准提部林版大的分享亦值得你研究參考，你想要的答案
是不是那樣？
我的程式碼 STSumifs() 只是將你本來之公式 (Formula) 以程式模式與資料同步寫入
而已，沒做任何之延伸創意。因為我不懂你公式的作用。看了准提部林版大的分享
才稍稍明瞭你要的結果可能會是如此，還是另有想法？

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

22^#

發表於 2016-1-28 12:16 | 只看該作者

本帖最後由藍天麗池於 2016-1-28 12:23 編輯

回復 21# c_c_lai

打錯，應該是9樓才對
C大說加那個是指你的程式吧，我面前用9樓的附件再跑沒加，就是價格無法紀錄

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

23^#

發表於 2016-1-28 12:57 | 只看該作者

回復 22# 藍天麗池

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

24^#

發表於 2016-1-28 13:24 | 只看該作者

本帖最後由藍天麗池於 2016-1-28 13:31 編輯

回復 23# c_c_lai

C大我把它全部弄回去後，可以記錄，但卻不是我原本設定的變動才紀錄，為什麼會這樣??

現在沒變動也記錄，是哪邊出錯了嗎??

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

25^#

發表於 2016-1-28 13:35 | 只看該作者

回復 24# 藍天麗池
你把你目前的Excel檔案壓縮上傳，
眼見為憑！

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

26^#

發表於 2016-1-28 13:44 | 只看該作者

回復 25# c_c_lai

Desktop.rar (223.83 KB)
兩個檔案，都是准大的一個手動，一個自動，抱歉應該早點上傳的

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

27^#

發表於 2016-1-28 14:06 | 只看該作者

回復 26# 藍天麗池
你說 "可以記錄，但卻不是我原本設定的變動才紀錄"
此話怎說？
你開啟檔案後，它會從 DDE 匯入即時數據，接著它便自動判斷
總量有異動時才記錄，這個過程不對嗎？"不是你原本設定的變動才紀錄"
是甚麼情形，因我沒券商的軟體所以無從得知差異在那裏。

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

28^#

發表於 2016-1-28 14:10 | 只看該作者

本帖最後由藍天麗池於 2016-1-28 14:12 編輯

回復 27# c_c_lai

看24樓截圖，F列在紀錄時相同也記錄了而且都是同樣資料，F42-F52都是相同的，但是他也記錄了，正常不應該是這樣

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

29^#

發表於 2016-1-28 14:43 | 只看該作者

回復 28# 藍天麗池
那你再觀察一下 F2 欄的數據有沒有一直在變動？
如沒，則你必須重新再次啟動券商的軟體。

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

30^#

發表於 2016-1-28 16:56 | 只看該作者

回復 28# 藍天麗池

Private Sub Workbook_Open()
Call 統計_啟動
Application.RTD.ThrottleInterval = 0
Application.Calculation = xlCalculationManual '開啟檔案就將〔自動重算〕關閉，怎可能觸動〔Calculate〕　
End Sub

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]