求助(十萬火急)

samolyang

將1到36共36個數字,任意取7個數字組合,將組合明細存檔

請各位大俠提供!!!

方漠

呵呵，又一彩迷，36选7。

方漠

打开EXCEL，按ALT+F11，然后选菜单《插入》--《模块》，再COPY以下代码即可以在工作表生成十组随机的代码，GOOD LUCK！

Sub DrawLucky()
Dim Rrow, Ccol As Long
Dim L, I As Integer

For Rrow = 1 To 10

For Ccol = 1 To 7
   
   L = Int(36 * Rnd)
   If L = 0 Then L = 36

ReCheck:
   For I = 1 To Ccol
      If Cells(Rrow, I).Value = L Then
        L = Int(36 * Rnd)
        If L = 0 Then L = 36
        GoTo ReCheck
      End If
   Next I
  
   Cells(Rrow, Ccol).Value = L

Next Ccol

Next Rrow

End Sub

samolyang

謝謝

但是我不只是要10組,是要所有組的

能否再幫忙解決

另外,最好每條組合讓他按升序.這樣我方便刪選.

[此贴子已经被作者于2006-10-29 16:08:57编辑过]