²Ö¥[°ÝÃD

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
.
.
.
¥H¤WF¦C¬°¶Ç²Î¤â°Ê¼gªk

½Ð°Ý¦³¤°»ò¶i¶¥¤èªk¥i¥HÅý
F ±Æ¤¤ªº­È¦pªG¤j©óD2=20
´N¦Û°Ê¦^´_¦¨F2,F3,F4´`Àô¤U¥h©O?
¦Ó¥B´`Àô¤£¶W¹LE2=1000

register313

¬O³o¼Ë»ò Book1.rar (1.66 KB)

¤U¸ü¦¸¼Æ: 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),"")    ¤½¦¡¤U©Ô

howdyisme

¦^´_ 3# GBKEE


   

¤U¸ü (439.89 KB)

2011-11-8 15:54

©_©Ç¡A§Úªº¶]¤£¥X¨Ó....

GBKEE

¦^´_ 4# howdyisme
ªþÀɨӬݬÝ

v60i

¦^´_ 2# register313


    ÁÂÁ¤j¤jªº¼ö¤ß
¥i¬O§Ú¨Æ¤p¾Ç¥Í µLªk¤U¸ü
ʨ

v60i

¦^´_ 3# GBKEE


  ¤j¤j§Aªº¤èªk F2 ·|¤Ö¤@­Ó­C
E2=11
F2~F11 ¥u·|¥X²{10­Ó
§Æ±æ¬O¥X²{F2~F12 ¦@11Äæ

Hsieh

¦^´_ 6# v60i


    ¤£À´©Ò¿×¤£¶W¹LE2=1000¬O¬Æ»ò·N«ä
FÄ檺¼Æ­È¸òE2¦³¬Æ»òÃöÁp?

¤U¸ü (12.96 KB)

2011-11-8 22:41

v60i

E2 ªº­È=F±Æ¤¤¥X²{ªº¦¸¼Æ

¦pE=10 «h ¥X²{F2~F11 §¡¦³ª½ F11«áµL­È
¦pE=20 «h ¥X²{F2~F21 §¡¦³ª½ F21«áµL­È

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

½Æ»s¥N½X

¦^´_ 9# v60i