Question

EXCEL怎样设计5个随机变量a1,a2,a3,a4,a5和等于一个固定数A,且这几个变量都要大于4, 求多组解，

a1,a2,a3,a4,a5 5个数求和，比如59为A，随机出一组a1=10,a2=11,13=10,a4=12,a5=16,ai若能大于四或等于零更好

Answer 1

A1单元格输入总数，a2~a6就是5个随机数。
按ALT+F11，将下列代码复制粘贴到VBA窗口，插入-模块，粘贴一下运行
Sub SJ()
A = Cells(1, 1)
N = A / 10
LINE1: Cells(2, 1) = Int(Rnd() * A / 5) + Int(Rnd() * N)
If Cells(2, 1) < 5 Then
GoTo LINE1
End If
LINE2: Cells(3, 1) = Int(Rnd() * (A - Cells(2, 1)) / 4) + Int(Rnd() * N)
If Cells(3, 1) < 5 Then
GoTo LINE2
End If
LINE3: Cells(4, 1) = Int(Rnd() * (A - Cells(2, 1) - Cells(3, 1)) / 3) + Int(Rnd() * N)
If Cells(4, 1) < 5 Then
GoTo LINE3
End If
LINE4: Cells(5, 1) = Int(Rnd() * (A - Cells(2, 1) - Cells(3, 1) - Cells(4, 1)) / 2) + Int(Rnd() * N)
If Cells(5, 1) < 5 Then
GoTo LINE4
End If
Cells(6, 1) = A - (Cells(2, 1) + Cells(3, 1) + Cells(4, 1) + Cells(5, 1))
End Sub

Answer 2

a1=int(rand()*A)
a2=int(rand()*(A-a1)
a3=int(rand()*(A-a1-a2))
a4=A-a1-a2-a3
若要a1大于4 则 a1=int(rand()*(A-4)+4)其余不变
若要a1等于0，则a1=0 其余不变

Answer 3

excel生成随机数 （http://zhidao.baidu.com/question/215307913.html）
RAND() 介于 0 到 1 之间的一个随机数(变量) =RAND()*100 大于等于 0 但小于 100 的一个随机数(变量) excel 产生大于4得数，随机数公式 =RAND()+4 要取整可以用=int(RAND()*+4)，在设置有效性，例用 excel 在 B1 单元个里创建一个 50-80 的随机数且这个随机数要大于 A1 单元个里的数 值,请教大家如何编写公式! 整数:=ROUND(RAND()*(80-MAX(50,A1+1))+MAX(50,A1+1),0)