[已解决][求助]请高手给实现一个随机产生数的程序

东方智彩 · 发表于 2009-9-17 08:03

如题，详细说明在附件里，谢谢！

Lbl3aUFq.rar (9.03 KB, 下载次数: 1)

amulee · 发表于 2009-9-17 08:31

是不是202行没有出现过的数啊？

amulee · 发表于 2009-9-17 09:15

按我的理解写了一个

Sub MyRnd()
    On Error Resume Next
    With CreateObject("SCRIPTING.DICTIONARY")
        For i = 1 To 15
            If Len(Range("C202").Offset(0, i)) > 0 Then
                .Add Val(Range("C202").Offset(0, i)), CStr(Range("C202").Offset(0, i))
            End If
        Next i
        Do
            .Add Int(Rnd * 15 + 1), "1"
        Loop Until .Count = 8
        Range("D204:R204").ClearContents
        For Each key In .keys
            If Len(Range("C202").Offset(0, key)) = 0 Then Range("C204").Offset(0, key) = "'" & Format(key, "00")
        Next
    End With
End Sub

函数小菜鸟 · 发表于 2009-9-17 10:02

MwdoXWc1.rar (15.4 KB, 下载次数: 8)

东方智彩 · 发表于 2009-9-17 10:29

哈哈，两个程序我都验证过了，都非常的棒，但是函数小菜鸟版主的程序更完美一些，所以这个最佳答案我就对不住amulee老师！谢谢老师和版主了！

oobird · 发表于 2009-9-17 10:34

一个问题，多样解读，呵呵！

nxHtjNOC.rar (14.78 KB, 下载次数: 1)

东方智彩 · 发表于 2009-9-17 10:44

不错！谢谢oobird老师了，程序也很好，可是没有最佳答案了，怎么办呢？

[已解决][求助]请高手给实现一个随机产生数的程序

		自动登录	找回密码
密码			注册

[已解决][求助]请高手给实现一个随机产生数的程序

浏览过的版块