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

藍天麗池

中學生 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

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

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

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

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

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

藍天麗池