VBA超详细总结

1、VBA笔记道具：案例一： 代码：解析：拓展：VBA前景知识:VBA所实现的功能简洁的说就是通过编写程序，用几个简洁操作实现一系列的操作，以达到高效的目的，在做重复的操作时相当有效。在EXCEL中，要进入VBA编辑界面，首先要调出开发工具选项卡。按快捷键Alt+F+T到Excel选项，在自定义功能区勾选上开发工具并确定。在Excel中，宏功能是默认禁用的，因为很多病毒会通过宏传播。在使用之前需要启用该功能。按快捷键Alt+F+T到Excel选项，在信任中心信任中心设置宏设置启用全部宏确定。VBA中有对象、方法、属性。理解这些是学习VBA的基础。1、 对象：工作簿、工作表、单元格、行、列等2、属性

2、：相应对象的属性。如工作表名称、单元格的行高等属性一般理解为对象拥有的静态特性。3、方法：对相应对象所执行的动作称为对象的方法。如单元格移动、单元格删除内容等。从外形上来区分：前面带绿色图标的就是方法，带手形标志的就是属性。案例一：如何点击按钮实现简洁加法运算？代码：Sub 加法运算过程()Cells(1,5)= Cells(1,1)+ Cells(1,3)End sub解析：在开发工具选项卡中插入按钮控件，修改宏名为“加法运算过程”，新建，这样就进入VBA编辑界面。这里的宏简洁讲就是编程产生的一系列操作，而点击刚才插入的按钮就可以触发这些操作，这样一个点击操作就可以实现一系列的操作。Ctrl

3、+S保存，这里下拉菜单中文件保存类型选成“启用宏的工作簿”。由于默认文件类型是默认禁用的，很多病毒会通过宏传播，保存成xlsx则丢失代码右击按钮编辑文字修改为“加法”。这里的加法是按钮显示出来的名称，和宏名不一样。宏是编程产生的一系列操作过程，引用宏名就代表操作这一系列过程。而按钮可以指定不同的宏过程。在开发工具选项卡中宏加法运算过程编辑 进入宏过程编辑界面。输入下面代码。上面代码中，sub表示宏开头，end sub 表示宏结束，“加法运算过程”是宏名，后面的括号可有可无。宏macroCells是VBA中最基本的对象，Cells(行号,列号)表示引用单元格， Cells(1,1)是指A1单元格

4、的内容。拓展：案例二：如何点击按钮实现新建，保存，关闭，打开工作簿？代码： Workbooks.Add ActiveWorkbook.SaveAs "C:UsersAdministratorDesktop工作簿4.xlsx"ActiveWorkbook.CloseWorkbooks.Open "C:UsersAdministratorDesktop工作簿1.xlsx"Workbooks("工作簿1.xlsx").Close解析：拓展：Workbooks.open(“路径”)也可以打开文件案例三：定义函数:（参数可以有多个，用逗号隔开）

5、代码：Function 乘积(a,b)乘积a*bEnd function解析：用函数名调用这个功能，可以在VBA中调用，也可以像其它函数一样调用。括号内的参数可以有多个。拓展：系统函数：sqr(a)平方根如要在VBA中使用工作表中的函数，用Apication.worksheetfunction.公式名称（） 直接调用括号中引用范围时，需要要用range等调用，不能用“A1”引用过程分为子过程和函数案例四：函数汇总（）代码：（1）Sub 按钮5_Click() Dim i, j, total Dim w1 As Worksheet For j = 2 To Worksheets.Count Se

6、t w1 = Worksheets(j) i = 2 total = 0 Do While w1.Cells(i, 2) <> "" total = total + w1.Cells(i, 2) i = i + 1 Loop w1.Cells(2, 3) = total Next jEnd Sub（2）Sub 按钮6_Click() 'Call 按钮5_Click Dim i Dim w1 As Worksheet, w2 As Worksheet Set w2 = Worksheets(1) For i = 2 To Worksheets.Count

7、Set w1 = Worksheets(i) w2.Cells(i, 1) = w1.Cells(1, 2) w2.Cells(i, 2) = w1.Cells(2, 3) Next iEnd Sub（3）Sub 按钮7_Click() Dim i, j, total Dim w1 As Worksheet, w2 As Worksheet Set w2 = Worksheets(1) For i = 2 To Worksheets.Count Set w1 = Worksheets(i) 'i循环工作表 j = 2 'j循环成果 total = 0 Do While w1.C

8、ells(j, 2) <> "" total = total + w1.Cells(j, 2) j = j + 1 Loop w1.Cells(2, 3) = total w2.Cells(i, 1) = w1.Cells(1, 2) w2.Cells(i, 2) = w1.Cells(2, 3) Next i解析：'Call 按钮5_Click 为程序中的注释，只起解释作用，不会运算。去掉时，call+子过程，表示调用这个子过程。Call是过程调用的关键字，当遇到call时，先运行调用的过程，再往下运行。Sub,end sub即是一个子过程，宏是其小名

9、。过程调用的call可以省略，只写出过程名。拓展：案例五：地址拆分代码：Sub 地址拆分() Cells(2, 2) = Left(Cells(1, 2), InStr(Cells(1, 2), "县") - 1) Cells(3, 2) = Mid(Cells(1, 2), InStr(Cells(1, 2), "县") + 1, InStr(Cells(1, 2), "路") - InStr(Cells(1, 2), "县") - 1) Cells(4, 2) = Mid(Cells(1, 2), InStr(

10、Cells(1, 2), "路") + 1, InStr(Cells(1, 2), "号") - InStr(Cells(1, 2), "") - 1)End Sub解析：拓展：正则表达示处理字符串更容易案例一： 三重循环汇总代码：解析：拓展：专题一：常用类、对象、属性和方法颜色：vbredRGB(r,g,b)类Application代表EXCEL本身Workbook工作簿Worksheet表Range区域上下为从属关系Cells引用单元格 是range对象的属性相对于range cells可以实现循环属性Cells(行数,列数).v

11、alueCells(行数,列数).font.sizeCells(行数,列数).font.color=Cells(行数,列数).字体大小Cells(行数,列数).font.fontstyle字体加粗Cells(行数,列数).Interior.color背景颜色Cells(行数,列数).height单元格行高（只能在显示中用）Cells(行数,列数).rowheight行高（可以进行设置也可以进行msgbox显示）withrange.font.color=.size=.bold=end with方法Cells(行数,列数).selectactivecellRange引用多个单元格

12、区域如：Range("A1:A10,A18")，Range(cells(1,1), cells(10,1)属性Range.cellsRange.value 让选定区域的值都为某个数。此属性可以省略，为默认值range.font.size/color/italic/bold/= （bold为粗体 italic为斜休（用ture,false确定）range. Interior.color背景颜色range. Interior.colorindex=7背景颜色方法Range.deleteRange("A2:D10").SelectRange("A2:

13、D10").copy 目标位置range.clearrange.clearcontentsrange.clearformats清除格式range.merge/unmerge 合并/拆分单元格Workbooks是工作簿集对象用Workbook("办公费用")或 Workbooks(3)引用某个工作表属性Workbooks.count方法Workbooks.add “路径” Workbooks.open(“路径”)Workbooks.Open "Array.xls", ReadOnly:=TrueWorkbooks.close关闭所有打开的工作簿

14、关闭全部工作簿Workbooks(“XXX”).close 关闭特定工作簿Workbooks.saveas “路径.扩展名” 保存文件，此处不返回值，所以不用括号Workbooks(1).Activate 激活第一个工作簿workbook是工作簿文件对象属性Workbook. ActiveSheetWorkbook. AuthorWorkbook.savedWWorkbook.path方法Workbook.Activate Workbook.CloseWorkbook.SaveWorkbook.SaveAs另存为Thisworkbook当前工作簿属性Thisworkbo

15、Thisworkbook.path方法Thisworkbook.Activeworkbook活动工作簿属性Activeworkbook.author方法ActiveWorkbook.SaveAs "C:UsersAdministratorDesktop工作簿1.xlsx"Worksheets当前工作簿全部的工作表用Worksheet("XX")或 Worksheets(3)引用某个工作表属性Worksheets.countW 方法Worksheets.AddWorksheet属性Worksheet.NameWor

16、ksheet.Visible方法Worksheet.Calculate对指定的工作表重新计算Worksheet.CopyWorksheet.Move Worksheet.DeleteSheet1sheet2ApplicationApplication.cells 表示当前活动表的单元格Application.Quit退出应用Application.activeworkbook当前活动的簿Application.activesheet当前活动的表Apication.worksheetfunction.公式名称（） 直接调用括号中引用范围时，需要要用range等调用，不能用“A1”引用Applic

17、ation.displayalerts=false时，则就不会显示，强制掩盖。专题二：挨次、循环、分支 三种结构挨次循环for循环指定次数。与do while 相比，for有内置的计数器（1）For i=1 to 20 step 1循环体Next i（单个for时 i可不写）（2）For each a in b (b.count)循环体Next a 如for each w in workbooks第一个工作表 for each w in range第一个单元格=for i=1 to b.count循环体Next iWhile循环（无特定终点 ）While 条件循环体 WendDO循环DO （D

18、O开关）LOOP(DO结尾)无限循环，可以在中间用EXIT DO终止循环。或者使用EXIT SUB结束子过程。有多层循环时，跳出的是内层do 循环EXIT forExit functionExit sub可以用于退出第一次End 结束过程或块End for/function/sub/if/select单独用END结束当前过程或块Do While循环(当)Do While 条件循环体Loop其中do是循环，while是条件Do until(直到)Do until 条件循环体LoopWhile和until可以放在loop之后，表示先循环再推断。For each a in bDim b as ran

19、geFor each b in sheet1.range(“A3:A11”)Next将每个单元格指定给b,多用于对象的操作分支If分支If 条件 then计算Else (单个IF可不写)计算End if如果if then 所有内容在一行内，此if 可以不用end if 结束ELSEIF语句If 条件 then循环体Elseif 条件 then计算Elseif 条件 then计算 Else 结果End if从ABCD等级从大到小依次循环体，前面满足后面就不会执行。 SELECT推断语句条件推断，像if 一样Pad=”888”SELECT CASE PADCASE “888”MSGBOX “goo

20、d”Case else (类似if中的else)MSGBOX “bad”END SELECTFor和if 协作使用，在一堆中找出一个跳转语句标识:Go to 标识Return(返回到 go to)专题三：程序调试设置断点:在左边灰色区域点击或者F9。单独执行：F8。CTRL+F8 运行到光标处F5运行CTRL+BREAK 在光标处中断。调试添加监视：输入要监视的变量，显示变量的数值，而不用动鼠标位置。调试清除所有断点注释REM 注释语句，或语法错误标记为红色专题四：疑问解决录制宏：记录手工，翻译成代码帮助VBA教程 专题五：运算符算术运算符+-*/求幂整除Mod求余连接运算符&+针对字

21、符（&两边要加空格）规律运算符and or not(符号两边的表达式都要完整,不能省) 优先级not >and>or 返回true/false运算符两边的表达式要完整才行关系/比较运算符<>=<>>=<= 专题六：命名规章option explicit强制声明dim a,b,c定义变量const pi=3.14 定义常量dim w1 as worksheet/workbook/rangeset w2=worksheets.add给对象赋值要在前面加set新建保存文件：Set wb=workbooks.addWb.saveas “路径”wb

22、.close大小写相同尽量用英文不超过256反映变量意义不能是系统已用的名字。如sub,end,if ,for,while,分为常量和变量不能以数字开头专题七：快捷键工程资源管理器：CTRL+R属性窗口：F4专题八：数据类型数据类型中文占用空间缩写Byte字节1字节 0-255dim a as byte (a 只能是0-255的数字)例：Dim a as byte/dim a%超过范围将溢出类型占用符号范围Boolean布尔2字节true或falseInteger整数2字节%Long长整型4&Single单精4！Double双精8#string字符串定或变$Currency货币型8变体变量DateString字符串长度$Dim a as string 不定长Dim a as string*3 定长Object对象VariantEmpty 空专题