VBA在Excel中的應用

第14卷第42015年4月Software guideApr.2015VBA在Exce中的應用朱儉,馬敬賢2,宋玉3,廖志融(1.中國青年政治學(xué)院計算機教學(xué)及應用中心;2中國青年政治學(xué)院社工學(xué)院中國青年政治學(xué)院經(jīng)管學(xué)院,北京100089)摘要: Excel是微軟公司 Office集成辦公軟件重要組件之一,應用廣泛。在Exel中引入ⅤBA,運用其內嵌的ⅤBA對 Excel進(jìn)行再開(kāi)發(fā),不僅可以提高工作效率,自動(dòng)處理重復繁瑣的工作,并且不會(huì )改變原軟件的操作方式與功能,介紹了ⅤBA在 Excel中的開(kāi)發(fā)優(yōu)勢、開(kāi)發(fā)環(huán)境、開(kāi)發(fā)過(guò)程及應用領(lǐng)域。關(guān)鍵詞: Excel-VBA; Excel開(kāi)發(fā);VBA應用DOI:10.11907/rjdk1431087中圖分類(lèi)號:TP301文獻標識碼:A文章編號:1672-7800(2015)004-0046-03Excel在財務(wù)處理中廣泛應用,其人性化的功能設計與靈0引言活的操作填補了普通會(huì )計軟件的不足。然而,Excl也有其自身缺點(diǎn):由于每個(gè)操作都要人工完成,對于重復性財務(wù)軟件的應用顯著(zhù)提高了工作效率,大大減輕了財的工作,難免會(huì )造成繁重的工作與冗余務(wù)人員的工作強度,這得益于財務(wù)軟件實(shí)現了數據錄入利用ⅤBA對 Excel進(jìn)行二次開(kāi)發(fā),即將重復操作編處理與輸出一體化。然而,在詳細處理數據方面,財務(wù)軟程運行,可以有效避免多次人為操作帶來(lái)的失誤,顯著(zhù)提件的部分功能與當下的管理工作要求依舊脫節?；诖?高工作效率與質(zhì)量用戶(hù)所接受。兩款殺毒軟件使用情況對比如表3所示。特定需求是否能得到解決。其中,用戶(hù)體驗需要首先考表3卡巴斯基和奇虎360使用對比慮,簡(jiǎn)潔的使用界面、無(wú)歧義的文字解釋,以及可靠的設置對比內容卡巴斯基奇虎360與運行就是優(yōu)秀的企業(yè)殺毒軟件必備特征之一。就殺毒占用電腦資源多強強防護功能而言,卡巴斯基相對較強,但是在設置和使用上殺毒能力比卡巴斯基弱實(shí)時(shí)監控比卡巴斯基弱較為復雜,功能單一,占用大量計算機硬件性能,讓用戶(hù)無(wú)殺毒準確度比卡巴斯基誤判率高法接受。奇虎360雖然很注重用戶(hù)體驗,涵蓋一些適用于用戶(hù)體驗不易上手較為順手企業(yè)內部需求的附屬功能,讓信息人員及員工用戶(hù)愛(ài)不釋推送軟件手,但是強制推送、默認安裝、捆綁安裝等霸道行為也著(zhù)實(shí)捆綁軟件捆綁360軟件管家統一部署能力令用戶(hù)難以接受。因此,企業(yè)需結合自身實(shí)際,綜合考慮遠程桌面無(wú)選擇合適的殺毒軟件,最大程度地保障企業(yè)信息安全,更硬件臺帳有有好地促進(jìn)企業(yè)發(fā)展統一發(fā)布信息平臺殺毒策略定制精細精細度不如卡巴斯基參考文獻歷史報表有有[1]金燁.產(chǎn)品與服務(wù)并重[N].中國計算機用戶(hù),2009-10-23系統修復有[2]胡斌昀,企業(yè)防毒軟件發(fā)展趨勢分析[J].中山大學(xué)學(xué)報:自然科學(xué)包腦清理版,204,43(6):142-144優(yōu)化加速無(wú)有[3]扶蘇抓住要點(diǎn),兩招搞定中小企業(yè)信息安全[N].電腦報,2014軟件管理有中國煤化工[4]董CNMHG即產(chǎn)品到安全即服務(wù)[N].中結合上述實(shí)踐,得出選擇殺毒軟件需重點(diǎn)考慮如下方國面:①用戶(hù)體驗;②計算機硬件性能優(yōu)劣;③殺毒能力,漏[5]劉宏偉,企業(yè)殺毒需變招[N]計算機世界,2008-12-22洞掃描④管理、安裝方式,體系架構;⑤企業(yè)注重的一些(責任編輯:孫娟)作者簡(jiǎn)介:朱儉(1981—),男,江蘇徐州人,博士,中囯青年政治學(xué)院計算機教學(xué)與應用中心講師,硏究方向為自然語(yǔ)言理解、搜索技術(shù)。儉,馬敬賢,宋玉,等:VBA在Excl中的應用47·利于數據的溝通與交流。同時(shí),VBA簡(jiǎn)單的操作方法容1VBA應用易掌握,利于推廣普及。如果利用其它程序編寫(xiě)語(yǔ)言,通常都需要搭建好基本的功能操作例如數據的導入、處理與11VBA介紹導出等,而以 Excel為載體的ⅤBA開(kāi)發(fā),則因為Exce本VBA全稱(chēng) Visual Basic For Applications,是Ⅴ isual身已經(jīng)具備的基本操作,大大節省了開(kāi)發(fā)時(shí)間,提高了工Basic的一部分,是在某些應用程序中內置的編程語(yǔ)言。作效率與Ⅴ isual Basic不同的是,VBA需要一個(gè)應用程序作為載體才能運行,而VB則可以創(chuàng )建獨立的應用程序。VBA3 Excel-VBA開(kāi)發(fā)通過(guò)自定義程序,將宿主應用程序的某些操作自動(dòng)化,為解決重復操作問(wèn)題提供了一個(gè)良好方案。3.1開(kāi)發(fā)環(huán)境1. 2 Excel vBA在 Office按鈕中,選擇 Excel選項,在常用選項下選般來(lái)說(shuō),VBA是內嵌在 Office中,增強 Office軟件中“在功能中顯示·開(kāi)發(fā)工具’選項卡”,或者按快捷鍵Alt使用功能的程序語(yǔ)言。如今,VBA應用已經(jīng)逐步涉及到F11即可進(jìn)入。Word(WordBasic), Excel( ExcelBasic) Access(AccessBa安全性設置:在信任中心中,選擇信任中心設置,啟用sic)和 Power Point( Power Point basic),并且在ouok中所有宏。也開(kāi)發(fā)了 Visual Basic Scripting Edition語(yǔ)言,這些語(yǔ)言統32BE應用稱(chēng)為Ⅴ 3 for A pplication進(jìn)入ⅤBE編輯器后,就能編寫(xiě)有關(guān)低界面后程序。利用ⅤBA在 Excel中編寫(xiě)相應的語(yǔ)言,可創(chuàng )建數據VBE編輯器主要包括以下內容:①代碼窗口。編寫(xiě)及查處理方案,對數據進(jìn)行詳細處理和系統分析。Exc軟件看VBA代碼:②對象窗口。設定窗體界面(如果使用了窗中既有的功能操作,包括數據錄人界面、工作表的基本操體的話(huà)),設定窗體各個(gè)控件布局;③對象瀏覽器。查看所作等可以直接使用有對象庫、特定對象或工程,包括所有的對象列表及每個(gè)對象的成員列表;④工程資源管理器。管理工程中的模2ⅤBA在 Excel中的應用優(yōu)勢塊、類(lèi)模塊與窗體,可以很容易地在代碼與對象之間切換⑤屬性窗口?？稍O定很多對象相關(guān)屬性,簡(jiǎn)單到只要用鼠基于ⅤBA功能實(shí)現Wod中的應用,可實(shí)現以下功標選擇即可:⑥工具箱。在插入窗體后,可以從工具箱添能:①創(chuàng )建報表。實(shí)時(shí)報表的編寫(xiě)方法雖然眾多,但是程加各種控件,①立即窗口。其主要工作是:在開(kāi)發(fā)過(guò)程中序步驟相當繁瑣,報表功能也受到很多限制。通過(guò)應用用 Debug. Print輸出的內容就在此顯示;當代碼是 BreakVBA的編寫(xiě)程序,報表的生成會(huì )方便很多:②對數據進(jìn)模式時(shí),查看對象和變量的狀態(tài)。行復雜的操作和分析。各單位工資表的處理既重要又繁3開(kāi)發(fā)過(guò)程瑣,如果使用VBA程序對 Excel功能進(jìn)行拓展,編寫(xiě)個(gè)人在開(kāi)發(fā)具體業(yè)務(wù)程序時(shí),需要考慮以下問(wèn)題:①使用所得稅稅款計算程序,就會(huì )減少會(huì )計人員的錄入與核對工者,決定了程序的操作難度及界面感觀(guān):②數據來(lái)源和保作量,提高 Excel的利用效率和空間;③使重復工作自動(dòng)存地方,決定了程序的結構;③如何操作將決定程序的界化。例如,教師在判斷學(xué)生成績(jì)等級時(shí),不需要重復比對面和細節④數據處理結果,最終決定程序的價(jià)值成績(jì)與等級之間的換算,只需輸入下面的代碼即可4ⅤBA應用領(lǐng)域實(shí)例Ifp60 then score=“不及格”Ifp<75andp>60 then score=“中等”以基于 Excel-VBA的自動(dòng)閱卷反饋系統為例。Ifp<90andp>75 then score=“良好”傳統的計算機技能操作考試首先是由教師在計算機Ifp<100andp>90 then score=“優(yōu)秀上提供試題文本和素材文件,然后由學(xué)生上機操作答題,IfNot0<= p and p>=100 then ccore=“數據出錯最后由教師一一閱卷評分,這種考試方式存在組織時(shí)間End function長(cháng)、耗費人力物力多等不足。 Excel軟件使用是計算機課VBA內嵌 Excel優(yōu)勢如下程最重要的實(shí)驗教學(xué)環(huán)節之一,在 Excel實(shí)驗系統和考試(1)xcel作為orie中運用較為廣泛的一款軟件,其系統中中國煤化工學(xué)習效果和減輕教師工本身功能全面,兼有數據編輯、處理與文件打印等,使用者作量CNMHG能夠輕松掌握 Excel的基本操作方法與功能運用,VBAEx梁作,開(kāi)個(gè)唯一,如果不進(jìn)行適當的的加入顯著(zhù)提高了財務(wù)工作效率處理,很容易出現誤判、漏判。解決這個(gè)問(wèn)題的思路是:預(2除了上述功能外, Excel內涵大量數據運算與函數先創(chuàng )建一個(gè)數據庫,記錄下本次需要批閱的所有考核項分析程序,VBA內嵌后將更有助于提高數據處理效率。目、考核區域、考核知識點(diǎn)等信息,再做好試卷的標準答(3)ⅤBA的內嵌操作可在多個(gè)數據庫之間交換運用,案。批閱時(shí)按數據庫中的批閱項目將學(xué)生解答與標準答軟件導刊015年案進(jìn)行比對,從而判斷解答的對錯。目前許多開(kāi)發(fā)工具都ccls(14,7)Then可以針對 Excel進(jìn)行操作。但 Excel和其它 Office軟件都b2(n)+1自帶了一個(gè)開(kāi)發(fā)環(huán)境,在此環(huán)境中開(kāi)發(fā)完全可以滿(mǎn)足本項E」目要求,而且 Excel所提供的宏錄制功能可以一字不改地b2(n)=b2(n)將錄制的代碼移植到程序中,便于對象和屬性獲得以及代End If碼編制,調試程序時(shí)也免除了在多個(gè)軟件中來(lái)回切換。另If Cells(13, 3)=. Cells(14, 3)And. Cells(13, 4)外,本項目使用的數據量很小。 Excel本身就是一個(gè)數據ells(l4, 4) And cells(13.5)=. Cells(14, 5)And. cell(3.6)=. Cells(14. 6)Then庫軟件,完全可以存放批閱所需的數據。批閱結果的輸出b2(b2(n)+3可以存放在其它數據庫中,但查看不方便,軟件移植性差El程序中采用 Excel工作表存放批閱結果數據,師生可以很b2(b2(n)方便地利用 Excel所提供的篩選、分類(lèi)匯總、數據透視表End If等強大的數據統計功能了解批閱結果。具體如下:If. Cells(13, 8Cells(14,8)Then啟動(dòng) Excel批閱程序,打開(kāi)【 Excel批閱】對話(huà)框。設b2(n)=b2(n)+1置班級、標準文檔(即試卷名)學(xué)生作業(yè)文檔目錄。點(diǎn)擊EI【開(kāi)始批閱】按鈕后,自動(dòng)批鬩試卷中的所有學(xué)生文檔。程b2(n)=b2(n)序先打開(kāi)本試卷的標準解答文檔,再遍歷所有學(xué)生作業(yè)文End If檔并進(jìn)行批閱。主要代碼如下With Worksheets("sheet")讀取文件夾上所有答卷文件:Range( m8)=bl(n)folder= Range("b3")所有考試文件(如中文1班的地址)Range( " m13")=b2(nSet fso New Scripting FileSystem ObjecEnd withtotal(n)= bl(n)+ b2(n)For Each myfol In fso. Get Folder(myfolder)SubFoldersn=n+1讀取子文件夾下的所有文件Worksheets("匯總”).Cls(m+1,1). Value= myfolexle. A pplication. Display Alerts FalseName讀取文件夾下的所有子文件夾Worksheets("sheetl"). Cells(1,1).value= m fol. NameSet exle= nothingmypath myfolder &' myfol NameSet exl= Nothing再釋放所有聲明的對象EndEnd ifFor Each myfile In fso. Get Folder(my path). FilesIf Right(myfile. Name, 4)=xlsx" And Left(myfame,1)<>>"Then5結語(yǔ)URL= my path&"/"& myfile. NameIf Is Null(url)Or URLExcel功能強大、技術(shù)先進(jìn)、使用方便,用于輸入輸出MsgBox"請輸入一個(gè)文件地址數據,能對數據進(jìn)行各種復雜統計運算。 Excel廣泛應用EIs于多個(gè)領(lǐng)域。在 Excel中引入ⅤBA之后,其功能明顯增Set exle= exl Workbooks強,運用其內嵌的ⅤBA對Exce進(jìn)行再開(kāi)發(fā),可以自動(dòng)處exle Open Filename: URL理重復繁瑣的工作,提高工作效率,并且不會(huì )改變原軟件的操作方式與功能設置分數判斷系統With Worksheets(" sheet1")參考文獻第1題[1]陳靜.VBA對 Excel功能擴展的應用[J].北京衛生學(xué)校學(xué)報bI(n)=02012(1):1-5If. Cells(8, 2). Value=. Cells(9, 2). Value Then[2]劉靜.VBA在 Excel中的應用[J].計算機與網(wǎng)絡(luò ),2009(8):54bI(n)= bl(n)+ 5ElsesYH中國煤化工[3]王方法實(shí)現報表自動(dòng)生成[]bI(n)= bl(n)CNMHGEnd If[4]林海寧,基于VBA技術(shù)的 Excel自動(dòng)評閱系統[冂].寧德財經(jīng)學(xué)校第2題學(xué)報,2012(1):1-3(責任編輯:杜能鋼)If. Cells(13, 2)=.Cells(14, 2)And. Cells(13,7)=