巧用Excel软件为学生排座位，这一技巧值得一看

使用Excel软件为学生安排座位。这个技巧对于很多老师来说是非常重要的，尤其是班主任，因为班主任必须在每学期开始或考试时为学生安排座位。学习本教程并安排座位。很简单，下面我来介绍一下怎么做。

第一步是启动Excel 2003（其他版本操作类似），新建一个名为“Seat Row”的工作簿。本工作簿主要包括“”和“座位表”两个工作表，首先在“”工作表中输入学生的一些基本信息，最后添加一个“排名”按钮（如图1).

图 1 排名

Step 2 在“Seat Row”工作簿的“Student List”工作表中输入后，以“身高”或“视力”为标准，对输入的进行升序排序。具体方法是：先选择“高度”或“视力”所在的某一列单元格，然后点击工具栏中的“升序排序”按钮，在弹出的“排序”中点击“排序”按钮警告”窗口。 .

第三步按“Alt+F11”快捷键调出“Visual Basic Editor”，在“Visual Basic Editor”窗口中，右击“ThisWorkBook”，选择“Insert→Module”命令，插入A模块，在右侧代码窗口输入如下代码：

sub paizuo()

Sheets("seat table").Select'激活“座位表”工作表

Dim Group As Integer'定义代表组数的变量Group

Group = Val(InputBox("这个班的学生分成几组？"))'将输入的数字赋值给变量Group

坐席（组）'调用坐席功能给学生安排座位

Sheets("seat table").选择

结束子

子作词(gro As Integer)

Dim i As Integer, j As Integer'定义循环变量

Sheets("Student List").Select'Activate the "Student List" worksheet

Dim Irows As Integer, Icols As Integer, Ixs As Integer'定义“座位表”行变量、列变量和“”学生行变量

Irows = 60 / gro'初始化行变量

Icols = gro'初始化列变量

Ixs = 1'初始化“学生列表”学生行变量

For i = 1 To Icols'第一个学生从第 2 行开始

Ixs = i + 1

对于 j = 2 到 Irows + 2

Sheets("seat table").Cells(j, i) = Sheets("student list").Cells(Ixs, 1)'给座位表赋值

Ixs = Ixs + gro'下一个学生是当前学生的gro

下一个 j

接下来我

结束子

输入代码后，退出 Visual Basic 编辑器。

第4步在图1窗口右击“排名”按钮，选择“指定宏”，打开“指定宏”窗口，选择“排左”宏，最后点击“确定”。

完成上述步骤后，退出、保存并重新打开“Row Seating”工作簿，点击“Student List”工作表中的“Ranking”按钮，然后弹出要求班级所有学生划分windows分成几组（如图2，A处的窗口），在窗口的文本框中输入相应的数字（如“6”），然后点击窗口中的“确定”按钮，这样可以在“座位表”工作表中看到排名效果，如图2，B所示窗口。

图2排座椅

在Excel中完成排名后，只需打印出“排座位”工作簿中的“座位表”工作表粘贴在讲台上，最后根据学生座位安排学生排名在“座位表”就是这样。用Excel给学生排名是不是很方便？各位班主任不妨试一试。

提示

在“排座位”工作簿中，“”工作表主要包括每个学生的基本信息，如身高、性别、视力等，这也是我们在安排座位时需要考虑的因素给学生。

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/shumachanpin/article-381670-1.html