[已解决]随机号码组的生成

aaasdfg12

哪位老师能帮助写一随机号码组生成的代码。不胜感激！

附件有说明。

KKnlm45E.zip (4.51 KB, 下载次数: 0)

2010-9-8 07:51 上传

点击文件名下载附件
[求助] 随机号码组的生成

[此贴子已经被作者于2010-9-8 13:24:31编辑过]

最佳答案

月排行榜 / 总排行榜

小福贵

2010-9-8 09:07

ezXas7Cn.rar (10.5 KB, 下载次数: 9)

2010-9-8 09:06 上传

点击文件名下载附件
[求助] 随机号码组的生成
Sub suiji()
  Dim d As Object, arr1(1 To 49), ARR2(1 To 49)
  Set d = CreateObject("scripting.dictionary")
  Do
    K = Int(Rnd() * 33 + 1)
    d(K) = ""
  Loop Until d.Count = 33
 ARR = d.keys
 SR = Join(Array(1, 2, 3, 8, 9, 14, 15, 20, 21, 26, 27, 32, 33, 38, 39, 44, 45, 46), "-")
 For X = 1 To 49
   If InStr(SR, "-" & X & "-") > 0 Then
     arr1(X) = ""
   Else
     R = R + 1
     arr1(X) = ARR(R - 1)
   End If
 Next X
 Sheets("表1").Range("k5").Resize(1, 49) = arr1
End Sub

跳转到最佳答案楼层

爱疯

执行1次，红框里的数字（1到33，33个不重复数），就变化1次，是吗？

[em09]

aaasdfg12

每按一次 表2 的按钮，更新一组33个号码就行。

小福贵

ezXas7Cn.rar (10.5 KB, 下载次数: 9)

2010-9-8 09:06 上传

点击文件名下载附件
[求助] 随机号码组的生成
Sub suiji()
  Dim d As Object, arr1(1 To 49), ARR2(1 To 49)
  Set d = CreateObject("scripting.dictionary")
  Do
    K = Int(Rnd() * 33 + 1)
    d(K) = ""
  Loop Until d.Count = 33
 ARR = d.keys
 SR = Join(Array(1, 2, 3, 8, 9, 14, 15, 20, 21, 26, 27, 32, 33, 38, 39, 44, 45, 46), "-")
 For X = 1 To 49
   If InStr(SR, "-" & X & "-") > 0 Then
     arr1(X) = ""
   Else
     R = R + 1
     arr1(X) = ARR(R - 1)
   End If
 Next X
 Sheets("表1").Range("k5").Resize(1, 49) = arr1
End Sub

aaasdfg12

谢谢小福贵老师，非常的好！