用Excel給學生輕松排座位的方法介紹

2024-08-23 19:38:03

字體：大中小

來源：轉載

供稿：網(wǎng)友

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

（圖1）
　　第二步 “排座位”工作簿“學生名單”工作表中的學生數(shù)據(jù)輸入完畢后，以“身高”或者“視力”為標準對輸入的學生數(shù)據(jù)進行升序排序。具體方法是：先選中“身高”或者“視力”所在的某列單元格，然后單擊工具欄中的“升序排序”按鈕，在彈出的“排序警告”窗口中單擊“排序”按鈕即可。
　　第三步按下“Alt+F11”快捷鍵，調出“Visual Basic 編輯器”，在“Visual Basic 編輯器”窗口中，右擊“ThisWorkBook”，選擇“插入→模塊”命令，插入一個模塊，并在右邊的代碼窗口中輸入以下代碼：

復制代碼代碼如下:
Sub paizuo()
　　Sheets("座位表").Select '激活“座位表”工作表
　　Dim Group As Integer '定義表示組數(shù)的變量Group
　　Group = Val(InputBox("本班學生分為幾組?")) '將輸入的數(shù)字賦給變量Group
　　Zuoci (Group) '調用Zuoci函數(shù)對學生進行排座
　　Sheets("座位表").Select
　　End Sub
　　Sub Zuoci(gro As Integer)
　　Dim i As Integer, j As Integer ' 定義循環(huán)變量
　　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處所示的窗口），在該窗口的文本框中輸入對應的數(shù)字（如“6”），再單擊窗口中的“確定”按鈕，這時就可以看到“座位表”工作表中的排位效果了，如圖3，B處所示的窗口。

上一篇：如何使用ExcelTab讓Excel打開多個不同工作簿

下一篇：怎樣在Excel表格中的正數(shù)前添加“+”號