VBA作用

VBA在EXCEL中的作用刘国忠作为办公人员，每一天都在利用Excel软件（熟称电子表格）进行大量事物处理，我们更是如此，它确实给我们的工作带来诸多方便。但由于每个行业都有其特殊性，Excel现有的操作功能不可能把我们每一个环节的工作都干出来，有时人们仍需要进行繁重的脑力劳动，其原因是因为人们只是掌握了大量Excel书籍中介绍的手工操作功能。但即使掌握了所有手工操作功能也只掌握了Excel全部功能的90％。那么剩余的10%是什么呢？就是VBA。VBA也是编程语言。它是以Excel为工作平台的编程语言。也就是我们常说的那个‘宏’！对于我们大多数人来说：有点谈‘宏’色变，因为启动Excel时一有‘宏’它就提示：“宏可能携带病毒，取消宏虽然可以确保安全，但如果这些宏本身是安全的，则又会损失某些功能”，有些不了解‘宏’的人一看到这条信息，就惊讶的说：“完了”，我的计算机或我的这个文件被病毒感染了，不能用了，有的赶紧杀毒，有的赶紧把文件删除，造成了不良后果。其实在Excel中关于宏的设置有三个档次，即高、中、低，提示以上信息是选中了中档次，含义是让操作者自己选择运不运行宏，如果不运行宏，宏的功能将不起作用。但若是运行自己编的可靠的宏，启动后将大大发挥其作用。比如：由教师任课明细表和各班级课程表形成全校课程总表用手工操作那可就费事了！通过编写程序一执行当即就可完成，既省时又省力.再如：PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)Cells.SelectSelection.ClearContentshxz=Workbooks(随机排课.xls).Sheets(班级开课情况).Cells(2,256).End(xlToLeft).ColumnIfhxz=80Thenyz=0Forhx=1TohxzStep2Cells(7,hx+yz+5)=扫除Cells(8,hx+yz+5)=扫除Cells(7,hx+yz+1)=班会Cells(8,hx+yz+1)=班会Cells(7,hx+yz+5).Font.ColorIndex=3Cells(8,hx+yz+5).Font.ColorIndex=3Cells(7,hx+yz+1).Font.ColorIndex=3Cells(8,hx+yz+1).Font.ColorIndex=3Cells(2,hx+yz+1)=一Cells(2,hx+yz+2)=二Cells(2,hx+yz+3)=三Cells(2,hx+yz+4)=四Cells(2,hx+yz+5)=五Forzx=3To20bj=Workbooks(随机排课.xls).Sheets(班级开课情况).Cells(1,hx)km=Workbooks(随机排课.xls).Sheets(xs=Workbooks(随机排课.xls).Sheets(班级开课情况).Cells(zx,hx+1)zxs=xs/2p=0Fori=1To200tt=Int(Rnd()*(6-1)+1)ww=Int(Rnd()*(7-1)+1)IfCells(ww+2,tt+hx+yz)=And(wwMod2=1)And(Cells(ww+1,tt+hx+yz)kmAndCells(ww+4,tt+hx+yz)km)Thenp=p+1Cells(1,hx+yz+1)=bjCells(1,hx+yz+1).Font.ColorIndex=3Cells(ww+2,tt+hx+yz)=kmCells(ww+2,tt+hx+yz).Font.ColorIndex=5Cells(ww+3,tt+hx+yz)=kmCells(ww+3,tt+hx+yz).Font.ColorIndex=5Ifp=zxsThenExitForEndIfEndIfNextNextyz=yz+4NextElseMsgBox对不起，由于版面关系初始化班级不能超过40个班，请用纵向排表！EndIfBeepEndSub以上是自编的自动排课程序。在此列出，目的是说明实现高难度问题，不编程是不行的，其二，是让同志们看一下VBA的程序内涵，对其更深入的了解。再举一例：利用VBA可以编成自己想操作的菜单，从而实现自己想要实现的功能。以上我只是举出沧海当中的几例。可以这么讲，凡是手工能干得活它都能干，凡是手工不能干得活它也能干，可见VBA的作用是多么的大。既然作用这么大，是不是每个人都可以学那？诚然。对于有心人，当你操作时多录制点“宏”看看你的操作过程就可以了。学会了对你的工作帮助是非常大的，愿同仁一道研究。有人说：VBA语言其实质是BASIC语言在excel中的应用，其实不完全正确。只能说BASIC语言中的条件语句，循环语句和一部分语句及书写格式在VBA中实用。如：上段程序中的Cells语句、Workbooks语句、Sheets语句在BASIC中是不存在的。我们知道任何语言都有它自己的体系，excel也不例外。这是提醒大家要特别注意的地方。谢谢！