返回列表 上一主題 發帖

[發問] 請問1~15的數字,每四各數字一組,在不重複狀況下,如何用vba來運用呢?

jonn0510

帖子
38 
主題
13 
精華
0 
積分
84 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-12-10 
最後登錄
2021-7-18 

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
1# 跳轉到 » 正序看帖
打印
tT
發表於 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來處理呢?
謝謝
收藏 分享
感謝各位老師花心思教導

jonn0510

帖子
38 
主題
13 
精華
0 
積分
84 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-12-10 
最後登錄
2021-7-18 

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
5#
發表於 2011-12-17 22:09 | 只看該作者
回復 4# register313

TO:register313大大
ok!您的方法可行.
感謝您指導.
謝謝您
感謝各位老師花心思教導

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
4#
發表於 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
複製代碼

TOP

jonn0510

帖子
38 
主題
13 
精華
0 
積分
84 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-12-10 
最後登錄
2021-7-18 

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
3#
發表於 2011-12-14 23:52 | 只看該作者
回復 2# register313


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

另外可以在請教一下.
同上題
若不是像1~15連續碼,而是不連續的方式呢?
例如: 2 3 6 8 9 12 15  這7各號碼,每四各數字一組,在不重複狀況下,又如何用vba來運用呢?
謝謝
感謝各位老師花心思教導

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 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
複製代碼

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題