[已解决](求助）为什么每次打开程序后生成的数据都是一样的？

Ex118

打开程序，工作薄内不管有多少张工作表，所生成的数据，不会重复。
但，关闭程序再打开，执行后，所生成的数据，跟第一次打开时，一模一样。
或者这样说：这个程序，发个一百个人，在一百台电脑上使用，生成出来的数据，都是一样的。这很不正常。

如附件 随机数生成附件.rar (81.37 KB, 下载次数: 9)

2012-8-21 22:52 上传

点击文件名下载附件
谢谢各位老师！

最佳答案

月排行榜 / 总排行榜

柳如烟

2012-8-21 23:41

Sub test()
    Dim arr, brr, crr
    Dim i As Long, j As Long, k As Long
    Dim x, y, z, m, n, temp
    x = 49
    y = 163
    z = "7,12"
    m = Val(Split(z, ",")(0))
    n = Val(Split(z, ",")(1))
    ReDim brr(1 To x - 2)
    For i = 1 To x
        If i <> m And i <> n Then
            j = j + 1
            brr(j) = i
        End If
    Next
    For n = 2 To Worksheets.Count    '外面套个循环
        ReDim arr(1 To x - 2, 1 To y)
        For j = 1 To y
            crr = brr
            For i = 1 To x - 2
                Randomize
                k = (Rnd() * (x - 2 - i) + 1) \ 1
                arr(i, j) = crr(k)
                temp = crr(k)
                crr(k) = crr(x - 2 - i + 1)
                crr(x - i - 1) = temp
            Next
        Next
        With Sheets(n)
            .Cells.Clear
            .Range("a1").Resize(x - 2, y) = arr
        End With
    Next
End Sub


这样再试一下。

跳转到最佳答案楼层

柳如烟

Sub test()
    Dim arr, brr, crr
    Dim i As Long, j As Long, k As Long
    Dim x, y, z, m, n, temp
    x = 49
    y = 163
    z = "7,12"
    m = Val(Split(z, ",")(0))
    n = Val(Split(z, ",")(1))
    ReDim brr(1 To x - 2)
    For i = 1 To x
        If i <> m And i <> n Then
            j = j + 1
            brr(j) = i
        End If
    Next
    For n = 2 To Worksheets.Count    '外面套个循环
        ReDim arr(1 To x - 2, 1 To y)
        For j = 1 To y
            crr = brr
            For i = 1 To x - 2
                Randomize
                k = (Rnd() * (x - 2 - i) + 1) \ 1
                arr(i, j) = crr(k)
                temp = crr(k)
                crr(k) = crr(x - 2 - i + 1)
                crr(x - i - 1) = temp
            Next
        Next
        With Sheets(n)
            .Cells.Clear
            .Range("a1").Resize(x - 2, y) = arr
        End With
    Next
End Sub


这样再试一下。

Ex118

快捷干净利索。不愧为国军精英。