请问如何用wps表格制作随机数。
发布网友
共3个回答
热心网友
这个只能使用VBA程序来实现的，毕竟函数公式的随机函数每次刷新只能执行一次，没法执行找到所需的函数结果的。
程序代码如下：
Sub RndNumber()Dim a1, n, x, i, j, k
On Error Resume Next '忽略运行过程中可能出现的错误
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")
a1 = mysheet1.Cells(1, 1) '定义A1单元格
x = 0
If a1 < 1 And a1 >= 0 Then '如果A1单元格的值>=0且<1，则
Do
x = x + 1 '统计循环次数
i = Rnd() 'Rnd随机数为>=0且<1
j = Rnd()
k = Rnd()
n = (i + j + k) / 3 '三个随机数平均值
If n > a1 - 0.005 And n < a1 + 0.005 Then '随机数的平均值在A1值的+-0.005，则
mysheet1.Cells(1, 2) = i '写入B1单元格
mysheet1.Cells(1, 3) = j '写入B1单元格
mysheet1.Cells(1, 4) = k '写入C1单元格
Exit Do '退出Do循环
End If
If x > 300000 Then '如果循环次数大于300000，则强制退出，避免死循环
Exit Do
End If
Loop
End If
End Sub
执行结果如下：
热心网友
通用随机数函数：=RAND()，该函数产生0～1之间的随机数，excel2003也适用。
新增随机数函数：=RANDBETWEEN(a,b)，该函数产生a～b之间的随机数，注意a<b，否则出错。excel2003不能用。
热心网友
虽然你只是简单几句话，但做起来很难。
这个估计需要写代码来实现了！
看看你具体的文件！
