请问如何用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不能用。

热心网友

虽然你只是简单几句话,但做起来很难。
这个估计需要写代码来实现了!
看看你具体的文件!

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com