请教老师用VBA，按随机数量值，自动生成随机数量并显示减少的数，谢谢！

cartel

请教老师用VBA，按随机数量值，自动生成随机数量并显示减少的数，谢谢！.zip (11.72 KB, 下载次数: 10)

2024-5-8 13:01 上传

点击文件名下载附件

cartel

老师们好！
请老师帮忙写个代码，谢谢！

gwjkkkkk

Q行数据是给定的吗？

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, cr, dr, er, i&, j&, iMax&
   
    Application.ScreenUpdating = False
   
    ar = Range("P1", Cells(Rows.Count, "Q").End(xlUp)).Value
    ReDim br(1 To UBound(ar), 1)
    For i = 1 To UBound(ar)
        cr = Split(ar(i, 1), ",")
        dr = RndNumCount(0, UBound(cr), CLng(ar(i, 2)))
        ReDim er(1 To ar(i, 2))
        For j = 1 To UBound(dr)
            er(j) = cr(dr(j))
        Next j
        br(i, 0) = Join(er, ",")
        If ar(i, 2) > iMax Then iMax = ar(i, 2)
    Next i
   
    dr = RndNumCount(0, iMax, UBound(br))
    For i = 1 To UBound(dr)
        br(i, 1) = dr(i)
    Next i
   
    [R1].Resize(UBound(br), 2) = br
    Application.ScreenUpdating = True
    Beep
End Sub

Function RndNumCount(MinNum&, MaxNum&, CountNum&)
    Dim i&, n&, ar, xNum&, temp&

    Application.Volatile
    If MaxNum < MinNum Then temp = MaxNum: MaxNum = MinNum: MinNum = temp
    If CountNum > MaxNum - MinNum + 1 Then RndNumCount = "无解": Exit Function
    ReDim ar(1 To CountNum): n = 1
    Randomize
    Do While n <= CountNum
        xNum = Int((MaxNum - MinNum + 1) * Rnd + MinNum)
        ar(n) = xNum
        For i = 1 To n
            If ar(i) = xNum Then Exit For
        Next i
        If i = n Then n = n + 1
    Loop
    RndNumCount = ar
End Function

gwjkkkkk

请参考附件。。。

cartel

jkkkkk老师，你好！
Q行数是可任意调节，
如果减少的数是1个那么每行减少的数不要重复，
如果减少的数是2个或多个，是可以重复的，
谢谢！

cartel

gwjkkkkk 发表于 2024-5-8 20:27
请参考附件。。。

jkkkkk老师，你好！
可能是我表达没清楚，我要的是
一，P每行 是原始数21个,Q的数量值20，那么就在R行随机生成20个原始的数，
二，就是R行随机生成20个原始的数，比原始数减少一个，
三，减少的一个数，每行不要是重复

gwjkkkkk

如果P，R行都一样，那好算一点，如果P和R均随机，那有可能没有结果或生成时间较长，比较难写。。。

cartel

gwjkkkkk 发表于 2024-5-8 21:20
如果P，R行都一样，那好算一点，如果P和R均随机，那有可能没有结果或生成时间较长，比较难写。。。

gwjkkkkk老师好！
P行是原始数，有21个数0-20，不是随机数，
R行是按Q值20，来生成20个随机数，
就是P行21,R行20，少一个数，主要是R每行少一个数不重复
谢谢老师！

gwjkkkkk

cartel 发表于 2024-5-8 22:00
gwjkkkkk老师好！
P行是原始数，有21个数0-20，不是随机数，
R行是按Q值20，来生成20个随机数，

。。。。。。。。。。。