请教如何产生非时间性的随机数？

zshowell

最近写了一段代码，但每一次结果都一样，想问一下，这是不是时间性随机数导致的结果，有其他方法吗？

由于代码比较多，所以简化表示一下：
前题，在某单据表中取出当月开具的所有票据的日期，然后去重把序好到一个字典中：dic
    arr_x = Application.Transpose(dic.keys)
    i = dic.Count
    Set dic = Nothing
   
    Sheets("临时表").Select
    Range("B1").Select
    For ii = 1 To loopi
        Range("B" & ii).Value = arr_x(Int((Rnd * i) + 1), 1)
    Next

然后在B列中对乱序的日期进行排序
    Columns("B:B").Select
    ActiveWorkbook.Worksheets("临时表").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("临时表").Sort.SortFields.Add Key:=Range("B1:B" & loopi), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("临时表").Sort
        .SetRange Range("B1:B" & loopi)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

结果却完全一样，各个日期出现的次数都变成固定的，只有在调试模式下，在fox rnd中手工运行下一步才会得到不一致的结果，请教各位大大，有办法解决吗？

zshowell

比如说， 1月1日出现5次，1月10日出现6次，1月22日出现3次，每运行一次都是这个结果“1月1日出现5次，1月10日出现6次，1月22日出现3次"，这样就只能说出现顺序变了，但出现数量不顺机了

zshowell

比如说， 1月1日出现5次，1月10日出现6次，1月22日出现3次，每运行一次都是这个结果“1月1日出现5次，1月10日出现6次，1月22日出现3次"，这样就只能说出现顺序变了，但出现数量不顺机了

山菊花

在过程开头加入随机种子语句：

Randomize
For ii = 1 To loopi
    Range("B" & ii).Value = arr_x(Int((Rnd * i) + 1), 1)
Next

zshowell

山菊花 发表于 2024-4-29 18:02
在过程开头加入随机种子语句：

Randomize

谢谢大大，每次都有变化了，
难道，vba中保存了某个程序使用随机数的“纹路”？  这程序是半个月前运行过一次，今天运行才发现完全一样的
Randomize的作用是打散了已存储的随机”纹路“？

hcm19522

E2{=INDEX(B:B,SMALL(IF(C$2:C$4>=COLUMN(A:Z),{2;3;4},99),ROW(A1)))&""

F2區域數組公式{=INDEX(B:B,RIGHT(SMALL(IF(C2:C4>=COLUMN(A:Z),RANDBETWEEN(({2;3;4}*26-16+COLUMN(A:Z))^0,999)/1%+{2;3;4}),ROW(INDIRECT("1:"&SUM(C2:C4))))))

F2:F17格式化 字色白=ISNA(F2)

zshowell

查了此指令，百度结果留个印：
1 VBA中直接使用 rnd，是一个公式计算出来的模拟（伪随机）
2 伪随机数会带来什么问题：永远是同一组随机数
如果想每次生成的随机数，本次程序运行结束前都一样，下次计算时不一样。就用  randmize  和 rnd(0)
如果想永远生成不同的随机数，无论是序列内，还是在不同的环境重新运行都不同，就用   randmize  和 rnd(1) 或 randmize 和 rnd  缺省就可以。

zshowell

hcm19522 发表于 2024-4-29 18:26
E2{=INDEX(B:B,SMALL(IF(C$2:C$4>=COLUMN(A:Z),{2;3;4},99),ROW(A1)))&""

F2區域數組公式{=INDEX(B:B,RI ...

谢谢你的帮助，这种指定出现次数的随机单元格出现的方法，原来还可以使用公式来实现，开眼界了。

hcm19522

zshowell 发表于 2024-4-29 18:45
谢谢你的帮助，这种指定出现次数的随机单元格出现的方法，原来还可以使用公式来实现，开眼界了。:lovelin ...

(後段多取 無須格式化) F2區域數組公式{=IFERROR(INDEX(B:B,RIGHT(SMALL(IF(C2:C4>=COLUMN(A:Z),RANDBETWEEN(({2;3;4}*26-16+COLUMN(A:Z))^0,999)/1%+{2;3;4}),ROW(1:99)))),"")