2-ExcelVBA初步-11-12节.ppt

0.概述 0.概述 0.概述 0.概述 0.概述 EXCEL的作用 “一招鲜，吃遍天”，只要熟练掌握EXCEL，无论在那里工作，都能助您职场成功； 打破软件行业的“二八定律”，EXCEL的95%的功能我们还不曾见到，也不曾用过，这其中只需要再开发20%，就让我们受益终生。 0.概述 学习注意事项 （1）循序渐进，EXCEL学习一般经历新手、初级用户、中级用户、高级用户和专家五个层次。 新手要扫盲，借一本书加上机，熟悉EXCEL界面和基本操作； 初级用户应掌握基本的图表操作，掌握简单的公式和函数； 中级用户掌握各种菜单功能、熟练使用数据透视表、掌握20多个常用函数和函数嵌套使用； 高级用户熟练掌握各种常用公式，能够自定义公式，掌握VBA运用； EXCEL专家具备高超的EXCEL操作能力，并且某一行业的知识和经验非常丰富。 （2）掌握方法，解决应用问题最重要 EXCEL的344个函数不可能全部记住，掌握常用的即可，其他的掌握运用方法，并可以像查字典一样去随时查询和运用； EXCEL　VBA编程的基本语句、命令也不需要都记住，能看懂别人的语句，会修改、移植就可以了； 学会拿来主义，学以致用，解决问题最重要。 （３）永远不要停息你探索的脚步 很多深入的应用是挖掘和探索出来的，所以请明锐的去发现工作中的需求，并尝试探索用EXCEL去解决把； （４）多阅读，多运用 市面上有很多EXCEL的书，找到一本适合自己的，并在实际运用中勤加练习。 公共邮箱 hpuexcelvba@ 密码：hpu123456 2. Excel VBA 初步 2.1 EXCEL VBA概述 2.2 VBE编辑环境 2.3 EXCEL VBA程序及代码结构概述 2.4 控制工作薄 2.5 控制工作表 2.6 控制单元格 2.7 对话框操作 2.8 窗体与控件 2.9 窗口、菜单及工具栏设计 主要内容 2.4 控制工作薄 2.5 控制工作表 2.6 控制单元格 2.4 控制工作薄 1）新建工作薄 代码： Sub 新建BOOK()???????? Workbooks.Add???? End Sub???? 执行这段代码后，Excel会自动将新建的工作簿命名为BookN，并使新工作簿成为活动工作簿。其中“N”是继当前所有工作簿后下一个可用的数字，如当前工有Book1和Book2两个工作簿，则N为3，即创建新工作簿book3。 1）新建工作薄 新建工作薄，存储在我的文档，并命名为“新建”，设置密码为：123。 Sub 新建() Workbooks.Add ActiveWorkbook.SaveAs Filename:=D:\我的文档\新建.xls, Password:=“123, _ WriteResPassword:=“123“ End Sub 1）新建工作薄 新建了一个名为“学习”的工作簿 Sub AddNew() Set NewBook = Workbooks.Add With NewBook .Title = 学习 .SaveAs Filename:= 学习.xls End With End Sub 该新建工作 薄会自动保存在驱动程序的Excel文档所在的根目录下。 一次新建多个工作薄 代码 Sub 新建() For i = 1 To 5 Workbooks.Add ActiveWorkbook.SaveAs Filename:=_ D:\我的文档\ 学习 i .xls Next i End Sub Application.ScreenUpdating = False Application.ScreenUpdating = true 2）控制工作表 工作表是操作Excel时必不可少的对象，同时是编辑单元格对象的入口和载体 （1）插入工作表 插入单个工作表：sheets.Add 插入多个工作表：Sheets.Add Count :=2 在指定工作表前插入工作表 Sheets.Add Before:=Sheets(“sheet2”) 在指定工作表后插入工作表 Sheets.Add After:=Sheets(“sheet2”) 在指定工作表最前（后）位置插入工作表 Sheets.Add Before:=Sheets(1) Sheets.Add After:=Shee