raymondkentxt的部落格

EXCEL VBA．４９取２～６個號碼組合，輸出列表
　　　　　　　　　　　　　　　　　　　　　　　　　＜．准提部林．＞
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
■程式碼：僅列出組合主程式，餘參考範例檔
　Function 組合(NR, NC)
　Dim j&, x1&, x2&, x3&, x4&, x5&, x6&
　Dim xBrr%(), xNum%(1 To 6), YR&, ZR&
　If NC < 2 Or NC > 6 Or NR > 49 Or NR <= NC Then Exit Function
　YR = Application.Combin(NR, NC)
　ReDim xBrr(1 To YR, 1 To NC)
　For x1 = 1 To NR - NC + 1
　　　xNum(1) = x1
　For x2 = x1 + 1 To NR - NC + 2
　　　xNum(2) = x2:  If NC < 3 Then GoTo 指揮棒高雄鳳山台北松山新莊泰山阿囉哈led總匯
　For x3 = x2 + 1 To NR - NC + 3
　　　xNum(3) = x3:  If NC < 4 Then GoTo 指揮棒高雄鳳山台北松山新莊泰山阿囉哈led總匯
　For x4 = x3 + 1 To NR - NC + 4
　　　xNum(4) = x4:  If NC < 5 Then GoTo 指揮棒高雄鳳山台北松山新莊泰山阿囉哈led總匯
　For x5 = x4 + 1 To NR - NC + 5
　　　xNum(5) = x5:  If NC < 6 Then GoTo 指揮棒高雄鳳山台北松山新莊泰山阿囉哈led總匯
　For x6 = x5 + 1 To NR - NC + 6
　　　xNum(6) = x6
　　　指揮棒高雄鳳山台北松山新莊泰山阿囉哈led總匯: ZR = ZR + 1
　　　For j = 1 To NC: xBrr(ZR, j) = xNum(j): Next
　Next: Next: Next: Next: Next: Next
　組合 = xBrr
　End Function
　
　－－說明－－
　此為〔自訂函數〕，可將程式貼入VBE模組中，
　然後在工作表Ａ１輸入以下公式：
　=INDEX(組合(10,4),ROW(),(COLUMN()))
　
　右拉至Ｄ１，再下刷２１０列，即可產生全部１０取４的組合。　
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜範例檔＞下載：
檔案名稱：20140208a01(49取2至6組合列表).rar
下載連結：http://www.funp.net/469727
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－