VBA基础知识普及常用代码大全菜单工具栏打开关闭工作簿函数调用图表修改返回最后一行.doc

目 录 前言 2 正文 2 第一部分 基本知识简介 2 1激活、选择对象 2 2引用单元格 2 2.1引用单个单元格 2 2.2引用区域 3 4选中/删除/剪切/插入/隐藏行或列 3 4.1 选中行或列 3 4.2 删除行或列 3 4.3 剪切行或列 4 4.4 插入行或列 4 4.5 隐藏行或列 4 5复制并粘贴 4 5.1 复制并选择性粘贴 4 5.2 复制并粘贴 5 6循环语句 5 6.1 Do While 循环 5 6.2 Do Until循环 5 6.3 For Next 循环 5 7 if Then end if 语句 6 8 With语句 6 9清除单元格数据 7 10 InputBox、MsgBox 7 10.1 InputBox函数 7 10.2 MsgBox函数 8 11 Sub函数与Fountion函数 8 11.1函数结构 8 11.2 Sub函数与Fountion函数 9 11.3Fountion函数举例 9 12提高VBA代码运行速度的重要代码 9 第二部分常用代码大全 10 1添加自定义菜单代码 10 2添加自定义工具栏代码 11 4启动工作簿自动运行宏 13 4.1 Workbook.Open 事件 13 4.2用Auto_Open宏 13 5 VBA调用函数的方法 14 6 sub 的递归 14 7 userange函数找到数据边界 15 8 End (xldown) 和End(xlup)语句 15 9修改图表数据系列的引用数据 16 10窗体制作代码 16 11打开相应路径的工作表 17 12以B2：B10为主要关键字排序 17 前言 本文前半部分适用于初学VBA基础的人，后半部分的常用代码在初学者乍看起来可能有点难度，但是初学者可以将本文档中的代码复制下来放到Excel VBA窗口中试运行，学习起来会事半功倍。 本文第一部分简要讲解了VBA基础对象操作的基础知识。学会了这些，就能编制一些简单的含有常用的基本功能的VBA代码。第二部分是一些非常有用的VBA代码，涵盖了添加自定义菜单、添加自定义工具栏、打开关闭工作簿、函数调用、Sub函数递归、寻找并返回数据区域边界、自定义排序、制作窗体代码、修改图表数据引用、启动工作簿自动运行VBA代码、通过VBA输入公式等等，涵盖了大部分常用重要的功能。希望能给大家带来帮助。 作者水平有限，耗费一晚写成，文中纰漏在所难所，望读者批准指正。 正文 在进行Excel VBA编程的过程中，无时无刻不在接触与使用对象。在cel VBA中操作和设置的主体都是对象这是因为cel本身小到一个单元格它们都是对象cation→Workbook→Worksheet→range 打开VBA编辑窗口： 打开VBA窗口的快捷键：alt+F11。也可以依次点击开发工具→Visual Basic→新建模块→在模块中输入VBA代码。也可以在MicroSoft Excel对象中输入代码。 第一部分 基本知识‘激活工作表 Sheets(工作表名).Select ‘选择工作表 Range(A1).Select ‘选择A1单元格 2引用单元格 2.1引用单个单元格 如果要引用单元格有以下几种方式 Workbook(工作表名).Worksheets(工作簿名).Range (C4) 注意可以简写成Sheets(工作簿名).Range (C4) Sheets.Cells (4, 3) 2.2引用区域 如果要引用C3到C10 Range (C3:C10) 同理如果要引用C3到F10 Range (C3:F10) 到这里你可能要问了，假如把10换成变量y呢 Range (C3:F y) 那么假如3也换成变量x呢? Range (C x :F y) 如果更进一步你可能又要问了，假如C和F都是变量怎么办，还能引用吗？如果要实现这样一种功能：通过VBA代码给单元格B10 写入公式C$2:$F$9,*立项*)(注释在C:F9中统计含有”立项”内容的单元格个数)如果C 定义行号用变量x(x1,x2)表示列号用 Sheets(工作表名).Cells(10, 2).FormulaR1C1 = =COUNTIF(R x1 C y1 :R x2 C y2 ,*立项*) 4选中/删除/剪切/插入/隐藏行或列 4.1 选中行或列 选中第Rows(5).select或者s(“5:5”).select 选中第 Rows(“5:10”).select 选中第C列到第E列的代码如下 Columns(C:E).Select Entirecolumn属性、Entirerow属性 Range(A3).Entirecolumn