VBA学习笔记-

1、VBA学习笔记目录第一章基础知识21.4Excel VBA窗口介绍2VBE就是VBA的编辑窗口2VBE窗口简介：2宏的运行方法：41.5 Excel VBA代码编写规则51.VBE常见的设置52代码的编写规则：73代码的换行71.6对象81.对象82.集合83.常用代码操作Excel中的对象81.7属性81.8方法101.17Do untilloop101.18循环语句之WHILE和until的位置变化111.18B DOloop语法小结15第二章162.3工作簿基础操作162.5工作表的表示方法162.6工作表集合应用172.7工作表增加与删除191.工作表的新建192.工作表的删除202.

2、8工作表增加与删除实例202.81新建1到12月的表202.8.2删除工作表212.9工作表移动与复制21第一章基础知识1.4Excel VBA窗口介绍VBE就是VBA的编辑窗口1) 按Alt+F11（不知道为什么用不了，选择后面一种）2) 开发工具里面-Visual BasicVBE窗口简介：1) 视图-工程资源管理器：就是下图这个板块2) 属性窗口：显示了工程对象的详细信息3) 立即窗口&本地窗口：试图里面的立即窗口：看到显示的结果本地窗口：进行代码的调试4) 过程过程：一般来说用的就是子过程和函数过程子过程的格式一般都是：AA是自己定义的名称Public Sub AA()End

3、Sub函数过程格式如下：FF是自己定义的名称Public Function FF()End Function宏的运行方法：a) 插入图形-指定宏b) 插入控件c) 直接运行1.5 Excel VBA代码编写规则1.VBE常见的设置A. 工具选项设置B. 注释：前面有一个英文格式的单引号，显示为绿色字体的如果注释比较多的情况下，不用每一个都手动加上单引号，或者每一个去掉单引号，这时候可以应用工具选项里面的编辑C. 代码的运行如果需要逐句运行代码，看可以吧光标定在代码开头，然后按Fn+F8就可以逐句运行代码D. 代码帮助（Fn+F1）把光标选择需要帮助的语句，然后点击Fn+F1，就会出现如下的解释

4、2代码的编写规则：a) 子过程b) 函数过程3代码的换行空格+下划线+换行1.6对象1.对象现实生活中的对象，是真实存在的。在EXCEL中就指的是：工作簿，工作表，单元格，图标，透视表之类的2.集合也是一种特殊对象，不过没有特定指哪个对象，只是一种统称。如“人”就是一个集合的叫法。在EXCEL中的集合：workbooks，workksheets，cells等3.常用代码操作Excel中的对象1.7属性1) VBA的属性：指对象所具有的特性人的属性：姓名，年龄，身份证号码，住址逐句运行看看，sheet1的name就是CSR这个是它的属性，然后sheet2的单元格是：我会VBA啦，也是它的属性2)

5、 VBA属性赋值本来练习这个表格里面的A1单元格是没有赋值的，下面用代码进行赋值，并且更改这个sheet的名称输入以下的公式并且运行，看到左边的工程资源窗口显示了sheet3的名字为改变自己 同时A1单元格也被赋值1.8方法1.17Do untilloop例一：在等级那一列标识属于优秀的成绩例二：隔行填色对以下的记录进行隔行填色对于以下这句代码可以这样理解：Do Until Sheet5.Range("a" & rs) = "" Sheet5.Range("a" & rs & ":h" &a

6、mp; rs).Interior.ColorIndex = 3Do 直到sheet5的横行范围a?为0Sheet5的横行范围a？：h？，内部填充颜色指数为3的颜色1.18循环语句之WHILE和until的位置变化While和until不但可以放在Do的后面，也可以放在loop的后面实际上，有时在循环的最后一行进行判断更具有意义例子：在输入框中输入的密码为123时才停止循环另PSS密码为字符串，i为单精度这种放在loop的后面时，先操作请输入密码，然后对输入的密码进行判断，如果不等于123就是loop然后重复操作，如果等于123，就直接end。其实until pss=123，也可以放到do的后面

7、这个写法，是先对pss进行判断是否等于123，如果不等于，再执行请输入密码，然后就直接进行loop，再判断一次pss是否等于123，如果等于123，就end。 当输入123但是以上的代码有一个死循环，如果一直没有输入正确，那就回一直弹出请输入密码，现在我们需要加一个限制，只可以输入3次，超过3次就不能再输入如果我们输入超过3次，还是不正确，就会直接退出显示exit do，再end sub如果把until变为while只有输入123的时候才会一直循环，不然就会推出1.18B DOloop语法小结Do while/until表达式执行的一条或多条语句Exit Do执行的一条或多条语句Loopa)

8、表示可以增加或者不增加，如果增加，格式一般如上。b) While表示当这个条件为TRUE时就循环c) Until表示直到这个条件为True时就跳出循环或者可以使用下面的这种语法：Do执行的一条或多条语句Exit Do执行一条或多条语句Loopwhile/until表达式注意事项：1) While与until是放在Do的后面还是Loop后面，取决于是先判断再循环，还是先循环再判断。2) 可以在DoLoop中的任何位置放人一个数的ExitDo语句，随时跳出DoLoop循环。3) DoLoop+IFThen+Exit Do通常结合使用；（一般使用这个就不会有while和until，如下例子1.）4)

9、 如果Exit Do使用在嵌套的DoLoop语句中，则Exit Do会将控制权转移到Exit Do所在位置的外层循环。例子二例一：当不大于5是，先执行a=a+1,然后执行If a > 5，不大于5就直接到了End If，然后Loop，再到a=a+1,知道6时大于5，就会执行if 6>5成立，继续Then Msgbox。，然后再执行Exit Do，然后End Sub例子二：因为当a=4的时候，就是大于3，这是会执行msgbox“即将跳出内层循环”，然后执行msgbox“即将进行外层循环”，然后就开始外层的Loop，然后再是b=b+1,然后又是a=a+1=5,又是。一个死循环。第二章2

10、.3工作簿基础操作Workbooks由当前所有在内存打开的workbook对象组成向workbooks添加workbook对象为什么要用set？因为我们要添加的是一个对象，所以要用set。2.5工作表的表示方法2.6工作表集合应用1.sheets所有对象的名称在这里，在我们的活动工作表sheet3中，显示所有sheet的名称2.worksheets下所有对象的名称在这里，worksheets只是显示所有表的名称，但是不包括图表以及宏表3.工作表存在与否的判断因为表格改变自己是有的，所以我们运行完了，就是显示存在。4.工作表存在与否的判断22.7工作表增加与删除1.工作表的新建'shee

11、ts.Add方法'表达式.Add(Before,After,Count,Tye)'XLSheetType常量之一：'xlsWorksheet 工作表'xlChart 图表'xlExcel4MacroSheet 宏表'xlExcelIntalMarcoSheet 对话框'默认值为xlWorksheet如果我们只是写了Sheet.Add那么默认增加的就是worksheet，而且增加的位置是在我们当前工作表的前面。在这里1. Sheets.Add这个表示默认增加一个worksheet在当前工作表的前面2. Sheets.Add Sheets(&

12、quot;改变自己")表示在sheet“改变自己”的前面增加一个sheet3. Sheets.Add , Sheets("改变自己")在sheet“改变自己”的后面增加一个sheet，这里相当于函数公式，给个空格，跳过第一步，然后是第二部的after口令4. Sheets.Add after:=Sheets("改变自己")与第3个是一样的道理，只是这里直接用了after命令5. Sheets.Add , , 2意思是，在当前工作表的后面增加两个sheet6. Sheets.Add Count:=2与第5个是一样的意思，在当前工作表的后面增加两个sheet7. Sheets.Add , , , xlChart在当前工作表的后面增加一个图表2.工作表的删除在这里sheet18只是shee