VBA生成和为定值的随机数

VBA生成和为定值的随机数

最近完成了一个VBA小程序，生成和为定值的一系列随机数

在A1:D4区域生成随机数，每行的和等于E列的值
首先我们需要引入第一个函数，计算A1:D4的和
Application.Sum(Range(“A1:D1”))
Range(“A1:D1”)是对单元格A1:D4的引用（也可以用[A1:D4]代替），可以表示值range().value，也可以表示单元格的宽和高等属性
我们加入循环语句，条件为A1:D4的和是否等于E1
Do Until Application.Sum(Range(“A1:D1”)) = Cells(1, 5)
我们再加入一个随机数函数Randomize，Rnd()，用For循环遍历A1:D4中每个元素
Randomize
For Each r In Range(“A1:D1”)
r.Value = Int(Rnd() * 10) + 1
Next
这样第一行的条件随机数就完成了，想看生成三行随机数代码的同学请点下面链接
VBA源文件