c_c_lai

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

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

複製代碼

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

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

複製代碼

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

藍天麗池

回復 21# c_c_lai

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

c_c_lai

回復 22# 藍天麗池

下載 (51.86 KB)

2016-1-28 12:56

藍天麗池

回復 23# c_c_lai

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

下載 (86.94 KB)

2016-1-28 13:31

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

c_c_lai

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

藍天麗池

回復 25# c_c_lai
Desktop.rar (223.83 KB)

下載次數: 6

2016-1-28 13:42

兩個檔案，都是准大的一個手動，一個自動，抱歉應該早點上傳的

c_c_lai

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

藍天麗池

回復 27# c_c_lai


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

c_c_lai

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

准提部林

回復 28# 藍天麗池


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