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

藍天麗池

中學生 Rank: 2

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

11^# 跳轉到 »

發表於 2016-1-27 13:58 | 只看該作者

回復 8# 准提部林
所以函數不能直接打在儲存格上面，要用VBA且執行完要馬上將公式轉成值，要不然一樣會拖慢速度

TOP

藍天麗池

中學生 Rank: 2

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

12^#

發表於 2016-1-27 13:59 | 只看該作者

回復 9# 准提部林

大大可以說明一下用法和原理嗎??我看不太懂，抱歉
謝謝你的幫忙

TOP

藍天麗池

中學生 Rank: 2

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

13^#

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

回復 9# 准提部林

大大好厲害，但請教一下
1.是每分鐘都要自己按統計嗎??
2.按統計的過程中會造成EXCEL變慢嗎??
3.如果把它改成自動每分鐘統計一次可以嗎??

TOP

藍天麗池

中學生 Rank: 2

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

14^#

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

回復 7# c_c_lai

C大我要的效果大概跟7樓大大的附件一樣你看一下

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

15^#

發表於 2016-1-27 15:30 | 只看該作者

本帖最後由 c_c_lai 於 2016-1-27 15:31 編輯

回復 12# 藍天麗池
這是你原本的定義：

S3
=IF(SUMIFS($E:$E,$D:$D,S$1,$B:$B,$R2)=0,"",SUMIFS($E:$E,$D:$D,S$1,$B:$B,$R2))
T3
=IF(SUMIFS($E:$E,$D:$D,T$1,$B:$B,$R2)=0,"",SUMIFS($E:$E,$D:$D,T$1,$B:$B,$R2))

複製代碼

這是程式碼解析的結果：

S3
=IF(SUMIFS($E3:$E4903,$D3:$D4903,S$1,$B3:$B4903,$R2)=0,"",SUMIFS($E3:$E4903,$D3:$4903,S$1,$B3:$B4903,$R2))
T3
=IF(SUMIFS($E3:$E4903,$D3:$D4903,T$1,$B3:$B4903,$R2)=0,"",SUMIFS($E3:$E4903,$D3:$D4903,T$1,$B3:$B4903,$R2))

複製代碼

然後再轉為數值表示。

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

16^#

發表於 2016-1-27 16:06 | 只看該作者

本帖最後由 c_c_lai 於 2016-1-27 16:15 編輯

回復 14# 藍天麗池
Function STSumifs(ByVal endST As Long, Optional startST As Long = 3)
1.  Optional startST As Long = 3 的用意，事先賦予預設值；
例如:
Sub Test()
      Dim WR As Long

      WR = Range("A1").End(xlDown).Row '  最後一筆資料列
      STSumifs WR
End Sub
在 STSumifs 的函式中：
      For cts = startST To endST
startST 等於 3， endST  等於 WR (4903)
此時 STSumifs WR = STSumifs WR, 3 之意，
Optional  的變數宣告，如未帶入值，則以其
設定的預設值 (3) 為參數值。
***  這是一次就處理 3 ~ 4903 完畢。

2.  假設帶入值為：
WR = Range("A1").End(xlDown).Row + 1 '  最後一筆資料列 + 1
STSumifs WR, WR
startST 等於 WR， endST  等於 WR (4094)
***  這是將資料寫入到資料錄的最後列。

TOP

藍天麗池