用VBA編排學生座位表

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

2、的數(shù)據(jù)（如圖1）。利用“控件工具箱”中的“命令按鈕”控件在工作表中添加一個命令按鈕，修改其“Caption”屬性為“排座位”，雙擊該按鈕，在其Click事件中編寫下面的代碼：Private Sub CommandButton1_Click()On Error GoTo errDim fenzu As IntegerDim irow As IntegerRange(D2).Select對信息表進行排序,關(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(學生信息)ActiveSheet.Name = 座位表獲取分組數(shù)fenzu = InputBox(你想把學生分成幾個小組?, 提示, 6)獲取學生總?cè)藬?shù)icount = Worksheets(

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

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