Excel中進(jìn)行排學(xué)生座位的操作技巧
Excel中進(jìn)行排學(xué)生座位的操作技巧
作為班主任的話，每個學(xué)期初都可能要面臨給學(xué)生排座位的情況，如果用手工編排的話工作量大，對學(xué)生也沒有說服力。今天，學(xué)習(xí)啦小編就教大家在Excel中進(jìn)行排學(xué)生座位的操作技巧。
Excel中進(jìn)行排學(xué)生座位的操作步驟
新建一張工作表，在sheet1中重命名為學(xué)生名單，sheet2中命名為座位表，在學(xué)生名單表中輸入學(xué)生的基本信息，如姓名，性別，身高，視力。如下圖
在學(xué)生名單表中，進(jìn)行排序，以身高和視力為標(biāo)準(zhǔn)，以身高為第一排序關(guān)鍵詞，視力為次要關(guān)鍵詞，具體設(shè)置見下圖2。
打開VB編輯器，編輯幾行代碼，我們找到“工具”菜單，找到“宏”，找開“visual basic編輯器” ，調(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 編輯器。
在“學(xué)生名單”工作表中添加一個“排位”按鈕 ;
右擊圖1窗口中的“排位”按鈕，選擇“指定宏”，打開“指定宏”窗口，選中“paizuo”宏，最后單擊“確定”。
完成了以上步驟的操作之后，退出、保存并重新打開“排座位”工作簿，單擊“學(xué)生名單”工作表中的“排位”按鈕，這時就會彈出一個詢問全班學(xué)生要分為幾組的窗口(如圖2，A處所示的窗口)，在該窗口的文本框中輸入對應(yīng)的數(shù)字(如“6”)，再單擊窗口中的“確定”按鈕，這時就可以看到“座位表”工作表中的排位效果了，如圖3，B處所示的窗口。
看過Excel中進(jìn)行排學(xué)生座位的操作還看了：
1.Excel中進(jìn)行數(shù)據(jù)排序?qū)崿F(xiàn)學(xué)生總成績排名的操作方法
3.Excel中進(jìn)行學(xué)生隨機(jī)排序的操作方法
4.Excel中進(jìn)行整體數(shù)據(jù)排序的操作方法
5.Excel中進(jìn)行設(shè)置數(shù)據(jù)排序的操作方法