誰能幫這幾乎重複動作的VBA瘦身謝謝 - Excel程式區

返回列表下一主題上一主題發帖

[發問] 誰能幫這幾乎重複動作的VBA瘦身謝謝

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

1^# 跳轉到 »

發表於 2015-8-29 16:53 | 顯示全部帖子

回復 43# lcctno

data!J2 可以直接帶函數比較簡單一些
=FORECAST(I2,OFFSET(結果!D1,MATCH(I2,結果!A:A,1),,-2),OFFSET(結果!A1,MATCH(I2,結果!A:A,1),,-2))

FORECAST(x,known_y's,known_x's)
X 是您要預測一個數值的資料點。
Known_y's 是因變數陣列或資料範圍。
Known_x's 是自變數陣列或資料範圍。

原 data!J2 公式
=IF(ISERROR(LOOKUP(I2,OFFSET(結果!$A$3,,,結果!$E$2,),ROW(OFFSET(結果!$A$3,,,結果!$E$2,)))),"--",IF(LOOKUP(I2,OFFSET(結果!$A$3,,,結果!$E$2,),ROW(OFFSET(結果!$A$3,,,結果!$E$2,)))>=結果!$E$2+2,1,VLOOKUP(I2,IF({1,0},OFFSET(結果!$A$3,,,結果!$E$2,),OFFSET(結果!$D$3,,,結果!$E$2,)),2)+(I2-LOOKUP(I2,OFFSET(結果!$A$3,,,結果!$E$2,)))*LINEST(OFFSET(INDIRECT("結果!D"&LOOKUP(I2,OFFSET(結果!$A$3,,,結果!$E$2,),ROW(OFFSET(結果!$A$3,,,結果!$E$2,))),1),,,2,),OFFSET(INDIRECT("結果!A"&LOOKUP(I2,OFFSET(結果!$A$3,,,結果!$E$2,),ROW(OFFSET(結果!$A$3,,,結果!$E$2,))),1),,,2,))))

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 2015-8-29 17:28 | 顯示全部帖子

回復 43# lcctno

SUMPRODUCT函數很慢，需減少使用
A3:A2562 公式範圍太大使用計算變得很慢，實際才使用到A743

建議改為

結果!
A3 =IF(Data!N$2+Data!O$2*(ROW()-4) > Data!K$2, "", Data!N$2+Data!O$2*(ROW()-3))
B3 =IF(A3="",0,SUMPRODUCT((A3<=資料列_最高價)*(A3>=資料列_最低價)))

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089