求助大佬，如何用vba生成制定总和的随机数

灰色认知

grf1973 发表于 2024-4-28 11:04
这点小事不需要。

我看我的积分发私信和添加好友都受限

笨鸟飞不高

随机分组.zip (18.49 KB, 下载次数: 17)

2024-4-28 12:52 上传

点击文件名下载附件

参考！

灰色认知

笨鸟飞不高 发表于 2024-4-28 12:52
参考！

感谢大佬的鼎力支持，我先学习下，又不懂的在跟您请教

gwjkkkkk

每份的数量应该是不等的吧。。。

micch

从设计思路上，你能实现随机n个数字在指定范围内，并且满足和值是目标值。那么就可以把问题分解成一个个的子问题，子问题解决了，总的问题就解决了

灰色认知

gwjkkkkk 发表于 2024-4-28 20:35
每份的数量应该是不等的吧。。。

对的，每份的数量是随机的，但是有空行分隔或者有白夜班的转换，所以应该能提取出每个块的数量

灰色认知

micch 发表于 2024-4-28 21:06
从设计思路上，你能实现随机n个数字在指定范围内，并且满足和值是目标值。那么就可以把问题分解成一个个的 ...

一开始没想到用什么方式去解决随机数求和的问题，看到大佬的方法就是取不到满意的值调回去重现随机，这一下立马豁然开朗了，感谢大佬的指点

灰色认知

笨鸟飞不高 发表于 2024-4-28 12:52
参考！

大佬，膜拜，学习了两天，又有了新收获，思路果然不一样，强！

zshowell

类似grf1973大大的办法，只是有一点改动：
只是完整 一点点外，如果每组求随机数不多时，一点优势也没有，改for中的i也是不可取的。
Sub 宏1()
    n_time = 6
    sum_rnd = 2.12
    rnd_max = 0.6
    rnd_min = 0.2
    ReDim arr(1 To n_time)
    For i = n_time To 1 Step -1
      If (i * rnd_max < sum_rnd) Or (i * rnd_min > sum_rnd) Then
         If i = n_time Then
            MsgBox ("条件不合理，不会有结果产生！")
            Exit Sub
         Else
            i = i + 1
            sum_rnd = sum_rnd + arr(i)
            arr(i) = 0
         End If
      End If
      If i = 1 Then
         arr(i) = sum_rnd
      Else
         arr(i) = Application.WorksheetFunction.RandBetween(rnd_min * 100, rnd_max * 100) / 100
         sum_rnd = sum_rnd - arr(i)
      End If
    Next
    ii = 0
    showstr = ""
    For i = 1 To n_time
        ii = ii + arr(i)
        If i = 1 Then
            showstr = "" & arr(i)
        Else
            showstr = showstr & "+" & arr(i)
            If i = 6 Then showstr = showstr & "=" & ii
        End If
    Next
    MsgBox (showstr)
End Sub