您是教師嗎？您是班主任嗎？您給班級(jí)的新生安排過(guò)座位嗎？

　　不是班主任可能還不知，安排新生座位算是個(gè)棘手的問(wèn)題，原因很多洛，由于都是新生，您不了解他們，安排他們的座位，孰前孰后？可不能憑姓名就亂套一通，這明顯就不科學(xué)；更不能以成績(jī)高低來(lái)安排座位，別給學(xué)生的第一印象就是歧視(成績(jī)好就坐前面，成績(jī)差就坐后面，遭到學(xué)生非議以后您就難管理他們了)，這不是優(yōu)秀班主任所采取的策略！

　　在這里，本文提供一種權(quán)且之計(jì)，為您排憂解難，輕松實(shí)現(xiàn)新生座位的安排！

　　本文所提供的座位安排方法，其依據(jù)是，根據(jù)身高和視力而定，視力差且身高不占優(yōu)勢(shì)者坐前面，反之，坐后面！

　　如下圖，假設(shè)存在這樣的一張學(xué)生數(shù)據(jù)表！　　

　　根據(jù)上圖示例的數(shù)據(jù)，我們根據(jù)學(xué)生的身高和視力，將座位安排結(jié)果存放到如下圖的Sheet2里面！

　　上圖，是一張空表，下面，我們就一起來(lái)實(shí)現(xiàn)座位的安排吧！

　　首先，在Excel窗口中，按Alt F11鍵，彈出Microsoft Visual Basic窗口，如下圖；

　　找到“ThisWorkbook”，點(diǎn)擊右鍵，執(zhí)行“插入”→“模塊”；之后，就增加了一個(gè)模塊！

　　然后，如上圖一樣，雙擊“模塊1”，彈出代碼窗口，并在窗口中輸入如上圖的代碼！之后，再點(diǎn)擊如上圖的“運(yùn)行宏”按鈕；

　　彈出如下圖的對(duì)話框！

　　上圖中，我們根據(jù)班級(jí)人數(shù)的多少和教室的大小，輸入分組的數(shù)目，如本例的5；點(diǎn)擊確定！

　　然后返回Excel窗口的Sheet2，如下圖！

　　怎么樣，一目了然了吧，座位已安排好了！

　　為方便大家的學(xué)習(xí)，本例代碼粘貼如下：

　　＝＝＝＝代碼開始＝＝＝＝
Sub PaiZuo()
Sheets(2).Select '激活座位工作表
Dim Group As Integer '定義表示數(shù)組的變量
Group = Val(InputBox("該班級(jí)分為幾組？")) '輸入分組的值
Zuoci (Group) '調(diào)用排座函數(shù)
Sheets(2).Select '激活座位工作表
End Sub

Sub Zuoci(gro As Integer)
Dim i As Integer, j As Integer '定義兩個(gè)循環(huán)變量
Sheets(1).Select
Dim irows As Integer, icols As Integer, ixs As Integer
irows = 60 / gro
icols = gro
lxs = 1
For i = 1 To icols
lxs = i 1
For j = 2 To irows 2
Sheets(2).Cells(j, i) = Sheets(1).Cells(lxs, 1)
lxs = lxs gro
Next j
Next i
End Sub
＝＝＝＝代碼結(jié)束＝＝＝＝