累加問題

v60i

B2=1
C2=2
D2=20
E2=1000
F2=B2+C2  →3
F3=F2+C2  →5
F4=F3+C2  →7
.
.
.
F10=F9+C2  →19
F11=B2+C2  →3
F12=F11+C2  →5
F13=F12+C2  →7
.
.
.
以上F列為傳統手動寫法

請問有什麼進階方法可以讓
F 排中的值如果大於D2=20
就自動回復成F2,F3,F4循環下去呢?
而且循環不超過E2=1000

register313

是這樣麼 Book1.rar (1.66 KB)

下載次數: 8

2011-11-8 09:11

GBKEE

回復 1# v60i
F2=IF(ROW()-ROWS($F$2)<$E$2,IF(OR((F1+$C$2)>$D$2,F1=0),$B$2+$C$2,F1+$C$2),"")    公式下拉

howdyisme

回復 3# GBKEE


   

下載 (439.89 KB)

2011-11-8 15:54

奇怪，我的跑不出來....

GBKEE

回復 4# howdyisme
附檔來看看

v60i

回復 2# register313


    謝謝大大的熱心
可是我事小學生 無法下載
囧

v60i

回復 3# GBKEE


  大大你的方法 F2 會少一個耶
E2=11
F2~F11 只會出現10個
希望是出現F2~F12 共11欄

Hsieh

回復 6# v60i


    不懂所謂不超過E2=1000是甚麼意思
F欄的數值跟E2有甚麼關聯?

下載 (12.96 KB)

2011-11-8 22:41

v60i

E2 的值=F排中出現的次數

如E=10 則 出現F2~F11 均有直 F11後無值
如E=20 則 出現F2~F21 均有直 F21後無值

Hsieh

1. Sub yy()
   
2. k = [E2]
   
3. ReDim ar(k)
   
4. Do While i < k
   
5.    For j = [B2] + [C2] To [D2] Step [C2]
   
6.      ar(i) = j
   
7.      i = i + 1
   
8.      If i = k Then Exit For
   
9.    Next
   
10. Loop
    
11. [F:F] = ""
    
12. [F2].Resize(k, 1) = Application.Transpose(ar)
    
13. End Sub

複製代碼

回復 9# v60i