当前位置:柔美女性网 >

绿色生活 >心理 >

wps2016如何做姓名随机抽取

wps2016如何做姓名随机抽取

wps2016如何做姓名随机抽取

方法如下:1.首先打开或编辑好要进行随机生成姓名的表格。 2.接着可以点击【公式-插入函数】打开插入函数对话框。 3.或者直接在单元格中输入【indirect】函数,这样wps2016就能做姓名随机抽取

第一步,制作抽签界面。

打开WPS表格2009,新建一个空白文档。假设一个年级有20个班,在a1单元格中录入“班主任姓名”,在(a2:a21)单元格区域中录入班主任姓名在b1单元格中录入“抽中班级”,在(b2:b21)单元格区域中录入“未抽签”字样若用e3单元格显示抽签后抽到的班级,则将e3单元格设置合适的边框和字号接着执行“视图→工具→控件工具箱”,单击“命令按钮”,在e3单元格下方插入两个按钮,并在“属性”窗口中设置Caption选项分别为“抽签”和“停止”,名称选项为默认的CommandButton1和CommandButton2。

第二步,为按钮实现其功能。

双击“抽签”按钮,打开代码窗口,输入下列代码(该代码中包含“停止”按钮的代码):

Option Explicit

Dim flag As Boolean, i, j, m As Integer

Private Sub CommandButton1_Click()

flag = True '初始化中断变量 当中断变量为真时开始抽签

tiaozhuan1:

For i = 1 To 20 '假如有20个班

DoEvents '释放程序控制权 允许执行其它事件

For j = 2 To 21 '第2行到21行

If Cells(j, 2) = i Then GoTo tiaozhuan2

Next

Cells(3, 5) = i '即e3单元格显示循环变量的值

If flag = False Then GoTo tiaozhuan3 '如果按下了停止按钮则退出

tiaozhuan2:

Next

If flag = True Then GoTo tiaozhuan1

'如果一次循环结束还没按下停止按钮则进行下一次循环

tiaozhuan3:

For m = 2 To 21

If Cells(m, 2) = "未抽签" Then

Cells(m, 2) = Cells(3, 5)

Exit Sub

End If

Next

End Sub

Private Sub CommandButton2_Click()

flag = False '中断循环

End Sub

现在关闭代码窗口,退出设计模式,一个抽签程序就制作好了。当单击“抽签”按钮,在e3单元格中轮流显示没有被抽中的班级,单击“停止”按钮时e3单元格显示该班主任抽中的班级,并将抽中的班号自动填写到相应的单元格中,该班号不再参与下一轮抽签当下一位班主任单击“抽签”按钮时进行下一轮抽签

用你给出的数组的例子,比如在A2:E7范围内随机提取一个数字,可以使用OFFSET函数。可以在数组外的任意一个单元格输入:

=OFFSET($A$2,RANDBETWEEN(1,5),RANDBETWEEN(1,4))

即可提取区域内任意一个单元格的内容。

因为数据是不规则的,所以用数据范围来挑选比较麻烦,而用随机偏移量,也就是随机指定单元格的方法比较方便。随意单元格的位置随机偏移便是最省最有效也最快速的选择。你可以试一下。

  • 文章版权属于文章作者所有,转载请注明 https://rmnxw.com/lvse/xinli/zww54x.html