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

用Excel VBA轻松编制学生座位表 　　座位表的编制，是班主任在学年初必须要做的工作，传统的做法是先在草稿纸上编好学生的座位之后，再按照草稿的格式在电脑中输入学生姓名，最后制表。这种做法很麻烦，每编排一次，都需要重复同样的工作。下面介绍使用Excel的VBA编制一个学生座位表编排系统，能使您一劳永逸。 　　基本思路 　　1．录入本班的学生姓名，作为原始数据。 　　2．在Excel中直接利用鼠标拖动单元格数据的功能，编好学生的位置，然后使用VBA自动制好座位表格。 　　3．将文件保存为模板。 　　制作过程 　　下面以一个班40个学生为例制作一个座位表编排系统。 　　1．界面设置 　　将学生分为4个组，每组10人，选定A1∶H5，并设置其外边框作为座位表的范围。在D7∶E9画一个梯形，并在梯形上输入“讲台”二字。在框线外部的区域例如G7∶K14内输入本班学生的姓名。 　　2．座位编排过程 　　根据学生的身高、视力等实际情况，使用鼠标拖动单元格数据的功能，将学生的姓名移动到A1∶H5的范围内，编好座位(所谓鼠标拖动单元格数据的功能，实际就是将鼠标指针移到要移动的单元格的边框位置，当鼠标指针变成箭头时，按住鼠标左键不放，直接移到目的地后再释放鼠标左键)。 　　3．VBA编程 　　(1)代码编制 　　点击Excel的Visual Basic编辑器，进入VBA开发环境，在工程资源管理器中双击Sheet1，然后在出现的代码窗口输入如下代码： 　　Sub zwb() 　　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 = xlContinuous 　　End With 　　设置[A1:B5]的边框格式 　　　[A1∶B5].Copy 　　　[C1].PasteSpecial Paste:=xlFormats 　　　[E1].PasteSpecial Paste:=xlFormats 　　　[g1].PasteSpecial Paste:=xlFormats 　　将[A1∶B5]的边框格式选择性粘贴到C1、E1、G1 　　With [A1:H5] 　　　.HorizontalAlignment = xlCenter 　　　.VerticalAlignment = xlCenter 　　　.Orientation = xlVertical 　　　.RowHeight = 125 　　　.ColumnWidth = 9 　　　.Fon.FontStyle = 加粗 　　　.Fon.Size = 25 　　End With 　　设置A1∶H5的单元格格式 　　　For i = 1 To 5 　　　For a = 1 To 8 　　　If Len(Cells(i, a)) = 2 Then 　　　Cells(i, a) = Left(Cells(i, a), 1) Space(1) Right(Cells(i, a), 1) 　　　End If 　　　Next 　　　Next 　　如果单元格内有两个字符，就在两字符之间加入一个空格 　　　Application.ScreenUpdating = True 　　End Sub 　　(2)按钮控件的制作 　　在“视图→工具栏→窗体”上选取按钮控件，将控件放在I3位置，最后在指定宏对话框中选择Sheet1.zwb，点击[确定]，再将按钮控件命名为“OK”。 　　4．模板的制作 　　用鼠标点击“文件→另存为”，在出现的另存为对话框的保存类型下拉列表框中选择模板，接着输入模板的名称“zwb”，最后点击[保存]按钮。 　　使用方法 　　每次想编排座位表的时候，就打开模板“zwb”，用快速移动单元格的方法编好学生的座位位置，最后点击[OK]按钮，一张美观、大方的座位表就会出现在你的面前了。 文/窦毅