用Excel表格怎么樣排學(xué)生座位
用Excel表格怎么樣排學(xué)生座位
對于一名班主任來說,給學(xué)生排座位是常常要做的事,利用Excel只要輕點(diǎn)鼠標(biāo)就能完成學(xué)生的排位工作。以下是學(xué)習(xí)啦小編為您帶來的關(guān)于用Excel輕松排學(xué)生座位,希望對您有所幫助。
用Excel輕松排學(xué)生座位
第一步 啟動Excel 2003(其他版本操作類似),新建一個名為“排座位”的工作簿,在這個工作簿中主要包括兩個工作表——“學(xué)生名單”和“座位表”,先在“學(xué)生名單”工作表中輸入學(xué)生的一些基本信息,最后再添加一個“排位”按鈕(如圖1)。
(圖1)
第二步 “排座位”工作簿“學(xué)生名單”工作表中的學(xué)生數(shù)據(jù)輸入完畢后,以“身高”或者“視力”為標(biāo)準(zhǔn)對輸入的學(xué)生數(shù)據(jù)進(jìn)行升序排序。具體方法是:先選中“身高”或者“視力”所在的某列單元格,然后單擊工具欄中的“升序排序”按鈕,在彈出的“排序警告”窗口中單擊“排序”按鈕即可。
第三步 按下“Alt+F11”快捷鍵,調(diào)出“Visual Basic 編輯器”,在“Visual Basic 編輯器”窗口中,右擊“ThisWorkBook”,選擇“插入→模塊”命令,插入一個模塊,并在右邊的代碼窗口中輸入以下代碼:
Sub paizuo()
Sheets("座位表").Select '激活“座位表”工作表
Dim Group As Integer '定義表示組數(shù)的變量Group
Group = Val(InputBox("本班學(xué)生分為幾組?")) '將輸入的數(shù)字賦給變量Group
Zuoci (Group) '調(diào)用Zuoci函數(shù)對學(xué)生進(jìn)行排座
Sheets("座位表").Select
End Sub
Sub 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 Integer '定義“座位表”行變量,列變量,及"學(xué)生名單"學(xué)生行變量
Irows = 60 / gro '初始化行變量
Icols = gro '初始化列變量
Ixs = 1 '初始化“學(xué)生名單”學(xué)生行變量
For i = 1 To Icols '第一位學(xué)生自第2行開始
Ixs = i + 1
For j = 2 To Irows + 2
Sheets("座位表").Cells(j, i) = Sheets("學(xué)生名單").Cells(Ixs, 1) '給座位表賦值
Ixs = Ixs + gro '下一個學(xué)生為當(dāng)前第gro個學(xué)生
Next j
Next i
End Sub
代碼輸入完畢后,退出Visual Basic 編輯器。
第四步 右擊圖1窗口中的“排位”按鈕,選擇“指定宏”,打開“指定宏”窗口,選中“paizuo”宏,最后單擊“確定”。
完成了以上步驟的操作之后,退出、保存并重新打開“排座位”工作簿,單擊“學(xué)生名單”工作表中的“排位”按鈕,這時就會彈出一個詢問全班學(xué)生要分為幾組的窗口(如圖2,A處所示的窗口),在該窗口的文本框中輸入對應(yīng)的數(shù)字(如“6”),再單擊窗口中的“確定”按鈕,這時就可以看到“座位表”工作表中的排位效果了,如圖3,B處所示的窗口。
(圖2)
在Excel中完成排位后,只需將“排座位”工作簿中的“座位表”工作表打印出來貼到講臺上,最后按照“座位表”中的學(xué)生座次安排給學(xué)生排位就可以了。利用Excel給學(xué)生排位是不是很方便呀,各位班主任朋友們不妨一試。
小提示
在“排座位”工作簿中,“學(xué)生名單”工作表主要包括每學(xué)生的基本信息,如身高、性別、視力等等,這也是我們在給學(xué)生排座位時所要著重考慮的因素。
猜你喜歡: