咔片PPT · AI自动生成演示文稿,模板丰富、排版精美 讯飞智文 · 一键生成PPT和Word,高效应对学习与办公

内容导航:


一、手机wps表格怎么制作抽奖


  • 第一步:首先我们确定前期的数据,比如说要将最终抽到的奖品的名称显示出来,输入奖品名称。

    请点击输入图片描述

  • 第二步:然后制作显示抽奖结果的界面。

    请点击输入图片描述

  • 第三步:在抽奖显示框中插入函数一个随机函数randbetween().因为我设置的奖项只有6项,所以取值范围可以设置randbetween(1,6).

    请点击输入图片描述

  • 第四步:因为要获取奖品的名称,所以需要再插入一个获取索引值得函数index(数据范围,索引值)。所以我们可以将index函数把随机函数包裹住:

    index(数据范围,randbetween(1,6))

    请点击输入图片描述

  • 第五步:为了动态显示抽奖的过程,我们可以将奖品名称进行突出显示。选中所有奖品名称,点击“开始”菜单下的“条件格式”下的“突出显示单元格规则”。

    请点击输入图片描述

  • 第六步:在“单元格规则”下选择“等于”,然后用鼠标点击抽奖结果所在单元格,既抽奖结果显示的值和奖品名称比较,如果和抽奖结果一致,则奖品名称突出显示。

    请点击输入图片描述

  • 第七步:设置好以后,按住键盘上的F9键执行操作,直到松开F9键,就会产生抽奖结果。

    请点击输入图片描述

  • 总结:

    1、首先设置好抽奖名称和抽奖显示区域

    2、首先在抽奖显示区域插入随机函数randbetween(最小值,最大值)

    3、然后在随机函数的外面包裹一个获取索引名称的函数index(数据区域,索引值)

    4、为了能够动态显示抽奖的变化状态,设置抽奖名称的突出显示格式

    5、既条件就是抽奖结果,过程就是抽奖名称数据区域

    6、设置好后,按住F9键进行抽奖,松开按键既停止。



二、如何用WPS的excel表制作摇号抽奖


先看上面的示例:

在A2至A14列输入所有人名,在B2输入公式:

=RAND()

并下拉拖到B14.

然后在E2中输入公式:

=INDEX($A$2:$A$14,RANK(B2,$B$2:$B$14))

并下拉拖出三行。

按F9摇奖,单按一次,会随机提取出三个人名。

如果按下F9不放,就会实现人名滚动的效果,松开F9后人名停止滚动。

提取出来的人名重复的机率是一亿分之一,一般不会提取到重复人名,

退一万步讲,如果摇出重复人名,可以放弃这次摇奖,重新按F9摇奖。



三、请问如何用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

执行结果如下: