excel表格中如何使随机数相加成一个固定值-excel随机数固定值,excel随机数怎么固定不变

Option Explicit

Function getRandom(total As Integer, max As Integer, num As Integer) As Boolean
'total是最后要得到的总和,max是最大不能超过的数，num是产生多少个随机数
Dim ranNum As Single '随机数
Dim leftNum As Single '剩余数
Dim conNumTotal As Single '确定的剩余数
Dim i As Integer

'判断条件是否满足
getRandom = True
If max * num < total Then
'根本就不可能满足条件，直接退出
getRandom = False
Exit Function
End If

conNumTotal = 0

For i = 1 To num - 1 Step 1
DoEvents
Randomize '随机化
'很显然地所有的ranNum都满足小于max的条件
ranNum = Rnd() * max '产生随机数
'判断当前数据的合理性
leftNum = total - conNumTotal - ranNum
If max * (num - i) < leftNum Then
'无法满足基本要求，退回序列
i = i - 1
Else
'满足要求，继续
conNumTotal = conNumTotal + ranNum
Debug.Print ranNum
End If
'自行处e79fa5e98193e4b893e5b19e334理产生的ranNum
Next i
'最后一个随机数
ranNum = total - conNumTotal
Debug.Print ranNum
debug.print "over"
'由于最后一个数
End Function

Sub a()
getRandom 200, 11, 20
End Sub

1、打开百Excel，选中你想加上随机数的单元格。  

2、在选中度的单元格里，按照此知公式“=B2+RANDBETWEEN(3,11)”，选中你想加的原始数据：=B2。  

3、随后，按照此公式“=B2+RANDBETWEEN(3,11)”，紧接输入：+RANDBETWEEN。  

4、最后，按照此公式“=B2+RANDBETWEEN(3,11)”，紧接输入：(3,11)。  

5、公式输入完成后，点道击回车键，即可得到原始数据与一个随机数据相加的结果了。  

6、将鼠标放版在该单元格右下角，直到出现+号样式，往下拉，即可进行权批量相加。

如果X,Y,Z可以是任何整数值的话，随意推荐一百个方法：
A1，B1,C1中分别输入：
=INT(RAND()*10)
=INT(RAND()*10)
=10-A1-B1
下拉各组公式即可度

补充：
下次问题说版清楚，刚权刚楼下的方法可行，但不完全如没有6，3，1组合
我稍后看看

改进如下：
A1，B1,C1中分别输入：
=INT(RAND()*10)
=INT(RAND()*(10-A1))
=10-A1-B1
下拉各组公式即可

专业化形象公式：=int(20*Rnad())

标准动作公式：=int(70(Rand())
音乐配合公式：=固定数－专业化形象标准动作
然后，三个公式一起下拉即可。