0929 能用WPS表格中的函数做一个随机点名吗？

今天学习WPS表格的函数，突发奇想，能用WPS表格中的函数做一个随机点名吗？怎么做呢，问了下ｋｉｍｉ，好象是可以做的，那先保存下来，以后有时间再慢慢探究。

我是一名教师，现在想用ＷＰＳ表格的ｒａｎｄｂｅｔｗｅｅｎ　ｉｎｄｅｘ　ｒａｎｄ　ｒａｎｋ等函数来做一个抽学生背书和答题的可以在一体机上用的，请问怎么做？

使用WPS表格中的`RANDBETWEEN`、`INDEX`和`RAND`函数，你可以创建一个随机抽选学生背书和答题的系统。以下是步骤：

1. **创建学生名单**：

  - 在一个单元格区域内列出所有学生的名字。假设学生名字位于A列，从A2开始到A最后一行。

2. **使用`RANDBETWEEN`和`INDEX`函数随机抽选**：

  - 在B2单元格中输入以下公式，用于随机选择一个学生的名字：

    ```excel

    =INDEX(A2:A100, RANDBETWEEN(1, COUNTA(A2:A100)))

    ```

  - 这个公式会从A2到A100的范围内随机选择一个学生的名字。`COUNTA(A2:A100)`会计算A列中非空的单元格数量，`RANDBETWEEN(1, COUNTA(A2:A100))`会生成一个1到学生总数之间的随机数。

3. **使用`RAND`函数随机抽选题目**：

  - 假设你有一个题目列表在C列，从C2开始。

  - 在D2单元格中输入以下公式，用于随机选择一个题目：

    ```excel

    =INDEX(C2:C100, RANDBETWEEN(1, COUNTA(C2:C100)))

    ```

  - 类似地，这个公式会从C2到C100的范围内随机选择一个题目。

4. **创建一个按钮触发随机选择**：

  - 在WPS表格中，你可以插入一个形状或者按钮，然后分配宏来执行随机选择。

  - 插入形状或按钮后，右键点击它，选择“分配宏”，然后创建一个新的宏。

  - 在宏编辑器中，你可以编写VBA代码来重新计算包含`RANDBETWEEN`和`INDEX`函数的单元格。

5. **VBA代码示例**：

  - 以下是一个简单的VBA代码示例，用于重新计算随机选择的单元格：

    ```vba

    Sub RandomSelect()

        ThisWorkbook.Worksheets("Sheet1").Range("B2").Calculate

        ThisWorkbook.Worksheets("Sheet1").Range("D2").Calculate

    End Sub

    ```

  - 将上面的代码中的"Sheet1"替换为你的工作表名称。

6. **在一体机上使用**：

  - 保存你的WPS表格文件。

  - 在一体机上打开WPS Office软件。

  - 打开你的表格文件。

  - 使用一体机的触摸屏点击你之前创建的按钮，每次点击都会随机选择一个学生和一个题目。

确保在实际使用之前测试你的表格，以确保一切按预期工作。如果你不熟悉VBA编程，可以寻求更有经验的同事或朋友的帮助。