"宏"的应用

ssN10093044E-mail:edu@cccc.net.cnComputer Knowledge And Technology电脑知识与技术http://www.dnzs.net.cnVol5, No 2January 2009, Pp. 442-444Tel+86-551-56909635690964“宏”的应用李西彬,吴玲(中国水电十三局有限公司,山东德州253009)内容提要:VB是大家較熟悉的计算机编程语言,而在不少的应用软件中已嵌套了面向对象的VBA,如果能掌握了VBA的使用将会使工作效率达到事丰功倍的效果,这对工程技术人员非常重要,该文简要介绍了VBA的使用方法关键词:宏;宏语言;程序中图分类号:TP311文献标识码:A文章编号:1009-304402009020442-03LI Xi-bin, WU LingBureau No 13, Sinohydro Corporation, Dezhou 253009, China)Abstract: VB is a popular computer language. It was built in some application software called VBA, such as MS Office and CAD. If youcan use it well, your work efficiency will be raised times. So, it is very useful for engineering techniciansKey words: Micro: Visual Basic for application; Examples1引言MS OFFICE是大家常用的办公软件,尤其是 EXCEL因为它用在数据处理方面即方便又快捷。但到了处理条件多样化的时候,例如你做一个人事管理的 EXCEl表想进行一个多项组合的查询统计单靠鼠标和键盘操作就很难办到了或者是一组操作需重复使用时,这时候“宏”就能帮你解决这个问题。“宏”是什么?宏是VBA编制的一小段程序,其目的是把一些操作集成封装在一个程序之内,当需要这些操作时只运行这个宏就可以了。VBA又是什么?它是 Visual Basic for Applications的缩写,是基于 Visual Basic forWindows发展而来的标准宏语言。VBA是在VB的基础上针对不同的应用程序有不同的对象属性、方法和函数。对于已熟悉VB的人是不难的,因为在 OFFICE宏中它有自动记录宏的功能,如果你不知道如何用VBA来实现这个功能就打开记录宏,把其中有用的部分复制出来即可。2基础知识对象:是封装有数据和代码的客体。例如, UserForm对象是一个窗口或对话框,用以构成应用的用户界面部分。属性:是对象的一个特性或者该对象操作的一个方面。例如,文档属性包含名称、内容、保存状态,以及是否启用修订。要设置个属性的值,可在对象的后面带一个句号、属性名、一个等号和新的属性值。下面的示例是对单元格的属性进行赋值。With Selection FontName ="Arial"End withSelection Font Bold TrueSelection. Font Italic True新的属性为字型Anl,大小12号,字体加粗并有加斜方法:是对象可以进行的动作。例如,可打印一篇文档,因 Sheets对象具有 PrintOut方法。方法通常都具有参数指明动作是如何进行的。下面的示例是打印活动T作表的前三页。Active Window Selected Print Out From: =l, To: =3, Copies: =l, Collate: =True在大多数情况下,方法是动作,而属性是性质。使用方法可使对象发生某些事情,而使用属性则可返回对象的信息或者引起对象的某个性质的吏改。事件:是一个对象可以辨认的动作,像单击鼠标或按下某键等,并且可以写某些代码针对所述动作来做响应。用户做动作序代码的结果可能导致事件的发生,或是由系统引发。对象的属性、方法和事件方法指的是对象能执行的动作。如果对象共享共同的方法,则可以操作整个对象集合。例如,下列的过程会清除当前选区。Sub ClearCells()Selection. ClearContentsEnd Sub联每性定义了对象的特征,诸如大小颜色或屏幕位置。或某一方面的行为诸如对象是否有激活或可见的。可以通过修改对象的值来改变对象的特性中国煤化工CNMHG收稿日期:2008-12-10作者简介:李西彬(1958-),山东德州人,高工,中国水电十三局也门荷台达項目部经理;吴玲(1962-),江西广丰人,高工,中国水电十三局安全生产监督管理部主管师。当方数据技术及其应用·:::本栏目赝任编辑:唐一东李西彬等:“宏”的应用若要设置属性值,则在对象的引用后面加上一个复合句它是由属性名加上等号(=)以及新的属性值所组成的。例如,下面的过程通过设置窗体中的 Caption属性来更改 Visual Basic窗体的标题。Sub Change Name( newTitle)myForm Caption new TitleEnd Sub有些属性并不能设置。每一个属性的帮助主題,会指出是否可以设置此属性(读与写)或只能读取此属性(只读),还是只能写入此属性(只写)可以通过属性的返回值来检索对象的信息。下列的过程使用一个消息框来显示当前活动文档的标题,它显示在当前活动窗体顶部form Name= Screen. Active Form. CaptionMsgBox formNam3在 EXCEL中使用宏在 EXCEL快捷T具栏中击右键打开“窗体”,列出所能使用的控件。根据需要在表中建立一个控件,针对该控件再编制一段程序,当你再点击这个控件时宏即可运行。编程序时可按“L具-宏- Visual basic编器”进入 Microsoft visual basic窗口,执行“插入—模块"或双击 Microsoft excel对象下的一个表进行编程状态,把下面程序输入进去,然后执行“运行"即可。通过点击鼠标右可把这段宏赋于该控件当然要使用"宏"必須先在工具-宏-安全性中设成“低”或“中来启用宏才行,启用宏时一定要记住你的宏是安全的,以避免宏病毒的侵入4应用实例在 EXCEL中使用"宏”编写的一个填数游戏,使其方阵的横竖、对角格中数字的和相等。要求所输人方阵的格数必须为奇数。把下列程序过VB编辑器输入到“模块1”,在 Sheet中建立一个命令按钮,鼠标指向该命令按钮击右键“指定宏"到该函数名abc0即可。Sub abcoDim s(21, 21), n, Previous_C, Previous_R, Row, Rank As IntegerSheets("hetl") Select‘选取J作表Range("al:u24") Select‘选取范围Selection. ClearContents‘清除选区n= Input Box(" input Numbers, must be in even")‘本例最大数为2l1n= valn/2) Then n=n-1‘取奇数Rank= Int(n/2)+1Rank= Rank +1If Rank > n Then Rank= 1If s(Row, Rank)<0 Then Rarevious C: Row Previous R-1If Row I Then Row =nIf Rank I Then Rank =ns(Row, RankFor i=1 ToDebug. Print s(i.),在立即窗口中显示Sheets(" sheet l") Cells(i,j)=s(,j‘在单元格中填数Next jDebu其它VBA也可在CAD2000以上版本中使用,方法同样,只是它没有宏记中国煤化工册或CAD中的帮助。下面给出一个取点的小程序在CAD中选T具一宏一 visual basic编辑器,点 thisdrawing把下面的CNMHG模块1”Dim x, y As Double多蝶体技术及其应用:443数据Computer Knowledge and Technology电脑知识与技术第5卷第2期(2009年1月)Dim RetumPoint As VariantDim i As IntegerDim high As SingleDim Ptext, Fname As StringDim textObj As AcadTextDim pointObj As AcadPointDim layerObj As Acadlayerx=0:y=0: i= 1: high=9Fname= InputBox("选取结束时,请回到第一点!请给出文件名。")If Fname="" Then Fname=" Points Date"‘建立一个文本文件名="c: \abcl"& Fname &"bxrObi= This Drawing Layers.Ad" Points Data")‘建立一个新图层Point ThisDrawing Utility, GetPointPtext=i&": " round( Retum Point(0), 2)&", " Round (Retum Point(1), 2)&")textObj= This Drawing ModelSpace. Add Text(Ptext, Return Point, highSet pointObj= This Drawing ModelSpace. AddPoin( Return point)‘把获取的坐标显示在图上Obj Layer ="Points Data"point Obj. color= acRedOpen Fname For Output As #I"c: POints DATA. txtPrint#1,"No","y","x"‘把点坐标值写到文本文件中Print #1, i: Round(RetumPoint(1), 2), Round (Returm Point(), 2)Retum Point(O): y ReturmPoint(1)DReturnPoint= This Drawing Utility. Get PointIf x= Retum Point(0) And y Returm Point(D)Then Exit DoDebug Print i, Retum Point(O), Return Point(1)text =i&": " Round(Returm Point(0), 2)&", Round (Retum Point(1), 2)&")et textObj= This Drawing ModelSpace AddText(Ptext, Retum Point, high)Set pointObj= This Drawing ModelSpace. AddPoint(RetumPoint)int obj. color agReenEnd sub它的运行结果是把已有的CAD图通过点击鼠标把获取点进行编号并按编号顺序把点的(xy)座标值放到一个文本文件中以便其它软件来进行数据处理6结束语以上两段VBA应用小程序只是一个启发,如果你能熟练掌握ⅤBA将会对你的工作有极大的帮助,因为所有现成的应用软件其功能不可能完全达到你的要求那么还是自己动手吧。我们曾针对管道安装工程量结算和断面工程量计算及自动出图编写过VBAFOR EXCEL和CAD应用程序,实用效果非常好(上接第437页)采用流媒体格式传数影音使用者不必等待整个影片传送完毕,就可以实时的连续不断的观看,这样不但改善观看前的等待问题,也可以达到即时的效果。虽然我们损失了一些画面质量,但就视频会议来讲,并不需要很高的音视频质量4结论通过流媒体技术与网络技术的结合我们就可以利用校园网充分地为学校的教学、管理服务,建立具有鲜明特色的学科专业和充满活力的学科体系,提高学校的管理质量、管理效率。流媒体无疑为校园网注入了新的生机流媒体技术在校园网上会有更广泛的应用前景参考文献[]陈代武彭宇行流媒体技术及其在校园教育信息资源传输中的应用[电化教育研究20039958-612]梁晓辉游志胜流媒体技术及其在宽带网络中的应用与发展办信息网中国煤化工3]王琴娣流媒体技术及其在远程教育中的应用南京广播电视大学学4]陆元明,周小明流媒体标头结构分析及其交互教学应用]电化教育研CNMHG5]王秋云俄燕流媒体技术在远程教育中的应用电化教育研究200309:62-65·多纂修技术及其应用·本栏目费任编盟:唐一东