下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
1、用VBA編排學(xué)生座位表 )11 (W 10 23 轉(zhuǎn)載 標(biāo)簽:分類: 技術(shù)交流 it 在每學(xué)年的新生開學(xué)前,班主任老師要做大量的準(zhǔn)備工作,其中必做的一 件事就是收集本班學(xué)生的報名信息,編排上課的座位表。以往班主任老師都是通 過手工來編排座位表的,消耗的時間和精力相當(dāng)大,一旦有學(xué)生進(jìn)行了調(diào)整又不 得不重復(fù)之前的勞動。下面我們就來看看如何用VBA輕輕松松實現(xiàn)座位表的編 排。 通常情況下,編排座位表需要考慮以下三個因素,即學(xué)生的視力、身高、性 別等,根據(jù)學(xué)生在報名表中填寫的信息,我們采集了相關(guān)的數(shù)據(jù)(如圖1) O E Bicrosofl Excel 排座位.xls :辻文件世)編輯 視圖辺 插入(X
2、)格式)工具(!) -數(shù)據(jù))宙口幫助-S x F37 A A B C D E 2 學(xué)號 姓名 性別 身髙 視力 3 1 王英 女 1. 54 0. 7 4 2 李峯軍 男 1.59 0.5 5 3 孫全鵬 男 1.61 1.3 6 4 鐘華 男 1.65 0.3 7 5 朱小慶 男 1.57 L5 8 6 歐卩 日小榮 男 1.7 0.6 9 7 it 春梅 女 1.58 1.3 10 8 肖鵬舉 男 1.6 1.2 11 9 男 1.61 1 12 一 7X4- / 1. 64 1.4 排座位 U ;繪團(tuán)迅心I自選閡形 口軸占為 就綣 Dloci.siriei.G 利用“控件工具箱”中的“命
3、令按鈕”控件在工作表中添加一個命令按鈕, 修改其Caption屬性為“排座位”,雙擊該按鈕,在其Click事件中編寫下 面的代碼: Private Sub CommandButtonl_Click () Error GoTo err Dim fenzu As Integer Dim irow As Integer Rang4)2SectB 對信息表進(jìn)行排序,關(guān)鍵字分別為視力、身髙、性別 Range(A3:E48) Sort Key1:=Range(E3). Orderl:=xlAscending, K(y2: -Runge ( D3). Order2: -xlAscending, Key3:-
4、Range(,rC3F), Order3: -xlAscending 刪除原有的座位表 For Each sh In Worksheets If 二”座位表ThenJ End I Next sh 添加名為座位表的新工作表I af ter:二 Sheet s (學(xué)生信息) 二”座位表” 獲取分組數(shù) fenzu二InputBoxC你想把學(xué)生分成幾個小組,提示,6) 獲取學(xué)生總?cè)藬?shù) icount 二 Worksheets(1). a65536. End(xlUp). Row - 2 獲取每組最多學(xué)生人數(shù) irow 二 Int(icount / fenzu) + 1 按先行后列的順序提取學(xué)生信息表中的學(xué)生名單 For n - 1 To irow For m = 1 To fenzu 生成第$組的文字(前面空2行用于顯示標(biāo)題) Worksheets (2). Cel Is (3, m)二第 !丄? rI亠一 -r?炎熬 臺第江王宋陸田沈丁 且婷媛力偉鵬慶 必婷媛偉力少全小 第段馬唐張?zhí)茖O朱 - - 一 一 - - -一 且秋璞偉舉宜 脛劍鵬小小鵬靜進(jìn) 第徐蔣黃陶肖鄭劉 就綣 繪團(tuán)迅心自選閡形QH X bloq.sifia.GOfn.cfi/riEilfZ7 需要說明的是,筆者的座位表是根據(jù)自己的編排理念來設(shè)計代碼的, 的順序上要進(jìn)行調(diào)
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 羅紋布產(chǎn)品市場需求分析報告
- 2024年山東建筑施工企業(yè)安全生產(chǎn)管理人員安全生產(chǎn)考試題庫-(單選題)
- 直滑式電位器市場需求與消費(fèi)特點分析
- 生活小家電產(chǎn)品市場需求分析報告
- 自動變速箱油產(chǎn)品原材料供應(yīng)與需求分析
- 紡織染整助劑凈洗劑市場洞察報告
- 除菌吸氧管產(chǎn)品營銷計劃書
- 遮陽棚產(chǎn)品原材料供應(yīng)與需求分析
- 鋼球光磨研設(shè)備市場發(fā)展預(yù)測和趨勢分析
- 高精度醫(yī)用過濾器市場洞察報告
- 高水平的學(xué)術(shù)論文的撰寫與發(fā)表
- 消防員訓(xùn)練安全隱患分析
- 2024年考研英語真題及答案(完整版)
- 法人退出公司協(xié)議書
- 餐廳經(jīng)理考試結(jié)構(gòu)化面試試題及答案
- 鑄就未來:學(xué)校發(fā)展路徑
- 紅色家書讀書分享
- 班主任技能大賽筆試試卷及參考答案
- 學(xué)校食堂食品安全管理與操作規(guī)范
- 河道清淤培訓(xùn)課件
- 火災(zāi)的危害與預(yù)防措施課件
評論
0/150
提交評論