Board logo

標題: [發問] 請問1~15的數字,每四各數字一組,在不重複狀況下,如何用vba來運用呢? [打印本頁]
作者: jonn0510    時間: 2011-12-13 22:34     標題: 請問1~15的數字,每四各數字一組,在不重複狀況下,如何用vba來運用呢?

各位老師請教一下:
1~15的數字,每四各數字一組,在不重複狀況下,如何用vba來運用呢?
A   B   C   D
1   2   3   4
1   3   4   5
1   4   5   6
.....
....
....
12 13 14 15

在不重複的狀況下,一共會有1365組,如果用人工輸入會有誤差,該如何運用vba來處理呢?
謝謝
作者: register313    時間: 2011-12-13 23:35

回復 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
複製代碼
作者: jonn0510    時間: 2011-12-14 23:52

回復 2# register313


TO:register313大大
ok!您的方法可以.感謝指導.

另外可以在請教一下.
同上題
若不是像1~15連續碼,而是不連續的方式呢?
例如: 2 3 6 8 9 12 15  這7各號碼,每四各數字一組,在不重複狀況下,又如何用vba來運用呢?
謝謝
作者: register313    時間: 2011-12-15 00:08

回復 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
複製代碼
作者: jonn0510    時間: 2011-12-17 22:09

回復 4# register313

TO:register313大大
ok!您的方法可行.
感謝您指導.
謝謝您



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)