[µo°Ý] ½Ð°Ý1~15ªº¼Æ¦r,¨C¥|¦U¼Æ¦r¤@²Õ,¦b¤£­«½Æª¬ªp¤U,¦p¦ó¥Îvba¨Ó¹B¥Î©O?

jonn0510

¦U¦ì¦Ñ®v½Ð±Ð¤@¤U:
1~15ªº¼Æ¦r,¨C¥|¦U¼Æ¦r¤@²Õ,¦b¤£­«½Æª¬ªp¤U,¦p¦ó¥Îvba¨Ó¹B¥Î©O?
A   B   C   D
1   2   3   4
1   3   4   5
1   4   5   6
.....
....
....
12 13 14 15

¦b¤£­«½Æªºª¬ªp¤U,¤@¦@·|¦³1365²Õ,¦pªG¥Î¤H¤u¿é¤J·|¦³»~®t,¸Ó¦p¦ó¹B¥Îvba¨Ó³B²z©O?
ÁÂÁÂ

register313

¦^´_ 1# jonn0510

   ªì¾ÇªÌVBA

1. Columns("A:D").Clear
   
2. R = 1
   
3. For A = 1 To 12
   
4.   For B = A + 1 To 13
   
5.     For C = B + 1 To 14
   
6.       For D = C + 1 To 15
   
7.          Cells(R, 1) = A
   
8.          Cells(R, 2) = B
   
9.          Cells(R, 3) = C
   
10.          Cells(R, 4) = D
    
11.          R = R + 1
    
12.       Next D
    
13.     Next C
    
14.   Next B
    
15. Next A

½Æ»s¥N½X

jonn0510

¦^´_ 2# register313


TO:register313¤j¤j
ok!±zªº¤èªk¥i¥H.·PÁ«ü¾É.

¥t¥~¥i¥H¦b½Ð±Ð¤@¤U.
¦P¤WÃD
­Y¤£¬O¹³1~15³sÄò½X,¦Ó¬O¤£³sÄòªº¤è¦¡©O?
¨Ò¦p: 2 3 6 8 9 12 15  ³o7¦U¸¹½X,¨C¥|¦U¼Æ¦r¤@²Õ,¦b¤£­«½Æª¬ªp¤U,¤S¦p¦ó¥Îvba¨Ó¹B¥Î©O?
ÁÂÁÂ

register313

¦^´_ 3# jonn0510
   
A1=2 B1=3 C1=6 D1=8 E1=9 F1=12 G1=15

1. R = 2
   
2. For A = 1 To 4
   
3.   For B = A + 1 To 5
   
4.     For C = B + 1 To 6
   
5.       For D = C + 1 To 7
   
6.          Cells(R, 1) = Cells(1, A)
   
7.          Cells(R, 2) = Cells(1, B)
   
8.          Cells(R, 3) = Cells(1, C)
   
9.          Cells(R, 4) = Cells(1, D)
   
10.          R = R + 1
    
11.       Next D
    
12.     Next C
    
13.   Next B
    
14. Next A

½Æ»s¥N½X

jonn0510

¦^´_ 4# register313

TO:register313¤j¤j
ok!±zªº¤èªk¥i¦æ.
·PÁ±z«ü¾É.
ÁÂÁ±z