VBA在Excel中的应用

第14卷第42015年4月Software guideApr.2015VBA在Exce中的应用朱俭,马敬贤2,宋玉3,廖志融(1.中国青年政治学院计算机教学及应用中心;2中国青年政治学院社工学院中国青年政治学院经管学院,北京100089)摘要: Excel是微软公司 Office集成办公软件重要组件之一,应用广泛。在Exel中引入ⅤBA,运用其内嵌的ⅤBA对 Excel进行再开发,不仅可以提高工作效率,自动处理重复繁琐的工作,并且不会改变原软件的操作方式与功能,介绍了ⅤBA在 Excel中的开发优势、开发环境、开发过程及应用领域。关键词: Excel-VBA; Excel开发;VBA应用DOI:10.11907/rjdk1431087中图分类号:TP301文献标识码:A文章编号:1672-7800(2015)004-0046-03Excel在财务处理中广泛应用,其人性化的功能设计与灵0引言活的操作填补了普通会计软件的不足。然而,Excl也有其自身缺点:由于每个操作都要人工完成,对于重复性财务软件的应用显著提高了工作效率,大大减轻了财的工作,难免会造成繁重的工作与冗余务人员的工作强度,这得益于财务软件实现了数据录入利用ⅤBA对 Excel进行二次开发,即将重复操作编处理与输出一体化。然而,在详细处理数据方面,财务软程运行,可以有效避免多次人为操作带来的失误,显著提件的部分功能与当下的管理工作要求依旧脱节。基于此,高工作效率与质量用户所接受。两款杀毒软件使用情况对比如表3所示。特定需求是否能得到解决。其中,用户体验需要首先考表3卡巴斯基和奇虎360使用对比虑,简洁的使用界面、无歧义的文字解释,以及可靠的设置对比内容卡巴斯基奇虎360与运行就是优秀的企业杀毒软件必备特征之一。就杀毒占用电脑资源多强强防护功能而言,卡巴斯基相对较强,但是在设置和使用上杀毒能力比卡巴斯基弱实时监控比卡巴斯基弱较为复杂,功能单一,占用大量计算机硬件性能,让用户无杀毒准确度比卡巴斯基误判率高法接受。奇虎360虽然很注重用户体验,涵盖一些适用于用户体验不易上手较为顺手企业内部需求的附属功能,让信息人员及员工用户爱不释推送软件手,但是强制推送、默认安装、捆绑安装等霸道行为也着实捆绑软件捆绑360软件管家统一部署能力令用户难以接受。因此,企业需结合自身实际,综合考虑远程桌面无选择合适的杀毒软件,最大程度地保障企业信息安全,更硬件台帐有有好地促进企业发展统一发布信息平台杀毒策略定制精细精细度不如卡巴斯基参考文献历史报表有有[1]金烨.产品与服务并重[N].中国计算机用户,2009-10-23系统修复有[2]胡斌昀,企业防毒软件发展趋势分析[J].中山大学学报:自然科学包脑清理版,204,43(6):142-144优化加速无有[3]扶苏抓住要点,两招搞定中小企业信息安全[N].电脑报,2014软件管理有中国煤化工[4]董CNMHG即产品到安全即服务[N].中结合上述实践,得出选择杀毒软件需重点考虑如下方国面:①用户体验;②计算机硬件性能优劣;③杀毒能力,漏[5]刘宏伟,企业杀毒需变招[N]计算机世界,2008-12-22洞扫描④管理、安装方式,体系架构;⑤企业注重的一些(责任编辑:孙娟)作者简介:朱俭(1981—),男,江苏徐州人,博士,中囯青年政治学院计算机教学与应用中心讲师,硏究方向为自然语言理解、搜索技术。俭,马敬贤,宋玉,等:VBA在Excl中的应用47·利于数据的沟通与交流。同时,VBA简单的操作方法容1VBA应用易掌握,利于推广普及。如果利用其它程序编写语言,通常都需要搭建好基本的功能操作例如数据的导入、处理与11VBA介绍导出等,而以 Excel为载体的ⅤBA开发,则因为Exce本VBA全称 Visual Basic For Applications,是Ⅴ isual身已经具备的基本操作,大大节省了开发时间,提高了工Basic的一部分,是在某些应用程序中内置的编程语言。作效率与Ⅴ isual Basic不同的是,VBA需要一个应用程序作为载体才能运行,而VB则可以创建独立的应用程序。VBA3 Excel-VBA开发通过自定义程序,将宿主应用程序的某些操作自动化,为解决重复操作问题提供了一个良好方案。3.1开发环境1. 2 Excel vBA在 Office按钮中,选择 Excel选项,在常用选项下选般来说,VBA是内嵌在 Office中,增强 Office软件中“在功能中显示·开发工具’选项卡”,或者按快捷键Alt使用功能的程序语言。如今,VBA应用已经逐步涉及到F11即可进入。Word(WordBasic), Excel( ExcelBasic) Access(AccessBa安全性设置:在信任中心中,选择信任中心设置,启用sic)和 Power Point( Power Point basic),并且在ouok中所有宏。也开发了 Visual Basic Scripting Edition语言,这些语言统32BE应用称为Ⅴ 3 for A pplication进入ⅤBE编辑器后,就能编写有关低界面后程序。利用ⅤBA在 Excel中编写相应的语言,可创建数据VBE编辑器主要包括以下内容:①代码窗口。编写及查处理方案,对数据进行详细处理和系统分析。Exc软件看VBA代码:②对象窗口。设定窗体界面(如果使用了窗中既有的功能操作,包括数据录人界面、工作表的基本操体的话),设定窗体各个控件布局;③对象浏览器。查看所作等可以直接使用有对象库、特定对象或工程,包括所有的对象列表及每个对象的成员列表;④工程资源管理器。管理工程中的模2ⅤBA在 Excel中的应用优势块、类模块与窗体,可以很容易地在代码与对象之间切换⑤属性窗口。可设定很多对象相关属性,简单到只要用鼠基于ⅤBA功能实现Wod中的应用,可实现以下功标选择即可:⑥工具箱。在插入窗体后,可以从工具箱添能:①创建报表。实时报表的编写方法虽然众多,但是程加各种控件,①立即窗口。其主要工作是:在开发过程中序步骤相当繁琐,报表功能也受到很多限制。通过应用用 Debug. Print输出的内容就在此显示;当代码是 BreakVBA的编写程序,报表的生成会方便很多:②对数据进模式时,查看对象和变量的状态。行复杂的操作和分析。各单位工资表的处理既重要又繁3开发过程琐,如果使用VBA程序对 Excel功能进行拓展,编写个人在开发具体业务程序时,需要考虑以下问题:①使用所得税税款计算程序,就会减少会计人员的录入与核对工者,决定了程序的操作难度及界面感观:②数据来源和保作量,提高 Excel的利用效率和空间;③使重复工作自动存地方,决定了程序的结构;③如何操作将决定程序的界化。例如,教师在判断学生成绩等级时,不需要重复比对面和细节④数据处理结果,最终决定程序的价值成绩与等级之间的换算,只需输入下面的代码即可4ⅤBA应用领域实例Ifp60 then score=“不及格”Ifp<75andp>60 then score=“中等”以基于 Excel-VBA的自动阅卷反馈系统为例。Ifp<90andp>75 then score=“良好”传统的计算机技能操作考试首先是由教师在计算机Ifp<100andp>90 then score=“优秀上提供试题文本和素材文件,然后由学生上机操作答题,IfNot0<= p and p>=100 then ccore=“数据出错最后由教师一一阅卷评分,这种考试方式存在组织时间End function长、耗费人力物力多等不足。 Excel软件使用是计算机课VBA内嵌 Excel优势如下程最重要的实验教学环节之一,在 Excel实验系统和考试(1)xcel作为orie中运用较为广泛的一款软件,其系统中中国煤化工学习效果和减轻教师工本身功能全面,兼有数据编辑、处理与文件打印等,使用者作量CNMHG能够轻松掌握 Excel的基本操作方法与功能运用,VBAEx梁作,开个唯一,如果不进行适当的的加入显著提高了财务工作效率处理,很容易出现误判、漏判。解决这个问题的思路是:预(2除了上述功能外, Excel内涵大量数据运算与函数先创建一个数据库,记录下本次需要批阅的所有考核项分析程序,VBA内嵌后将更有助于提高数据处理效率。目、考核区域、考核知识点等信息,再做好试卷的标准答(3)ⅤBA的内嵌操作可在多个数据库之间交换运用,案。批阅时按数据库中的批阅项目将学生解答与标准答软件导刊015年案进行比对,从而判断解答的对错。目前许多开发工具都ccls(14,7)Then可以针对 Excel进行操作。但 Excel和其它 Office软件都b2(n)+1自带了一个开发环境,在此环境中开发完全可以满足本项E」目要求,而且 Excel所提供的宏录制功能可以一字不改地b2(n)=b2(n)将录制的代码移植到程序中,便于对象和属性获得以及代End If码编制,调试程序时也免除了在多个软件中来回切换。另If Cells(13, 3)=. Cells(14, 3)And. Cells(13, 4)外,本项目使用的数据量很小。 Excel本身就是一个数据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所提供的筛选、分类汇总、数据透视表End If等强大的数据统计功能了解批阅结果。具体如下:If. Cells(13, 8Cells(14,8)Then启动 Excel批阅程序,打开【 Excel批阅】对话框。设b2(n)=b2(n)+1置班级、标准文档(即试卷名)学生作业文档目录。点击EI【开始批阅】按钮后,自动批阋试卷中的所有学生文档。程b2(n)=b2(n)序先打开本试卷的标准解答文档,再遍历所有学生作业文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结语URL= my path&"/"& myfile. NameIf Is Null(url)Or URLExcel功能强大、技术先进、使用方便,用于输入输出MsgBox"请输入一个文件地址数据,能对数据进行各种复杂统计运算。 Excel广泛应用EIs于多个领域。在 Excel中引入ⅤBA之后,其功能明显增Set exle= exl Workbooks强,运用其内嵌的ⅤBA对Exce进行再开发,可以自动处exle Open Filename: URL理重复繁琐的工作,提高工作效率,并且不会改变原软件的操作方式与功能设置分数判断系统With Worksheets(" sheet1")参考文献第1题[1]陈静.VBA对 Excel功能扩展的应用[J].北京卫生学校学报bI(n)=02012(1):1-5If. Cells(8, 2). Value=. Cells(9, 2). Value Then[2]刘静.VBA在 Excel中的应用[J].计算机与网络,2009(8):54bI(n)= bl(n)+ 5ElsesYH中国煤化工[3]王方法实现报表自动生成[]bI(n)= bl(n)CNMHGEnd If[4]林海宁,基于VBA技术的 Excel自动评阅系统[冂].宁德财经学校第2题学报,2012(1):1-3(责任编辑:杜能钢)If. Cells(13, 2)=.Cells(14, 2)And. Cells(13,7)=