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

1、用VBA編排學(xué)生座位表 )11 (W 10 23 轉(zhuǎn)載 標(biāo)簽：分類(lèi)： 技術(shù)交流 it 在每學(xué)年的新生開(kāi)學(xué)前，班主任老師要做大量的準(zhǔn)備工作，其中必做的一 件事就是收集本班學(xué)生的報(bào)名信息，編排上課的座位表。以往班主任老師都是通 過(guò)手工來(lái)編排座位表的，消耗的時(shí)間和精力相當(dāng)大，一旦有學(xué)生進(jìn)行了調(diào)整又不 得不重復(fù)之前的勞動(dòng)。下面我們就來(lái)看看如何用VBA輕輕松松實(shí)現(xiàn)座位表的編 排。 通常情況下，編排座位表需要考慮以下三個(gè)因素，即學(xué)生的視力、身高、性 別等，根據(jù)學(xué)生在報(bào)名表中填寫(xiě)的信息，我們采集了相關(guān)的數(shù)據(jù)（如圖1） O E Bicrosofl Excel 排座位.xls :辻文件世）編輯 視圖辺 插入（X

2、）格式）工具（!） -數(shù)據(jù)）宙口幫助-S x F37 A A B C D E 2 學(xué)號(hào) 姓名 性別 身髙 視力 3 1 王英 女 1. 54 0. 7 4 2 李峯軍 男 1.59 0.5 5 3 孫全鵬 男 1.61 1.3 6 4 鐘華 男 1.65 0.3 7 5 朱小慶 男 1.57 L5 8 6 歐卩 日小榮 男 1.7 0.6 9 7 it 春梅 女 1.58 1.3 10 8 肖鵬舉 男 1.6 1.2 11 9 男 1.61 1 12 一 7X4- / 1. 64 1.4 排座位 U ；繪團(tuán)迅心I自選閡形 口軸占為 就綣 Dloci.siriei.G 利用“控件工具箱”中的“命

3、令按鈕”控件在工作表中添加一個(gè)命令按鈕, 修改其Caption屬性為“排座位”，雙擊該按鈕，在其Click事件中編寫(xiě)下 面的代碼： Private Sub CommandButtonl_Click () Error GoTo err Dim fenzu As Integer Dim irow As Integer Rang4)2SectB 對(duì)信息表進(jìn)行排序，關(guān)鍵字分別為視力、身髙、性別 Range(A3：E48) Sort Key1:=Range(E3). Orderl：=xlAscending, K(y2： -Runge ( D3). Order2： -xlAscending, Key3：-

4、Range(，rC3F), Order3： -xlAscending 刪除原有的座位表 For Each sh In Worksheets If 二”座位表ThenJ End I Next sh 添加名為座位表的新工作表I af ter:二 Sheet s (學(xué)生信息) 二”座位表” 獲取分組數(shù) fenzu二InputBoxC你想把學(xué)生分成幾個(gè)小組，提示，6) 獲取學(xué)生總?cè)藬?shù) icount 二 Worksheets(1). a65536. End(xlUp). Row - 2 獲取每組最多學(xué)生人數(shù) irow 二 Int(icount / fenzu) + 1 按先行后列的順序提取學(xué)生信息表中的學(xué)生名單 For n - 1 To irow For m = 1 To fenzu 生成第$組的文字(前面空2行用于顯示標(biāo)題) Worksheets (2). Cel Is (3, m)二第 !丄？ rI亠一 -r?炎熬 臺(tái)第江王宋陸田沈丁 且婷媛力偉鵬慶 必婷媛偉力少全小 第段馬唐張?zhí)茖O朱 - - 一 一 - - -一 且秋璞偉舉宜 脛劍鵬小小鵬靜進(jìn) 第徐蔣黃陶肖鄭劉 就綣 繪團(tuán)迅心自選閡形QH X bloq.sifia.GOfn.cfi/riEilfZ7 需要說(shuō)明的是，筆者的座位表是根據(jù)自己的編排理念來(lái)設(shè)計(jì)代碼的， 的順序上要進(jìn)行調(diào)