Excel_VBA快速入门三班.xlsVIP

第五节、VBA程序实例 第四节、程序流程控制 第三节、单元格与选区操作 第二节、工作簿与工作表 第一节、VBA基础 课件目录 CommentDel DoWhileLoop循环语句 ElseIF语句控制 ForEacNext循环语句 ForNext循环语句 GetFormula GetSheetsName IF条件控制 IF条件选择 IIF控制语句 Range法选择多重区域 RngActivate方法 RngGoto方法 RngSelect方法 SelectCase控制语句 Union法选择多重区域 区域扩展 区域偏移 三角形 修改工作表名称 二、获取所有工作表的名称 Sub GetSheetsName() 三、自定义函数获取工作表个数 Function 工作表个数() End Function Dim i As Integer, sht As Worksheet i = 1 For Each sht In Worksheets Cells(i, 11) = sht.Name i = i + 1 让写入名称的单元格下移一行 Next 工作表个数 = ThisWorkbook.Sheets.Count Dim X As Integer Dim Y As Integer Workbooks.Add Y = 工作表个数() For X = 1 To Y Sheets(X).Name = X 月 Next X Sub 修改工作表名称() 1级 * 部门 Sub 更改工作表名称() Sub 新建工作表() Sub 删除工作表() Application.DisplayAlerts = False Application.DisplayAlerts = True Sub 移动工作表() Sub 移动工作表到新工作簿() Sub 复制工作表() Sub 复制工作表到新工作簿() Sub 显示工作表() Sub 设置工作表标签颜色() 简单的工作表操作代码： Sub 普通隐藏工作表() Sub 深度隐藏工作表() Sheets(1).Name = A Sheets(1).Move Sheets(1).Copy Sheets(1).Visible = False 或者0 Sheets(1).Visible = True 或者1 Sheets(1).Visible = xlSheetVeryHidden 或者2 Sheets(1).Tab.ColorIndex = 56 Sheets(1).Delete Sheets.Add before:= Sheets(1) Sheets(1).Move after:=Sheets(Sheets.Count) Sheets(1).Copy after:=Sheets(Sheets.Count) ThisWorkbook.Close True 保存并关闭当前工作簿 Cells.ClearNotes Cells.Comment.Delete 1、如何打开VBA编程窗口 四、必须掌握的基本概念 五、录制一个关于高级筛选的宏 六、小程序实例 三、VBA编程窗口操作 A：工具-宏-Visual Basic 编辑器 B：快捷键Alt+F11 3、设置断点与调试程序 2、F8与单步执行(Ctrl+F8) 4、中断执行：Esc与Ctrl+Break 5、F2与对象浏览器 八、附件：Excel VBA编程对象目录树 七、宏与VBA 宏代码可以看做是简单VBA程序，一般是由程序本身录制生成，因而它和VBA程序有很大的差别，并且有很多的操作宏是无法做到的： 1、不可以创建函数； 2、没有判断和循环的功能； VBA快速入门三班 3、不能进行人机交互； 4、无法创建和显示用户窗体； 6、无法自动进行批量处理等等。 5、无法与其他软件或文件进行互动； 属性区分可读与可写，大部分属性是可读也可写的。每一个对象都有属性，一个属性就是对一个对象的一个设置。 如：猪八戒的媳妇.Name＝高秀兰 在VBA中却需要对象在前，方法在后，示例如下：Worksheets.Add：Worksheets是工作表对象，Add是方法，表示新建。 6、对象、属性、方法、事件与过程 D、事件：简单点说，事件就是由用户或者系统触发的，可以响应的一段代码的操作。 比如：打开工作薄，激活工作表，选中单元格，双击表格，改变单元格的数值，点击按钮或窗体，敲击