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