EXCEL VBA基础入门.ppt

,EXCELVBA基础入门,1.什么是宏？它在那里？,2.宏的安全性问题,5.VBA编辑器,7.程序结构,8.VBA语法,4.VBA语言介绍,3.录制宏,9.编写程序,6.对象、属性、方法和事件,1.什么是宏？它在那里？,宏是一个指令集，用来告诉EXCEL完成用户指定的动作。宏类似于计算机程序，但是它是完全运行于EXCEL之中的，我们可以使用宏来完成枯燥的、频繁的重复性工作。宏完成动作的速度比用户自己做要快得多，能大大提高效率。office中都有宏的身影。,增加鼠标寿命,2.宏的安全性问题,宏是依附于office文件的程序，可能有恶意的宏程序，即宏病毒。所以一般默认是禁止宏的，再加上编程问题，一般不敢用“宏”，对于提高办公效率只能依赖于EXCEL技巧。,3.录制宏,运行宏,录制宏,安全性,VBA编辑器,4.VBA语言介绍,翻译：直观基本应用本质：与VB相似，一种应用程序开发工具，是可视化、面向对象、事件驱动方式的结构化程序设计语言由应用程序控制也可以增强应用程序的功能由微软公司开发是Office套件的一部分极大的提高办公效率,VBA(VisualBasicforApplications),5.VBA编辑器,工程资源管理器,代码窗口,Application当前应用程序对象Workbook工作簿对象Worksheet工作表对象Range由一个或多个单元格构成的区域,6.对象、属性、方法和事件,对象代表应用程序中的元素，比如，工作表、单元格、图表、窗体。在VisualBasic的代码中，可在使用对象的任一方法或改变它的属性之一的值之前，必须去识别对象。,选择一个单元格(展示对象的层次结构)应用程序.工作簿.工作表.区域.选择Application.Workbooks(“jbk.xls”).Worksheets(“j1”).Range(“A1”).Select在当前工作簿中选择一个单元格Range(“A1”).Select,WorksheetFunction属性（可以从代码中访问任何内置的工作表函数）例子（检查规定的单元格区域内是否还有空的）IfApplication.WorksheetFunction.CountBlank(Range(“a1:c10”)0ThenMsgbox“您必须在所有的单元格中添加数据”EndIfActiveWorkbook属性：返回指向活动工作簿的对象ActiveSheet属性：返回指向活动工作表的对象Selection属性：返回一个对当前选定单元格区域的引用ThisWorkbook属性：在任何时候返回对包含代码的工作簿的引用,6.1Application对象,打开已有的工作簿Application.Workbooks.Open“c:abc.xls”添加新的工作簿Workbooks.Add引用工作簿DimwkbasWorkbookSetwkb=Workbooks.Add保存工作簿DimwkbasWorkbookForEachwkbinApplication.Workbookswkb.Save(.SaveAs“c:abc.xls”)Nextwkb关闭工作簿ActiveWorkbook.CloseSaveChange:=True,FileName:=“c:abc.xls”,6.2Workbooks对象,Add方法：添加新的工作表ActiveWorkbook.Worksheets.AddAfter:=Worksheet(“Sheet3”)Count:=2Count属性：返回工作簿中的工作表数ActiveWorkbook.Worksheet.AddAfter:=Worksheet(Worksheets.Count)Name属性：命名工作表Worksheets(2).Name=“test”Activate方法：选择并显示一个工作表ActiveWorkbook.Worksheets(“test”).ActivateMove方法：移动工作表的位置ActiveWorkbook.Worksheets(“test”).MoveBefore:=ActiveWorkbook.Worksheets(1)Delete方法：从工作簿中删除工作表Application.DisplayAlerts=False(不显示提示信息）ActiveWorkbook.Worksheets(“test”).Move,6.3WorkSheet对象,Value属性：设置单元格中的数值Range(“A1”).Value=Range(“A1”).Value*80Formula属性：将指定的公式放入单元格区域Range(“A3”).Formula=“=A1+A2”Rows和Columns属性：返回工作表中一个完整的行或列Rows(1)表示活动工作表中第一行的Range对象Range属性：对一个相邻或不相邻的单元格区域返回一个Range对象Range(“A:C”)Range(“A1:C10”)Range(“A1:C10,E1:E20”),Cells属性：获得对单个单元格的引用引用单元格D10：Cell(10,4)Cells(x,y).Value=x*y,6.4Range对象,7.程序结构,定义程序开始,定义变量,主程序,程序结束,注释,8.VBA语法,可以使用Do.Loop语句去运行语句的块，而它所用掉的时间是不确定的。当条件为True或直到条件变成True时，此语句会一直重复。直到条件为True时重复语句。,根据条件的值，可使用If.Then.Else语句运行指定的语句或一个语句块。If.Then.Else语句可根据需要嵌套多级。然而，为了可读性可能会使用SelectCase语句而不使用多嵌套级的If.Then.Else语句。如果条件为True则运行语句。,If.Then.Else语句,Do.Loop语句,另：Error语句、Exit语句、Msgbox函数、控件等,9.编写程序,大致流程：,1.明确目的和流程，确定步骤。,2.录制宏（减少误操作）。,5.丰富宏程序功能，反复调试。,3.宏程序简单修减（去掉无用、错误操作信息）。,4.编写宏程序，定义函数，嵌入循环，标明注释。,6.插入艺术字，连接执行宏程序。,1.宏不是万能的，必须有人操作和维护。2.不使用宏不影响正常的学习和办公。不是所有的文档都需要宏来帮忙