看板 [ Office ]
討論串[算表] Excel:49取6 亂數列出1000筆組合(大樂透)
共 4 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#4
Re: [算表] Excel:49取6 亂數列出1000筆組合(大樂透)
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者JieJuen (David)時間17年前 (2008/09/21 00:37), 編輯資訊
0
0
1
內容預覽:
由於原提問者還有疑問. 進一步說明如下. 我們只要專注於一條式子就好了 I1. =RANK(LARGE($A1:$F1,COLUMN(A:A)),$A1:$G7). 這條. 其他以此題來說都只是錦上添花~. 先看此式. =RANK(LARGE($A1:$F1, 1 ),$A1:$G7). 與上式會算
(還有219個字)
#3
Re: [算表] Excel:49取6 亂數列出1000筆組合(大樂透)
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者JieJuen (David)時間17年前 (2008/09/20 20:22), 編輯資訊
0
0
1
內容預覽:
嗯 感謝提供 ^^. 這是屬於第一種. "簡單型的 連一筆49取6都可能重覆 若重覆了就要換(i-1)". 好處就是程式碼短，容易看懂~. 隱藏的缺點就是如果49取48就會比較難算. 另外，如果我沒理解錯誤的話. 仍無法避免各筆之間的重覆(例如k=5和k=995剛好取到一樣的6個數). 目前除了全列
(還有143個字)
#2
Re: [算表] Excel:49取6 亂數列出1000筆組合(大樂透)
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者chungyuandye (養花種魚數月亮賞星星)時間17年前 (2008/09/20 08:19), 編輯資訊
0
0
2
內容預覽:
Sub lotto(). Dim Fn As Object. Set Fn = Application.WorksheetFunction. For k = 1 To 1000. For i = 1 To 6. Cells(k, i) = Fn.RoundUp(Rnd * 49, 0). For j
(還有87個字)
#1
[算表] Excel:49取6 亂數列出1000筆組合(大樂透)
推噓0(0推 0噓 1→)留言1則，0人參與, 最新作者JieJuen (David)時間17年前 (2008/09/20 05:03), 編輯資訊
0
0
1
內容預覽:
原題： #18q-ePtR (ask). 49取6，亂數列出1000筆。 (無特別號). http://2y.drivehq.com/p/get6in49.rar. 此題的特色是 總共的組合數13983816. 取1000組微不足道;另一方面若要先全列出再從中取亂數1000筆，則十分辛苦。. 不知V
(還有430個字)
首頁
上一頁
1
下一頁
尾頁