




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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 空专题
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 物理-陕西省榆林市2025届高三第三次模拟检测(榆林三模)试题和答案
- 八年级下学期语文教学工作计划8篇
- 车间管理流程培训
- 安徽汽车职业技术学院《城乡规划设计》2023-2024学年第一学期期末试卷
- 铁岭卫生职业学院《服装市场营销》2023-2024学年第二学期期末试卷
- 巴中市巴州区2024-2025学年三下数学期末学业水平测试试题含解析
- 九州职业技术学院《大数据处理与云计算》2023-2024学年第二学期期末试卷
- 商丘新能源上牌委托书
- 过度包装标准培训
- 安徽国防科技职业学院《生物医学概论》2023-2024学年第一学期期末试卷
- 输电线路工程导线压接技术培训
- 网络舆情监测与研判全书电子教案正本书课件全套ppt最全教学教程电子讲义
- 培训(第二课)-手表店顾客接待流程及技巧、各类报表制
- 山东省各地电厂联系方式
- 第16课 动物面具
- 纳兰容若纳兰性德及其词赏析
- 耐压测试仪点检记录表
- 幼儿园绘本故事:《花婆婆》
- msp430g2553测频率以及测峰值
- 大体积混凝土测温检测报告(共14页)
- 绿色建筑设计与案例分析(特制荟萃)
评论
0/150
提交评论