Excel中進行排學生座位的操作技巧
Excel中進行排學生座位的操作技巧
作為班主任的話，每個學期初都可能要面臨給學生排座位的情況，如果用手工編排的話工作量大，對學生也沒有說服力。今天，學習啦小編就教大家在Excel中進行排學生座位的操作技巧。
Excel中進行排學生座位的操作步驟
新建一張工作表，在sheet1中重命名為學生名單，sheet2中命名為座位表，在學生名單表中輸入學生的基本信息，如姓名，性別，身高，視力。如下圖
在學生名單表中，進行排序，以身高和視力為標準，以身高為第一排序關鍵詞，視力為次要關鍵詞，具體設置見下圖2。
打開VB編輯器，編輯幾行代碼，我們找到“工具”菜單，找到“宏”，找開“visual basic編輯器” ，調出“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處所示的窗口。
看過Excel中進行排學生座位的操作還看了：