EXCEL-VBA基础入门.ppt

,EXCEL VBA基础入门,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(Visual Basic for Applications),5. VBA编辑器,工程资源管理器,代码窗口,Application当前应用程序对象 Workbook工作簿对象 Worksheet工作表对象 Range由一个或多个单元格构成的区域,6.对象、属性、方法和事件,对象代表应用程序中的元素，比如，工作表、单元格、图表、窗体。在 Visual Basic 的代码中，可在使用对象的任一方法或改变它的属性之一的值之前，必须去识别对象 。,选择一个单元格 (展示对象的层次结构) 应用程序.工作簿.工作表.区域.选择 Application.Workbooks(“jbk.xls”).Worksheets(“j1”).Range(“A1”).Select 在当前工作簿中选择一个单元格 Range(“A1”).Select,WorksheetFunction属性 （可以从代码中访问任何内置的工作表函数） 例子（检查规定的单元格区域内是否还有空的） If Application.WorksheetFunction.CountBlank(Range(“a1:c10”) 0 Then Msgbox “您必须在所有的单元格中添加数据” End If ActiveWorkbook属性：返回指向活动工作簿的对象 ActiveSheet属性：返回指向活动工作表的对象 Selection属性：返回一个对当前选定单元格区域的引用 ThisWorkbook属性：在任何时候返回对包含代码的工作簿的引用,6.1Application对象,打开已有的工作簿 Application.Workbooks.Open “c:abc.xls” 添加新的工作簿 Workbooks.Add 引用工作簿 Dim wkb as Workbook Set wkb = Workbooks.Add 保存工作簿 Dim wkb as Workbook For Each wkb in Application.Workbooks wkb.Save(.SaveAs “c:abc.xls”) Next wkb 关闭工作簿 ActiveWorkbook.Close SaveChange:=True,FileName:=“c:abc.xls”,6.2Workbooks对象,Add方法：添加新的工作表 ActiveWorkbook.Worksheets.Add After := Worksheet(“Sheet3”) Count:=2 Count属性：返回工作簿中的工作表数 ActiveWorkbook.Worksheet.Add After := Worksheet(Worksheets.Count) Name属性：命名工作表 Worksheets(2).Name = “test” Activate方法：选择并显示一个工作表 ActiveWorkbook.Worksheets(“test”). Activate Move方法：移动工作表的位置 ActiveWorkbook.Worksheets(“test”).Move Before:=ActiveWorkbook.Worksheets(1) Delete方法：从工作簿中删除工作表 Application.DisplayAlerts = False(不显示提示信息） ActiveWorkbook.Worksheets(“test”).Move,6.3 WorkSheet对象,Value属性：设置单元格中的数值 Range(“A1”).Value = Range(“A1”).Value*80 Formula属性：将指定的公式放入单元格区域 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.4 Range对象,7.程序结构,定义程序开始,定义变量,主程序,程序结束,注 释,8. VBA语法,可以使用 Do.Loop 语句去运行语句的块，而它所用掉的时间是不确定的。当条件为 True 或直到条件变成 True 时，此语句会一直重复。直到条件为 True 时重复语句。,根据条件的值，可使用 If.Then.Else 语句运行指定的语句或一个语句块。If.Then.Else 语句可根据需要嵌套多级。然而，为了可读性可能会使用 Select Case 语句而不使用多嵌套级的 If.Then.Else 语句。如果条件为 True 则运行语句。,If.Then.Else 语句,Do.Loop 语句,另：Error 语句、Exit 语句、Msgbox函数、控件等,9. 编写程序,大致流程：,1.明确目的和流程，确定步骤。,2.录制宏（减少误操作）。,5.丰富宏程序功能，反复调试。,3.宏程序简单修减（去掉无用、错误操作信息）。,4.编写宏程序，定义函数，嵌入循环，标明注释。,6.插入艺术字，连接执行宏程序。,1.宏不是万能的，必须有人操作和维护。 2.不使用宏不影响正常的学习和办公。 不是所有的文档都需要宏来帮