文档介绍：1-:macro形容词:巨大的;大量的;宏观的名词:[电脑]巨(宏)指令定义:一组可以让自动执行的代码(VBA)宏的录制相当于摄像机的功能。:优点:重复执行相同操作,提高工作效率缺点:不够智能化,无法交互工作,代码冗余解决方案:,但对于学习VBA编程却非常重要。-4代码编写规则代码换行(下划线+空格+换行)Subaa()Msgbox_“学习VBA”Endsub1-7属性VBA属性:指对象所具有的特性人的属性:姓名、年龄、身份证号、住址……VBA对象属性的赋值Sub属性赋值()=”改变自己”(“a1”)=”学习VBA”Endsub1-8方法方法:实际上就是对对象的操作,它是一种动作,一种行为。Sub选择方法()Range("a1:a10").SelectEndSubSub复制方法()Sheets(1).Range("a1:a10")=1Sheets(1).Range("a1:a10").CopySheets(2).Range("a1")EndSubSub删除方法()Sheets(3).DeleteEndSub1-:常量是定义了之后就不做变化了。常量定义格式:const常量名=:在定义之后还能再次赋值变量定义格式:,默认是变体变量(Variant):-10数据类型 类型 注释 简写 占用内存 Integer 整型 % 2byte Single 单精度 ! 4byte Double 双精度 # 8byte Long 长整型 & 4byte String 字符型 $ 定长或变长 Currency 货币型 @ 8byte1-12IF语句VBA中的IIF函数与工作表函数IF的语法结构一致Subiif函数应用()Cells(2,3)=iif(cells(1,2)>80,”优秀”,”不优秀”)Endsub1-(if…then)If条件判断then条件成立结果注意:在单行形式中,按照if…then判断的结果也可以执行多条语句。所有语句必须在同一行上并且以冒号分开。Subtest()If11>10thena=a+1:b=1+a:c=1+(if条件判断then条件成立else条件不成立)Subtest2()If2>1ThenMsgBox"yes"ElseMsgBox"no"(if…then…end)If条件判断then条件成立结果EndifSubtest3()If11>10Thena=1+ab=1+ac=1+……Else不成立时的结果Endif1-13Selectcase语句根据表达式的值,来决定执行几组语句中的其中之一。subselect单条件判断()i=-1SelectCaseiCaseIs>0MsgBox"正数"CaseElseMsgBox"负数"EndSelectEndSub1-14循环语句之DO…LOOPDo……loop循环语句,直到满足某个条件Sub基本示例()Dima%Doa=a+1Ifa>10ThenMsgBoxa&"终于大于10"ExitDoEndIfLoopEndSub1-15循环语句doloop实例Sub基本示例()Dimrs%rs=1Dors=rs+1Ifrs>10ThenExitDo'exitsubElseIfCells(rs,2)>=90ThenCells(rs,3)="√"EndIfLoopEndSubSub循环语句while()Dimrs%rs=2DoWhileCells(rs,2)<>""IfCells(rs,2)>90ThenCells(rs,3)="√"rs=rs+1LoopEndSub1-17循环语句dountilSubdountil()Dimrs%rs=2DoUntilCells(rs,2)=""IfCells(rs,2)>90ThenCells(rs,3)="√"rs=rs+1LoopEndSubSub隔行填色()Dimrs%rs=2DoUntilCells(rs,1)=""Range("a"&rs,"c"&rs).=7rs=rs+2LoopEndSub1-18循环语句之while与until