根据相关概率填写指定内容

Dragonfly7995

在range（"B1:B10")里随机填写3个“优”，5个“中”，2个“差”，优中差总体数量不变，但出现位置随机，请指教，谢谢！

Dragonfly7995

附件在此，刚刚漏了，现在上传

无敌小猪猪

仅供参考！

Dragonfly7995

无敌小猪猪 发表于 2024-4-3 10:49
仅供参考！

如果不是图片更好

gwjkkkkk

Option Explicit
Sub test1()
    Dim br, i&
    br = Array("优", "优", "优", "中", "中", "中", "中", "中", "差", "差")
    Call arrGetRnd1(br)
    [A2].Resize(, UBound(br) + 1) = br
End Sub

Function arrGetRnd1(ByRef ar)
    Dim xNum&, i&, n&, vTemp
    Randomize
    n = UBound(ar)
    For i = 0 To UBound(ar)
        xNum = Int((n - i + 1) * Rnd() + i)
        vTemp = ar(xNum): ar(xNum) = ar(i): ar(i) = vTemp
    Next
End Function

gwjkkkkk

请参考附件。。。

准提部林

就是將數組打亂//...by.准提部林

Sub Test_a1()
arr = [{"优";"优";"优";"中";"中";"中";"中";"中";"差";"差"}]
Randomize
For i = UBound(arr) To 2 Step -1
    r = Int(Rnd * i) + 1
    t = arr(r, 1)
    arr(r, 1) = arr(i, 1)
    arr(i, 1) = t
Next i
[a1].Resize(UBound(arr)) = arr
End Sub

一招秒杀

SQL 1句2行，这代码是不是比前面的都要简单太多了？
当处理与数据库相关的任务时，使用SQL通常比使用VBA编写复杂的逻辑更加高效和可靠。SQL作为第四代语言（4GL），通过提供高级别的抽象和简化数据操作，使得开发人员能够更专注于业务逻辑的实现，而不是底层的数据处理细节。