用excel排考試座位表

1、對(duì)于一名班主任來說，給學(xué)生排座位是常常要做的事。但一個(gè)班三四十個(gè)學(xué)生，排位時(shí)得照顧到方方面面，如果按照常規(guī)手工編制排位表的方法，不但工作量大，而且缺乏科學(xué)性。其實(shí)利用Excel只要輕點(diǎn)鼠標(biāo)就能完成學(xué)生的排位工作，下邊筆者就給大家介紹一下如何來實(shí)現(xiàn)第一步 啟動(dòng)Excel 2003（其他版本操作類似），新建一個(gè)名為“排座位”的工作簿，在這個(gè)工作簿中主要包括兩個(gè)工作表“學(xué)生名單”和“座位表”，先在“學(xué)生名單”工作表中輸入學(xué)生的一些基本信息，最后再添加一個(gè)“排位”按鈕（如圖1）。（圖1）第二步 “排座位”工作簿“學(xué)生名單”工作表中的學(xué)生數(shù)據(jù)輸入完畢后，以“身高”或者“視力”為標(biāo)準(zhǔn)對(duì)輸入的學(xué)生數(shù)據(jù)進(jìn)行升

2、序排序。具體方法是：先選中“身高”或者“視力”所在的某列單元格，然后單擊工具欄中的“升序排序”按鈕，在彈出的“排序警告”窗口中單擊“排序”按鈕即可。第三步 按下“Alt+F11”快捷鍵，調(diào)出“Visual Basic 編輯器”，在“Visual Basic 編輯器”窗口中，右擊“ThisWorkBook”，選擇“插入模塊”命令，插入一個(gè)模塊，并在右邊的代碼窗口中輸入以下代碼：復(fù)制代碼代碼如下:Sub paizuo()Sheets("座位表").Select '激活“座位表”工作表Dim Group As Integer '定義表示組數(shù)的變量GroupGrou

3、p = Val(InputBox("本班學(xué)生分為幾組?") '將輸入的數(shù)字賦給變量GroupZuoci (Group) '調(diào)用Zuoci函數(shù)對(duì)學(xué)生進(jìn)行排座Sheets("座位表").SelectEnd SubSub Zuoci(gro As Integer)Dim i As Integer, j As Integer ' 定義循環(huán)變量Sheets("學(xué)生名單").Select '激活“學(xué)生名單”工作表Dim Irows As Integer, Icols As Integer, Ixs As Integ

4、er '定義“座位表”行變量，列變量，及"學(xué)生名單"學(xué)生行變量Irows = 60 / gro '初始化行變量Icols = gro '初始化列變量Ixs = 1 '初始化“學(xué)生名單”學(xué)生行變量For i = 1 To Icols '第一位學(xué)生自第2行開始Ixs = i + 1For j = 2 To Irows + 2Sheets("座位表").Cells(j, i) = Sheets("學(xué)生名單").Cells(Ixs, 1) '給座位表賦值Ixs = Ixs + gro '

5、下一個(gè)學(xué)生為當(dāng)前第gro個(gè)學(xué)生Next jNext iEnd Sub代碼輸入完畢后，退出Visual Basic 編輯器。第四步 右擊圖1窗口中的“排位”按鈕，選擇“指定宏”，打開“指定宏”窗口，選中“paizuo”宏，最后單擊“確定”。完成了以上步驟的操作之后，退出、保存并重新打開“排座位”工作簿，單擊“學(xué)生名單”工作表中的“排位”按鈕，這時(shí)就會(huì)彈出一個(gè)詢問全班學(xué)生要分為幾組的窗口（如圖2，A處所示的窗口），在該窗口的文本框中輸入對(duì)應(yīng)的數(shù)字（如“6”），再單擊窗口中的“確定”按鈕，這時(shí)就可以看到“座位表”工作表中的排位效果了，如圖3，B處所示的窗口。（圖2）在Excel中完成排位后，只需將“排座位”工作簿中的“座位表”工作表打印出來貼到講臺(tái)上，最后按照“座位表”中的學(xué)生座次安排給學(xué)生排位就可以了。利用Excel給學(xué)生排位是不是很方便呀，各位