EXCELVBA学习笔记

《EXCELVBA学习笔记》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第一章VBA基础知识1-2宏在工作中的运用1.宏的定义宏：macro形容词：巨大的；大量的；宏观的名词：[电脑]巨（宏）指令定义：一组可以让自动执行的代码（VBA）宏的录制相当于摄像机的功能。2.总结：优点：重复执行相同操作，提高工作效率缺点：不够智能化，无法交互工作，代码冗余解决方案：VBA3.宏在excel中的地位虽然看起来不够灵活，但对于学习VBA编程却非常重要。1.提高代码编写效率2.帮助学习VBA知识1-4代码编写规则代码换行（下划线＋空格＋换行）Subaa()Msgbox_“学习VBA”Endsub1-7属性VBA属性：指对象所具有的特性人的属

2、性：姓名、年龄、身份证号、住址……VBA对象属性的赋值Sub属性赋值()Sheet2.name=”改变自己”Sheet2.range(“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-

3、9常量与变量1.常量：常量是定义了之后就不做变化了。常量定义格式：const常量名＝常量表达式2.变量：在定义之后还能再次赋值变量定义格式：dim变量as变量类型3.A.VBA允许使用未定义的变量，默认是变体变量（Variant）B.变量的强制声明：Optionexplicit4.变量名的命名规则以字母开头不能用保留字不超过255个字符同一范围内必须是唯一1-10数据类型类型注释简写占用内存Integer整型％2byteSingle单精度！4byteDouble双精度#8byteLong长整型&4byteString字符型$定长或变长Currency货币型

4、@8byte1-12IF语句VBA中的IIF函数与工作表函数IF的语法结构一致Subiif函数应用()Cells(2,3)=iif(cells(1,2)>80,”优秀”,”不优秀”)Endsub1-12B1.单行形式1（if…then）If条件判断then条件成立结果注意：在单行形式中，按照if…then判断的结果也可以执行多条语句。所有语句必须在同一行上并且以冒号分开。Subtest()If11>10thena=a+1:b=1+a:c=1+bEndsub2.单行形式（if条件判断then条件成立else条件不成立）Subtest2()If2>1ThenM

5、sgBox"yes"ElseMsgBox"no"EndSub3.块形式（if…then…end）If条件判断then条件成立结果EndifSubtest3()If11>10Thena=1+ab=1+ac=1+bEndIfEndSub4.块形式的if嵌套If条件判断then成立时的结果Elseif条件判断then成立时的结果……Else不成立时的结果Endif1-13Selectcase语句根据表达式的值，来决定执行几组语句中的其中之一。subselect单条件判断()i=-1SelectCaseiCaseIs>0MsgBox"正数"CaseElseMsgB

6、ox"负数"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=2DoWhile

7、Cells(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).Interior.ColorIndex=7rs=rs+2LoopEndSub1-18循

8、环语句之while与until位置变化While与until不但可