基于ExcelVBA技術(shù)的調(diào)查問(wèn)卷系統(tǒng)的實(shí)現(xiàn)

基于ExcelVBA技術(shù)的調(diào)查問(wèn)卷系統(tǒng)的實(shí)現(xiàn)摘要:為及時(shí)掌握學(xué)生學(xué)習(xí)的情況，提高教師的工作效率,根據(jù)學(xué)校教學(xué)質(zhì)量的要求的基礎(chǔ)上以Excel軟件為開發(fā)平臺(tái)，采用VBA技術(shù)為開發(fā)工具，以完成對(duì)學(xué)生調(diào)查問(wèn)卷的技術(shù)實(shí)現(xiàn)。關(guān)鍵詞:調(diào)查問(wèn)卷ExcelVBA1系統(tǒng)開發(fā)背景調(diào)查問(wèn)卷是高校教學(xué)工作中的重要環(huán)節(jié)之一，也是高校教學(xué)質(zhì)量評(píng)估的重要指標(biāo)之一。因此，科學(xué)地、客觀地做好調(diào)查問(wèn)卷是提高高校教學(xué)質(zhì)量的需要?，F(xiàn)實(shí)中，很多老師采用的是手工統(tǒng)計(jì),或用計(jì)算器以及簡(jiǎn)單的Excel軟件進(jìn)行分類匯總。但是，這樣的操作，計(jì)算機(jī)量大,操作步驟繁瑣且容易出錯(cuò)。尤其是數(shù)據(jù)量巨大時(shí)更是不可取。鑒于以上原因，本人提出以Excel軟件的基礎(chǔ)上，通過(guò)VBA技術(shù)編寫程序，設(shè)計(jì)出調(diào)查問(wèn)卷這個(gè)功能，這樣教師只需讓學(xué)生簡(jiǎn)單的操作,就能把繁瑣復(fù)雜的數(shù)據(jù)交給計(jì)算機(jī)來(lái)計(jì)算機(jī)處理，從而節(jié)省教師大量的時(shí)間和精力。2系統(tǒng)分析2.1系統(tǒng)開發(fā)環(huán)境的選擇Excel是目前大家最常用的辦公軟件之一，它提供的操作界面是大家非常熟悉且易于掌握。Excel軟件與其他數(shù)據(jù)處理軟件相比,自身具有明顯的又是，能夠方便高效地設(shè)計(jì)出電子表格p3系統(tǒng)設(shè)計(jì)系統(tǒng)操作流程以系統(tǒng)開發(fā)需解決的三大問(wèn)題為設(shè)計(jì)目標(biāo)，采用VBA技術(shù)設(shè)計(jì)出各個(gè)模塊界面以及編寫出相應(yīng)的程序代碼。該系統(tǒng)包括學(xué)生基本資料、單項(xiàng)選擇、多項(xiàng)選擇和學(xué)生建議四個(gè)部分。系統(tǒng)的實(shí)現(xiàn)設(shè)計(jì)學(xué)生基本資料部分的操作DimhangAsIntegerWithWorksheets("調(diào)查問(wèn)卷結(jié)果”)xrow=.[A1].CurrentRegion.Rows.Count+1.Cells(xrow,"A")=[d4].Cells(xrow, "B").Resize(1, 16).Value =Application.WorksheetFunction.Transpose([G8:G23].Value).Cells(xrow,"R").Value=[B67].ValueEndWithUnion([D4:E4],[G8:G23],[B67:G67]).ClearContentsMsgBox"已保存到“調(diào)查結(jié)果”工作表中！”,vbInformation,“提示”EndSub4結(jié)語(yǔ)調(diào)查問(wèn)卷系統(tǒng)經(jīng)學(xué)校推廣使用后，取得了良好的效果，達(dá)到了調(diào)查問(wèn)卷系統(tǒng)的開發(fā)目的。該系統(tǒng)使教師能在較短的時(shí)間內(nèi)輕松完成調(diào)查問(wèn)卷數(shù)據(jù)的統(tǒng)計(jì)工作，提高了教學(xué)檔案的質(zhì)量和工作效率，減少了教師在統(tǒng)計(jì)中的重復(fù)勞動(dòng)。因此,VBA作為新一代Windows應(yīng)用軟件的