多批次人员生成固定值随机数

loveshailyu

各位大神，现有如下问题求助：

1、有批次人员清单，每批次有一个批次数 如1号批次总和数为   35；
2、根据批次生成 每人对应的   随机数 ，该批次随机数  总和应为35，随机数保留  小数点后   2位

因为有多个批次人员 ，每个批次 总和数不同，希望能一个代码能解决。


在此求助大神，论坛其他帖子也找了半天 没看懂来着=- =

loveshailyu

麻烦各位大神的协助

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, n, sum
  arr = Range("a2:b" & [a2].End(xlDown).Row) '34个数
  Randomize
  sum = ubound(arr,1)
  For i = 1 To UBound(arr, 1) - 1
    n = Round(0.5 + Rnd, 2) '0.5-1.5范围
    arr(i, 1) = n
    sum = sum - n
    If i = UBound(arr, 1) - 1 Then
      If sum >= 0.5 Then
        arr(i + 1, 1) = sum
      Else
        sum = UBound(arr, 1): i = 0
      End If
    Else
      If sum <= 0 Then sum = UBound(arr, 1): i = 0
    End If
  Next
  [b2].Resize(UBound(arr, 1)) = arr
End Sub

loveshailyu

一把小刀闯天下 发表于 2020-3-5 13:31
Option Explicit

Sub test()

感谢您的回复，验证了一下貌似不对，因为这个需要的是   和值  需要等于  一个固定值， 随着人员数量的不同 和值 也会改变，，但是  随机数 随机生成    一直都会等于    总和数  

一把小刀闯天下

如果人数随机但合数固定，那产生的号必须要有规则，就是范围，不然很容易无解，或者这种解一看就是不正常的，，，

loveshailyu

一把小刀闯天下 发表于 2020-3-5 13:46
如果人数随机但合数固定，那产生的号必须要有规则，就是范围，不然很容易无解，或者这种解一看就是不正常的 ...

每个批次的人员 数量 不一样   有可能有50人，这时候 和值 变成了 100，有可能40人，和值变成了20，，=- =尴尬。    是不是可以做一个批次出来    然后 其他的   手动改一下和值   

grf1973

用递归，简单明了。

loveshailyu

grf1973 发表于 2020-3-5 14:27
用递归，简单明了。

太棒了，简直了，  您真是我的偶像

grf1973

不递归，直接生成，效率更高一点，但有可能中间和值超过总数。

1. Sub test1()
   
2.     n = 34: vsum = 35
   
3.     myavg = vsum / n
   
4.     ReDim arr(1 To n)
   
5. st:
   
6.     s = 0
   
7.     For i = 1 To n - 1
   
8.         arr(i) = Round(Rnd * myavg + 0.5 * myavg, 2)
   
9.         s = s + arr(i)
   
10.         If s > vsum Then GoTo st
    
11.     Next
    
12.     arr(i) = vsum - s
    
13.     [c2].Resize(n) = Application.Transpose(arr)
    
14. End Sub

复制代码

loveshailyu

各位大神
目前又做了一个神奇的调整

以上为一整批次数据，根据“每日金额数据”中 批次每日领取金额，制作随机数；
随机数总和不大于 当天 该批次领取金额数据。

不晓得有没有大神能帮忙