wps表格随机数公式(请问如何用wps表格制作随机数)

本文目录
请问如何用wps表格制作随机数
这个只能使用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
执行结果如下:
wps表格10个单元格中随机三个单元格生成随机数
A1中空着,A2中输入
=IF(RAND()《=(3-SUMPRODUCT(N(A$1:A1《》"")))/(11-ROW(A1)),1+INT(10*RAND()),"")
用自动填充柄将A2下拉到A11,就可以了,随机数范围没有指定,这里是1-10的整数,如果不对,自己改一下1+INT(10*RAND())这个部分。
WPS表格怎么弄一个随机数
①A2输入:=IF(RAND()《=0.5,CHAR(RANDBETWEEN(65,90)),CHAR(RANDBETWEEN(48,57)))
横向拖动复制公式至AD2
②AE2输入:=CONCATENATE(A2,B2,C2,D2,E2,F2,G2,H2,I2,J2,K2,L2,M2,N2,O2,P2,Q2,R2,S2,T2,U2,V2,W2,X2,Y2,Z2,AA2,AB2,AC2,AD2)
即可生成一个30位随机混合字母数字

更多文章:
form表单制作(为什么制作的form表单会在网页显示中多出一行)
2026年10月11日 09:10
teammate(teammate,company,partner)
2026年10月11日 06:10
javascript arraybuffer(javascript可以把base64编码转换成二进制代码吗求示例代码!)
2026年10月11日 04:00
text函数公式(excel中round和text函数的区别是什么)
2026年10月11日 03:50
google chrome打不开(chrome浏览器打不开怎么回事 浏览器打不开的处理方法)
2026年10月11日 02:00
websocket整合springboot(Springboot整合Websocket遇到的坑)
2026年10月11日 01:40
drawerlayout(android 怎样让drawerlayout设置的侧滑菜单的内容充满屏幕)
2026年10月10日 19:20
xor四位数怎么运算(单片机怎样用C语言实现4个数字间的异或)
2026年10月10日 17:50




