如何写VBA 程序.docx

HYPERLINK"http://blog.csdn.net/smking/article/details/4909446"如何写VBA程序
一、VBA简介
（VisualBasicforApplication）简单地理解可以是宏命令，即运行在Office中的宏语句。如运行在Powerpoint,Excel,Word中的宏语句，不过有段时间由于宏语句病毒的大肆传播，使得微软头痛不已，并影响到MacPPT12曾一度取消对宏语句的支持，不过现在由于用户的需求，不得已在新的Office14中又添加了对宏语句的支持。
二、常量定义
Constname[Astype]=value.常量定义时必须赋值,且以后不能改变这个值.
1.布尔型(VBA用2字节进行存储)
ConstIsBoyAsBoolean=True
2.整型(2字节)
ConstDaysOfYearasInteger=365
3.长整型(4字节)
ConstChinesePeopleNumber=21342321
4.单精度型
ConstEarthRadiusMilesAsSingle=3963.344432
ConstEarchRadiusMMAsSingle=6.789E9,即6.789*10的9次方
5.双精度型
ConstPiAsDouble=3.141592653589789
ConstPlanckasDouble=6.6255E-27,即6.6255*10的负27次方
6.货币型
ConstLoanLimitasCurrency=999999.99
7.日期型(1100年1月到31,9999年十二月)。
当你在一个const语句中说明日期型常量时，VBA要求用英磅符号"#"去把它的值包围起来。你可用数字MM/DD/YYYY(月/日/年)描述或详细拼写月份。例如,#6/10/1994#和#6/10/94#和#June10,1994#都是可以接受的有效描述日期。VBA将在你完成输入后把这个记录转换成第一种完全数字形式。日期型变量中如果没有设定其时间时，默认的时间为12:am.
ConstMillenniumAsDate=#1/1/2000#
ConstDueDateAsDate=#11/22/199317:30#
ConstBackToSchoolAsDate=#September3,19948:15AM#
所有的日期型都会转换成MM/DD/YYYYHH:MM:SSAM/PM
日期的存储很有意思,它们会被转换成一个从1899年12月30日12:00AM(新纪元的起点)算起的天数及这一天的分数来表示,在此之前的时间用负数表示,而转换后的数字0则代表新纪元本身
8.字符串型最多65535个字符
ConstWelcomeAsString="HelloWord!"
ConstLocationAsString="Beijing,China"
9.可变型,可变型要比常量占用更大的内存空间,估计是采取类似于C语言使用的相同的指针,所以尽量少用
ConstNotSureAsVariant="123.4"
ConstMaybeAsVariant=True
三、全局常量和局部常量
PublicConstEveryWhere=“World”‘可以在不同的模块间使用这一变量
PrivateConstJustThisModeUse=“Neighborhood”‘使用Private关键字与不使用等效.
命名规则，默认没有使用关健字为Private型。
1.必须以字母开头,大小写均可.(VBA不区分大小写)
2.不能在名称中使用空格,句号,百分号,叹号,@,!,%,.,&,$,#
四、变量定义
1．用法：Dimname[Astype]
e.g.
a.局部变量
DimPassDueasBoolean
DimLoanTermAsInteger
DimCostasCurrency.
DimNationCountasDouble.
DimBirthDayasDate.
DimNameasString‘(这是一个可变长度字符串型变量)
DimTenCharMaxasString*10‘(这是一个固定长度的字符串变量，固定长度为10个字符)
DimSomeButtonAsObject‘(定义一个对象)
DimMilesPerHourasInteger‘效果和PrivateMilesPerHourAsInteger完全相同，也即是说用Dim定义的变量其为模块级变量，即局部变量，
b.全局变量
如果要定义全局型变量，则用
PublicMilesPerHourAsString.
2．变量的默认值
Boolean,默认值为False
数值型的变量（整型，长整型，单精度型，双精度型和货币型）初值为0
可变字符串，