VBA通用语句注释：Rem，或’。常量ConstPi=3.14变量：DimIasInteger|String|Boolean|Long|Single|Double|Date数组：Dima(1to10，1to10)asintegerInput函数：a=val(inputbox(“请输入a=”))msgbox函数：msgboxInteger|StringMsgBox“Thisisthefirstline.”&vbNewLine&“Secondline.”‘换行Ans=MsgBox(“Continue?”,vbYesNo)'在消息框中点击“是”按钮，则Ans值为vbYes；点击“否”按钮，则Ans值为vbNo。逻辑运算符:Not,And,Or句式If条件表达式thenAction1ElseAction2EndifSelectCaseaAction1CasebAction2CaseElseAction3EndSelectFor变量=初值To终值〔Step步长〕循环体Next变量Dowhile条件循环体Loop常用函数字符串+（连接运算）：两个操作数均应为字符串类型；&（连接运算）：两个操作数既可为字符型也可为数值型，当是数值型时，系统自动先将其转换为字符，然后进行连接操作。如：1&2=12ImportsSystem.String去空格：Trim（String）|LTrim(String)|RTrim(String)全大写：Ucase(string)|Lcase(string)将字符串转换成小写：ActiveCell.Value=StrConv(ActiveCell.Value,vbLowerCase)'取字串：Left(string,x)|Right(string,x)|Mid(string,start,x)Asc转换：Integr=Asc(string)String=Chr(charcode)】A=65a=97MyStr=Format(334。9,"###0。00")'返回"334.90"StrComp（String1,String2）函数返回–1、0或1。0是一致数学求平方：power(2,3)求根：sqr(2,2)绝对值：Abs(number)VBA转换函数列表：CBool(expression)转换为Boolean型CByte(expression)转换为Byte型CCur(expression)转换为Currency型CDate(expression)转换为Date型CDbl(expression)转换为Double型CDec(expression)转换为Decemal型CInt(expression)转换为Integer型CLng(expression)转换为Long型CSng(expression)转换为Single型CStr(expression)转换为String型CVar(expression)转换为Variant型Val(string)转换为数据型Str(number)转换为String时间函数：Now返回一个Variant(Date)，根据计算机系统设置的日期和时间来指定日期和时间。Date返回包含系统日期的Variant(Date)。Time返回一个指明当前系统时间的Variant(Date)。Timer返回一个Single，代表从午夜开始到现在经过的秒数。TimeSerial(hour,minute,second)返回一个Variant(Date)，包含具有具体时、分、秒的时间。DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])返回Variant(Long)的值，表示两个指定日期间的时间间隔数目Second(time)返回一个Variant(Integer)，其值为0到59之间的整数，表示一分钟之中的某个秒Minute(time)返回一个Variant(Integer)，其值为0到59之间的整数，表示一小时中的某分钟Hour(time)返回一个Variant(Integer)，其值为0到23之间的整数，表示一天之中的某一钟点Day(date)返回一个Variant(Integer)，其值为1到31之间的整数，表示一个月中的某一日Month(date)返回一个Variant(I