- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
本帖最後由 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) 以程式模式與資料同步寫入
而已,沒做任何之延伸創意。因為我不懂你公式的作用。看了准提部林版大的分享
才稍稍明瞭你要的結果可能會是如此,還是另有想法? |
|