用VBA編排學(xué)生座位表

1、精選優(yōu)質(zhì)文檔-傾情為你奉上精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)專心-專注-專業(yè)精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)用VBA編排學(xué)生座位表 (2011-09-10 23:10:47)標(biāo)簽：分類：在每學(xué)年的新生開學(xué)前， 班主任老師要做大量的準(zhǔn)備工作，其中必做的一件事就是收集本班學(xué)生的報(bào)名信息，編排上課的座位表。以往班主任老師都是通過手工來編排座位表的，消耗的時(shí)間和精力相當(dāng)大，一旦有學(xué)生進(jìn)行了調(diào)整又不得不重復(fù)之前的勞動(dòng)。下面我們就來看看如何用VBA輕輕松松實(shí)現(xiàn)座位表的編排。通常情況下，編排座位表需要考慮以下三個(gè)因素，即學(xué)生的視力、身高、性別等，根據(jù)學(xué)生在報(bào)名表中填寫的信息，我們采集了相關(guān)

2、的數(shù)據(jù)（如圖1）。利用“控件工具箱”中的“命令按鈕”控件在工作表中添加一個(gè)命令按鈕，修改其“Caption”屬性為“排座位”，雙擊該按鈕，在其Click事件中編寫下面的代碼：Private Sub CommandButton1_Click()On Error GoTo errDim fenzu As IntegerDim irow As IntegerRange(D2).Select對(duì)信息表進(jìn)行排序,關(guān)鍵字分別為視力、身高、性別Range(A3:E48).Sort Key1:=Range(E3), Order1:=xlAscending, Key2:=Range( _D3), Order2:=

3、xlAscending, Key3:=Range(C3), Order3:=xlAscending刪除原有的座位表For Each sh In WorksheetsIf sh.Name = 座位表 ThenApplication.DisplayAlerts = FalseSheets(座位表).DeleteEnd IfNext sh添加名為座位表的新工作表Sheets.Add after:=Sheets(學(xué)生信息)ActiveSheet.Name = 座位表獲取分組數(shù)fenzu = InputBox(你想把學(xué)生分成幾個(gè)小組?, 提示, 6)獲取學(xué)生總?cè)藬?shù)icount = Worksheets(

4、1).a65536.End(xlUp).Row - 2獲取每組最多學(xué)生人數(shù)irow = Int(icount / fenzu) + 1按先行后列的順序提取學(xué)生信息表中的學(xué)生名單For n = 1 To irowFor m = 1 To fenzu生成第N組的文字(前面空2行用于顯示標(biāo)題)Worksheets(2).Cells(3, m) = 第 & m & 組Worksheets(2).Cells(n + 3, m) = Worksheets(1).Cells(fenzu * (n - 1) + m + 2, 2)Next mNext nMsgBox 座位表編排成功,請(qǐng)根據(jù)實(shí)際情況手工微調(diào)!,

5、 vbOKOnly + vbInformation, 提示err:Exit SubEnd Sub代碼說明：（1）為了使編排的座位表更加合理，我們把視力低的同學(xué)盡量往前排，相同視力的同學(xué)按身高的高矮順序排，如果身高又相同則女生排在前面，男生排在后面。（2）考慮到學(xué)生分班后肯定會(huì)進(jìn)行一些調(diào)整，所以在生成座位表前首先會(huì)檢查并刪除當(dāng)前工作簿中原有的“座位表”工作表。關(guān)閉代碼窗口返回Excel工作表中，單擊“排座位”按鈕，系統(tǒng)首先會(huì)創(chuàng)建一個(gè)名為“座位表”的工作表并詢問學(xué)生的分組數(shù)（默認(rèn)為“6”組），根據(jù)需要輸入相應(yīng)的數(shù)字，單擊“確定”按鈕即可看到分組后的學(xué)生名單了，然后根據(jù)需要進(jìn)行適當(dāng)?shù)奈⒄{(diào)就可以了?！爸v臺(tái)”可通過手工插入自選圖形來實(shí)現(xiàn)，最終的效果如圖2所示。需要說明的是，筆者的座位表是根據(jù)自己的編排理念來設(shè)計(jì)代碼的，如果在編排的順序上要