用Excel VBA轻松编制学生座位表

本文格式为Word版，下载可任意编辑——用ExcelVBA轻松编制学生座位表用ExcelVBA轻松编制学生座位表

座位表的编制，是班主任在学年初必需要做的工作，传统的做法是先在草稿纸上编好学生的座位之后，再依照草稿的格式在电脑中输入学生姓名，最终制表。这种做法很麻烦，每编排一次，都需要重复同样的工作。下面介绍使用Excel的VBA编制一个学生座位表编排系统，能使您一劳永逸。基本思路

1．录入本班的学生姓名，作为原始数据。

2．在Excel中直接利用鼠标拖动单元格数据的功能，编好学生的位置，然后使用VBA自动制好座位表格。

3．将文件保存为模板。制作过程

下面以一个班40个学生为例制作一个座位表编排系统。1．界面设置

将学生分为4个组，每组10人，选定A1∶H5，并设置其外边框作为座位表的范围。在D7∶E9画一个梯形，并在梯形上输入“讲台〞二字。在框线外部的区域例如G7∶K14内输入本班学生的姓名。2．座位编排过程

根据学生的身高、视力等实际状况，使用鼠标拖动单元格数据的功能，将学生的姓名移动到A1∶H5的范围内，编好座位(所谓鼠标拖动单元格数据的功能，实际就是将鼠标指针移到要移动的单元格的边框位置，当鼠标指针变成箭头时，按住鼠标左键不放，直接移到目的地后再释放鼠标左键)。3．VBA编程(1)代码编制

点击Excel的VisualBasic编辑器，进入VBA开发环境，在工程资源管理器中双击Sheet1，然后在出现的代码窗口输入如下代码：Subzwb()

Application.ScreenUpdating=False

'关闭执行程序时发生的屏幕更新现象，加快运行速度。With[A1:B5]

.Borders(xlEdgeLeft).LineStyle=xlDouble.Borders(xlEdgeTop).LineStyle=xlDouble.Borders(xlEdgeBottom).LineStyle=xlDouble.Borders(xlEdgeRight).LineStyle=xlDouble.Borders(xlInsideVertical).LineStyle=xlDot.Borders(xlInsideHorizontal).Line-Style=xlContinuousEndWith

'设置[A1:B5]的边框格式[A1∶B5].Copy

[C1].PasteSpecialPaste:=xlFormats[E1].PasteSpecialPaste:=xlFormats[g1].PasteSpecialPaste:=xlFormats

'将[A1∶B5]的边框格式选择性粘贴到C1、E1、G1

With[A1:H5]

.HorizontalAlignment=xlCenter.VerticalAlignment=xlCenter.Orientation=xlVertical.RowHeight=125.ColumnWidth=9

.Fon.FontStyle=\加粗\.Fon.Size=25EndWith

'设置A1∶H5的单元格格式Fori=1To5Fora=1To8

IfLen(Cells(i,a))=2Then

Cells(i,a)=Left(Cells(i,a),1)&&Space(1)&&Right(Cells(i,a),1)EndIfNextNext

'假使单元格内有两个字符，就在两字符之间参与一个空格Application.ScreenUpdating=TrueEndSub

(2)按钮控件的制作

在“视图→工具栏→窗体〞上选取按钮控件，将控件放在I3位置，最终在指定宏对话框中选择Sheet1.zwb，点击[确定]，再将按钮控件命名为“OK〞。4．模板的制作

用鼠标点击“文件→另存为〞，在出现的另存为对话框的保存类型下拉列表框中选择模板，接着输入模板的名称“zwb〞，最终点击[保存]按钮。使用方法

每次