Excel VBA第二版 第一讲 VB 语法基础.docx | 您所在的位置:网站首页 › xandy英文怎么读音 › Excel VBA第二版 第一讲 VB 语法基础.docx |
Excel VBA第二版 第一讲 VB 语法基础.docx 《Excel VBA第二版 第一讲 VB 语法基础.docx》由会员分享,可在线阅读,更多相关《Excel VBA第二版 第一讲 VB 语法基础.docx(21页珍藏版)》请在冰点文库上搜索。 ExcelVBA第二版第一讲VB语法基础 ExcelVBA(第二版) 第一讲VB语法基础 leaf 2011-12-21 1.宏及录制 带出最重要的几个VBE结构组成: 代码窗口、工程资源管理器、菜单栏、工具栏、立即窗口 2.可运行的代码由什么组成? 子过程的定义 [Private|Public|Friend][Static]Subname[(arglist)] [statements] [ExitSub] [statements] EndSub SubMacro1() WithSelection.Font .Color=-16776961 .TintAndShade=0 EndWith EndSub 有返回值的函数 [Public|Private|Friend][Static]Functionname[(arglist)][Astype] [statements] [name=expression] [ExitFunction] [statements] [name=expression] EndFunction ‘返回指定单元格的字体颜色 FuncionGetFontColor(TargetAsRange)AsLong DimlCellColorAsLong IfIsNumeric(Target.Value)Then lCellColor=Target.Font.Color EndIf GetFontColor=lCellColor EndSub 几何运算函数 ‘计算圆的面积 FunctionCircleArea(RAsDouble)AsDouble ConstPIAsDouble=3.14159265358979 CircleArea=PI*R^2 EndFunction 子过程如何被调用运行的? ‘自动计算当前单元格为半径的圆的面积 SubAutoCalculateCircleArea() ActiveCell.Offset(0,1).Value=CircleArea(ActiveCell.Value) EndFunction 3.变量和常量、数据类型 变量声明方式 Public|Private|Friend|Dim|Static[WithEvents]varname[([subscripts])][As[New]type][,[WithEvents]varname[([subscripts])][As[New]type]]... DimlLoopRowAsLong 常量声明方式 [Public|Private]Constconstname[Astype]=expression 基本数据类型 字符串型、数值型数据、字节型、货币性、对象型、日期型、布尔型和变体数据类型 String,Byte,Integer,Long,Single,Double,Currency,Date,Boolean,Object,Variant 命名规则 ⑴名字只能由字母、数字和下划线组成; ⑵名字的第一个字母必须是英文字母,最后一个字符可以是类型说明符; ⑶名字的字符的最长长度是255个; ⑷不能使用VBA的保留字为变量名 ⑸名字中的字母不区分大小写。 ⑹同一范围内命名必须唯一,所谓的作用域就是变量的作用范围。 变量的赋值 [Let]|Setvarname=expression 4.运算符与表达式 算术运算符 运算 运算符 表达式举例 说明 幂 ^ X^Y 取负 - -X 乘法 * X*Y 浮点除法 / X/Y 整数除法 \ X\Y 截去小数,不舍入 取模 Mod XModY 加法 + X+Y 减法 - X-Y 连接运算符 运算 运算符 表达式举例 说明 连接 & "Hello"&"World" 返回"HelloWorld" 如果expression不是字符串,则将其转换成String变体。 如果两个表达式都是字符串表达式,则result的数据类型是String;否则result是String变体。 如果两个表达式都是Null,则result也是Null。 但是,只要有一个expression是Null,那么在与其它表达式连接时,都将其作为长度为零的字符串("")处理。 任何Empty类型表达式也作为长度为零的字符串处理。 连接 + "Hello"&"World" 返回"HelloWorld" 在使用+运算符时有可能无法确定是做加法还是做字符串连接。 为避免混淆,请使用&运算符进行连接,并且改进程序代码的可读性。 比较运算符 测试关系 运算符 表达式举例 等于 = X=Y 不等于 或> XY 小于 X 大于 > X>Y 小于等于 X 大于等于 >= X>=Y 比较样式 Like "BAT123khg"Like"B? T*"返回True 比较对象变量 Is 使用Is运算符来比较两个对象引用 逻辑运算符 逻辑 运算符 表达式举例 说明 非 Not NotX 原来为真,否定为假 与 And XAndY 其一为假,结果为假 或 Or XOrY 其一为真,结果为真 异或 Xor XXorY 不同为真,相同为假 等价 Eqv XEqvY 相同为真,不同为假 蕴含 Imp XImpY X为真,Y为假,结果为假 X Y NotX XAndY XOrY XXorY XEqvY XImpY -1 -1 0 -1 -1 0 -1 -1 -1 0 0 0 -1 -1 0 0 0 -1 -1 0 -1 -1 0 -1 0 0 -1 0 0 0 -1 -1 表达式执行顺序 ⑴首先执行函数运算。 ⑵其次算术运算,算术运算符优先顺序: 幂、取负、乘和浮点除、整除、取模、加和减、连接 ⑶再次关系运算。 ⑷最后进行逻辑运算,优先顺序为: Not、And、Or、Xor、Eqv、Imp。 注意: ①在运算中,括号内的运算的优先于括号外的运算。 ②字符串连接运算符不是算术运算符,它的优先级高于比较运算符,低于算术运算符。 ③Like和比较运算符的优先顺序相同。 进行模式匹配处理,应该注意? 和*两个通配符。 Is是对象比较运算符,它不考虑对象的值,只是针对两个对象是否参照了相同的对象。 ④当使用幂时,负号优先,例如: 4^-2,表示4的负2次方。 表达式书写的注意事项 ⑴乘号(*)不能省略,也不能用“·”代替。 ⑵一般情况下,不允许两个运算符相连,应当用括号隔开。 ⑶表达式中的括号只能是圆括号。 ⑷幂运算符表示自乘,如A^B表示A的B次方,即B个A连乘。 当A和(或)B不是单个常量或变量,要用括号括起来。 如(A+B)^(C+D) 5.VBA的控制结构 选择控制结构 1If选择结构 IfconditionThen[statements][Elseelsestatements] 或者,可以使用块形式的语法: IfconditionThen [statements] [ElseIfcondition-nThen [elseifstatements]... [Else [elsestatements]] EndIf (1)If…Then… 单向选择结构。 PublicSubIfDemo1() 'If…Then…示例 DimdPointsAsDouble dPoints=InputBox("请输入得分! ","选择结构示例") IfdPoints>=320ThenCallMsgBox("达到或超过分数线,录取了! ",vbExclamation,"If…Then…示例") EndSub (2)If…Then…Else… 双向选择结构。 简单示例 PublicSubIfDemo2() 'If…Then…Else…简单示例 DimdPointsAsDouble dPoints=InputBox("请输入得分! ","If…Then…") IfdPoints>=320Then CallMsgBox("达到或超过录取分数线,录取了! ",vbExclamation,"If…Then…示例") Else CallMsgBox("没有超过录取分数线,没被录取! ",vbExclamation,"If…Then…示例") EndIf EndSub 嵌套示例 PublicSubIfDemo3() 'If…Then…Else…嵌套示例 DimdPointsAsDouble dPoints=InputBox("请输入得分! ","选择结构示例") IfdPoints>=550Then CallMsgBox("达到或超过本科分数线,本科录取了! ",vbExclamation,"If…Then…Else…嵌套示例") Else IfdPoints>=320Then CallMsgBox("达到或超过专科分数线并且没到本科分数线,专科录取了! ",vbExclamation,"If…Then…Else…嵌套示例") Else CallMsgBox("没有超过录取分数线,没被录取! ",vbExclamation,"If…Then…Else…嵌套示例") EndIf EndIf EndSub 组合示例 PublicSubIfDemo4() 'If…Then…Else…组合示例 DimdPointsAsDouble dPoints=InputBox("请输入得分! ","选择结构示例") IfdPoints>=550Then CallMsgBox("达到或超过本科分数线,本科录取了! ",vbExclamation,"If…Then…Else…组合示例") EndIf IfdPoints>=320AnddPoints CallMsgBox("达到或超过专科分数线并且没到本科分数线,专科录取了! ",vbExclamation,"If…Then…Else…组合示例") EndIf IfdPoints CallMsgBox("没有超过录取分数线,没被录取! ",vbExclamation,"If…Then…Else…组合示例") EndIf EndSub (3)If…ElseIf…Else 属于嵌套多重判断结构。 PublicSubIf…ElseIf…Else() 'If…ElseIf…Else示例 DimdPointsAsDouble dPoints=InputBox("请输入得分! ","选择结构示例") IfdPoints>=550Then CallMsgBox("达到或超过本科分数线,本科录取了! ",vbExclamation,"If…ElseIf…Else示例") ElseIfdPoints>=320Then CallMsgBox("达到或超过专科分数线并且没到本科分数线,专科录取了! ",vbExclamation,"If…ElseIf…Else示例") Else CallMsgBox("没有超过录取分数线,没被录取! ",vbExclamation,"If…ElseIf…Else示例") EndIf EndSub 2IIf函数 属于双向的选择结构. PublicSubIIfDemo() 'IIf函数示例 DimdPointsAsDouble DimsResultAsString dPoints=InputBox("请输入得分! ","选择结构示例") sResult=IIf(dPoints>=320,"达到或超过录取分数线,录取了! ","没有超过录取分数线,没被录取! ") CallMsgBox(sResult,vbExclamation,"IIf函数示例") EndSub 分支控制结构 1Select…Case语句 SelectCase语句功能根据表达式的值,来决定执行几组语句中的其中之一。 PublicSubSelect…Case() 'Select…Case示例 DimdPointsAsDouble dPoints=InputBox("请输入得分! ","分支结构示例") SelectCasedPoints Case0To319.99 CallMsgBox("没有超过录取分数线,没被录取! ",vbExclamation,"Select…Case示例") Case320To549.99 CallMsgBox("达到或超过专科分数线并且没到本科分数线,专科录取了! ",vbExclamation,"Select…Case示例") Case550To700 CallMsgBox("达到或超过本科分数线,本科录取了! ",vbExclamation,"Select…Case示例") CaseElse CallMsgBox("非法输入,不能判断! ",vbExclamation,"Select…Case示例") EndSelect EndSub 2Switch函数 Switch(expr-1,value-1[,expr-2,value-2_[,expr-n,value-n]]) 计算一组表达式列表的值,然后返回与表达式列表中最先为True的表达式所相关的Variant数值或表达式 3Choose函数 Choose(index,choice-1[,choice-2,...[,choice-n]]) 根据索引值(Index)来输出索引值数组中的对象 循环控制结构 1For循环 (1)For…Next Forcounter=startToend[Stepstep] [statements] [ExitFor] [statements] Next[counter] Fori=1To10 ForJ=1To10 ForK=1To10 ... NextK NextJ Nexti (2)ForEach…Next ForEachelementIngroup [statements] [ExitFor] [statements] Next[element] 2While循环 Whilecondition [statements] Wend 3Do…Loop循环 Do[{While|Until}condition] [statements] [ExitDo] [statements] Loop 或 Do [statements] [ExitDo] [statements] Loop[{While|Until}condition] 6.常用函数 测试函数 函数 说明 IsNumeric(expression) 返回Boolean值,指出表达式的运算结果是否为数。 IsDate(expression) 返回Boolean值,指出一个表达式是否可以转换成日期。 IsEmpty(expression) 返回Boolean值,指出变量是否已经初始化。 IsArray(varname) 返回Boolean值,指出变量是否为一个数组。 IsError(expression) 返回Boolean值,指出表达式是否为一个错误值 IsNull(expression) 返回Boolean值,指出表达式是否不包含任何有效数据(Null)。 IsObject(identifier) 返回Boolean值,指出标识符是否表示对象变量。 IsMissing(argname) 返回Boolean值,指出一个可选的Variant参数是否已经传递给过程。 数学函数 函数 说明 Sin(number) 返回一Double,指定参数的sine(正弦)值。 Cos(number) 返回一个Double,指定一个角的余弦值。 Tan(number) 返回一个Double的值,指定一个角的正切值。 Atn(number) 返回一个Double,指定一个数的反正切值。 Log(number) 返回一个Double,指定参数的自然对数值。 Exp(number) 返回Double,指定e(自然对数的底)的某次方。 Abs(numberx) 返回参数的绝对值,其类型和参数相同。 Int(number)、Fix(number) 都返回参数的整数部分,区别: Int将-8.4转换成-9,而Fix将-8.4转换成-8 Sgn(number) 返回一个Variant(Integer),指出参数的正负号。 number大于0返回1 number等于0返回0 number小于0返回-1 Sqr(number) 返回一个Double,指定参数的平方根 Rnd[(number)] 返回0-1之间的单精度数据,x为随机种子 注意: ⑴Sin、Cos、Tan和Atn中的参数number表示一个以弧度为单位的角。 一般参数是以角度给定,我们可以使用公式转换成弧度: 1度=π/180=3.1415926/180 ⑵Rnd函数可以产生随机数,当应用程序反复使用随机数时,同一序列的随机数会反复出现,用Randomize(x)语句可以消除这种情况。 x是整型数(即种子),可以省略。 字符串函数 函数 说明 Trim(string)、Ltrim(string)、Rtrim(string) 返回Variant(String),其中包含指定字符串的拷贝,没有前导空白(LTrim)、尾随空白(RTrim)或前导和尾随空白(Trim)。 Len(string|varname) 返回Long,其中包含字符串内字符的数目,或是存储一变量所需的字节数。 Left(string,length) 返回Variant(String),其中包含字符串中从左边算起指定数量的字符。 Right(string,length) 返回Variant(String),其中包含从字符串右边取出的指定数量的字符。 Mid(string,start[,length]) 返回Variant(String),其中包含字符串中指定数量的字符。 Ucase(string) 返回Variant(String),其中包含转成大写的字符串。 Lcase(string) 返回转成小写的String。 Space(number) 返回特定数目空格的Variant(String)。 Asc(string) 返回一个Integer,代表字符串中首字母的字符代码。 Chr(charcode)返回 返回String,其中包含有与指定的字符代码相关的字符。 StrComp(string1,string2[,compare]) 返回Variant(Integer),为字符串比较的结果。 StrConv(string,conversion,LCID) 返回按指定类型转换的Variant(String)。 Format(expression[,format[,firstdayofweek[,firstweekofyear]]]) 返回Variant(String),其中含有一个表达式,它是根据格式表达式中的指令来格式化的。 转换函数 函数 说明 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) 返回代表一数值的Variant(String)。 日期与时间 函数 说明 Now 返回一个Variant(Date),根据计算机系统设置的日期和时间来指定日期和时间。 Date 返回包含系统日期的Variant(Date)。 Time 返回一个指明当前系统时间的Variant(Date)。 Timer 返回一个Single,代表从午夜开始到现在经过的秒数。 TimeSerial(hour,minute,second) 返回一个Variant(Date),包含具有具体时、分、秒的时间。 TimeValue(time) 返回一个包含时间的Variant(Date)。 DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]]) 返回Variant(Long)的值,表示两个指定日期间的时间间隔数目。 Second(time) 返回一个Variant(Integer),其值为0到59之间的整数,表示一分钟之中的某个秒。 Minute(time) 返回一个Variant(Integer),其值为0到59之间的整数,表示一小时中的某分钟。 Hour(time) |
CopyRight 2018-2019 实验室设备网 版权所有 |