用Excel表格怎么樣排學生座位

對于一名班主任來說，給學生排座位是常常要做的事，利用Excel只要輕點鼠標就能完成學生的排位工作。以下是小編為您帶來的關于用Excel輕松排學生座位，希望對您有所幫助。

第一步 啟動Excel 2003(其他版本操作類似)，新建一個名為“排座位”的工作簿，在這個工作簿中主要包括兩個工作表——“學生名單”和“座位表”，先在“學生名單”工作表中輸入學生的一些基本信息，最后再添加一個“排位”按鈕(如圖1)。

(圖1)

第二步 “排座位”工作簿“學生名單”工作表中的學生數據輸入完畢后，以“身高”或者“視力”為標準對輸入的學生數據進行升序排序。具體方法是：先選中“身高”或者“視力”所在的某列單元格，然后單擊工具欄中的“升序排序”按鈕，在彈出的“排序警告”窗口中單擊“排序”按鈕即可。

第三步 按下“Alt+F11”快捷鍵，調出“Visual Basic 編輯器”，在“Visual Basic 編輯器”窗口中，右擊“ThisWorkBook”，選擇“插入→模塊”命令，插入一個模塊，并在右邊的代碼窗口中輸入以下代碼：

Sub paizuo()

Sheets("座位表").Select '激活“座位表”工作表

Dim Group As Integer '定義表示組數的變量Group

Group = Val(InputBox("本班學生分為幾組?")) '將輸入的數字賦給變量Group

Zuoci (Group) '調用Zuoci函數對學生進行排座

Sheets("座位表").Select

End Sub

Sub Zuoci(gro As Integer)

Dim i As Integer, j As Integer ' 定義循環變量

Sheets("學生名單").Select '激活“學生名單”工作表

Dim Irows As Integer, Icols As Integer, Ixs As Integer '定義“座位表”行變量，列變量，及"學生名單"學生行變量

Irows = 60 / gro '初始化行變量

Icols = gro '初始化列變量

Ixs = 1 '初始化“學生名單”學生行變量

For i = 1 To Icols '第一位學生自第2行開始

Ixs = i + 1

For j = 2 To Irows + 2

Sheets("座位表").Cells(j, i) = Sheets("學生名單").Cells(Ixs, 1) '給座位表賦值

Ixs = Ixs + gro '下一個學生為當前第gro個學生

Next j

Next i

End Sub

代碼輸入完畢后，退出Visual Basic 編輯器。

第四步 右擊圖1窗口中的“排位”按鈕，選擇“指定宏”，打開“指定宏”窗口，選中“paizuo”宏，最后單擊“確定”。

完成了以上步驟的操作之后，退出、保存并重新打開“排座位”工作簿，單擊“學生名單”工作表中的“排位”按鈕，這時就會彈出一個詢問全班學生要分為幾組的窗口(如圖2，A處所示的窗口)，在該窗口的文本框中輸入對應的數字(如“6”)，再單擊窗口中的“確定”按鈕，這時就可以看到“座位表”工作表中的排位效果了，如圖3，B處所示的窗口。

(圖2)

在Excel中完成排位后，只需將“排座位”工作簿中的“座位表”工作表打印出來貼到講臺上，最后按照“座位表”中的學生座次安排給學生排位就可以了。利用Excel給學生排位是不是很方便呀，各位班主任朋友們不妨一試。

小提示

在“排座位”工作簿中，“學生名單”工作表主要包括每學生的基本信息，如身高、性別、視力等等，這也是我們在給學生排座位時所要著重考慮的因素。

猜你喜歡：

1.excel表格如何按照姓氏排序

2.Excel中進行實現按部門排序的操作方法

3.excel橫向排序的教程

4.excel2010制作排列圖的教程

5.Excel怎么對單個區域進行排名

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。