excel-2010vba教程

《excel-2010vba教程》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、第一章ExcelVBA基础知识1.1对象对象：现实生活所谓的对象，是真实存在物体。在excel中就指的是：工作簿，工作表集合:也是一种特珠的对象，不过没有指特定哪个对象，只是一种统称。如“人”就是在excel中的集合如：workbooks,worksheets,cells等等常用代码操作excel中的对象1.1.1工作簿（Workbooks）'Workbooks（N）第N个工作簿'Workbooks("工作簿名")'ActiveWorkbook活动工作簿'ThisWorkBook'代码所在工作簿1.

2、1.2工作表（Worksheets）'Sheets(N)第N个工作表'Sheets("工作表名")'SheetN第N个工作表'ActiveSheet活动工作表'worksheets与Sheets的区别1.1.3单元格（cells）'Range("单元格地址")'Cells(行号,列号)'[A1]单元格简写'Activecell活动单元格'Selection当前被选取的区域1.2属性1.2.1VBA属性VBA属性:指对象所具有的特性人的属性：姓名，年龄，身份证号，住址….1.2.2实例Sub属性()D

3、ebug.PrintSheet1.NameDebug.PrintSheet1.Range("a1").ValueEndSub1.2.3VBA对象属性的赋值Sub属性赋值()Sheet2.Name="改变自己"Sheet2.Range("a1")="学习VBA"EndSub1.3方法方法：实际上就是对对象的操作，它是一种动作，一种行为。1.3.1选择方法Sub选择方法()Range("a1:a10").Select'注：如果单元格区域前没有写工作表名，则默认为活动工作表EndSub1.3.2复制方法S

4、ub复制方法()Sheet1.Range("a1:a10")=1'将1写入表一的a1:a10区域Sheet1.Range("a1:a10").CopySheet2.Range("a1")'将表一的a1:a10区域的值复制到表2的a1EndSub1.3.3删除方法Sub删除方法()Sheets(3).DeleteEndSub1.4常量与变量1.4.1常量常量：常量是定义了之后就不做变化了。常量定义格式：Const常量名=常量表达式Sub常量()Constpi=3.145926EndSub1.4.2变量

5、变量:在定义之后还能再次赋值变量定义格式：Dim变量As变量类型Sub变量()DimaAsIntegera=111a=100EndSub1.4.3常量变量应用Sub应用()Constpi=3.1415926DimaAsIntegera=200Debug.Printpi*aEndSub1.4.4注意事项'A.VBA允许使用未定义的变量，默认是变体变量(Variant)'B.变量的强制声明：OptionExplicit1.4.5变量名的命名规则'以字母开头'不能用保留字'不超过255个字符。'同一范围内

6、必须是唯一1.5数据类型1.5.1VBA中的常见数据类型：'类型注释简写占用内存'Integer整型%2Byte'Single单精度!4Byte'Double双精度#8Byte'Long长整型&4Byte'String字符型$定长或变长(变长字符串最多可包含大约20亿(2^31)个字符。定长字符串可包含1到大约64K(2^16)个字符。)'Currency货币型@8Byte1.5.2实例Sub数据类型()DimaAsIntegerDimb%EndSubSub多数据类型声明()DimaAsIntege

7、r,bAsSingle,cAsStringDimd%,e!,f$EndSub1.6判断语句IF1.6.1单行形式1（IF…Then）IF判断条件Then条件成立结果注意：在单行形式1中，按照IF…Then判断的结果也可以执行多条语句，所有语句必须在同一行上并且以冒号分开。例子：Subtest（）IF11>10Thena=a+1：b=1+a：c=1+bEndSub1.6.2单行形式2（IF…Then…Else）IF条件判断Then条件成立Else条件不成立例子：Subtest（）IF11>10Then

8、MsgBox“Yes”ElseMsgBox“No”EndSub1.6.3块形式（IF…Then…EndIF）IF条件判断Then条件成立结果EndIF例子：Subtest（）IF11>10Thena=a+1b=1+ac=1+bEndIFEndSub1.6.4块形式的IF嵌套IF条件判断Then成立结果ElseIF判断条件Then成立的结果…Else不成立的结果EndIF例子：SubIF条件判断之多条件等级划分()IfSheet1.Range("b1")>=90Then