返回列表 上一主題 發帖

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

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

回復 20# 藍天麗池
你說的 "昨天7樓的附件經測試後無法記錄價格",
7樓 那來的附件?
你指的是?
  1. Sub RecordPrice()
  2.     Dim WR As Long
  3.    Dim I As Byte

  4.    If Range("P2") < 1 Then Exit Sub
  5.     WR = Range("A1").End(xlDown).Row + 1
  6.    '  ActiveWindow.ScrollRow = WR - 5     '  只顯示最新幾筆資料
  7.     If (WR = 3) Or _
  8.            (Range("F" & WR - 1) <> Range("F2")) Then   '  總量有異動時才記錄

  9. .        For I = 1 To 6
  10.             Cells(WR, I) = Cells(2, I)
  11.        Next 'I
  12.         STSumifs WR, WR                         '  資料同步將數值寫入到 R,S,T 三欄內
  13.   End If
  14.    '  With ActiveWindow
  15.         '  If Intersect(Cells(WR, "B"), .VisibleRange) Is Nothing Then .SmallScroll 5
  16.     '  End With
  17. End Sub
複製代碼
你的程式碼中有加入這一行嗎?
  1. STSumifs WR, WR                         '  資料同步將數值寫入到 R,S,T 三欄內
複製代碼
你的原始碼是在 Workbook_Calculate() 裡執行的,
請檢查一下。
准提部林版大的分享亦值得你研究參考,你想要的答案
是不是那樣?
我的程式碼 STSumifs() 只是將你本來之公式 (Formula) 以程式模式與資料同步寫入
而已,沒做任何之延伸創意。因為我不懂你公式的作用。看了准提部林版大的分享
才稍稍明瞭你要的結果可能會是如此,還是另有想法?

TOP

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

回復 21# c_c_lai

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

TOP

回復 22# 藍天麗池

TOP

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

回復 23# c_c_lai

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

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

TOP

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

TOP

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

TOP

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

TOP

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

回復 27# c_c_lai


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

TOP

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

TOP

回復 28# 藍天麗池


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

TOP

        靜思自在 : 能付出愛心就是福,能消除煩惱就是慧。
返回列表 上一主題