Excel VA 第二讲 VB 语法基础.doc

Excel VBA 第二讲VB语法基础感谢 感谢獨箛勼劍提出培训想法，小新组织此次网络培训。 感谢锅在各群内发消息公告。 特别感谢辉姑娘提供超级群作为授课解答群。 关于群内授课 为方便各Excel爱好者更好地将Excel应用于实际工作，群授课主办方将不定期为大家提供相关课题的培训。 此组织是几个Excel忠实爱好者为提升广大爱好者Excel使用技能水平而自发建立，并希望以此会友共同享受其乐趣。 对于授课形式、授课地点、讨论形式等一切与授课相关点均欢迎大家提出好的建议，也欢迎您的加入！ 请参与投票：您最希望听的5个课题？（截止21号） /896063470/vote/1044883474 投票结果会决定安排讲解哪些课程及讲课的优先顺序 关于本次课题 本次课题VB语法基础会让您了解VBA的基本语法规则，让您明白原来VBA是这样运行程序的。。。 适合听众 对VBA感到很神奇，想知道到底VBA能做什么 想系统学习VBA的朋友 目标 了解VB基本语法规则 可以编写简单的代码 一切从宏开始 录制的宏是由Sub定义的子过程 [Private | Public | Friend] [Static] Sub name [(arglist)] [statements][Exit Sub][statements] End Sub Sub Macro1() With Selection.Font .Color = .TintAndShade = 0 End WithEnd Sub 将子过程修改为有返回值的函数 [Public | Private | Friend] [Static] Function name [(arglist)] [As type][statements][name = expression][Exit Function] [statements][name = expression] End Function ‘ 返回指定单元格的字体颜色Funcion GetFontColor(Target As Range) As LongDim lCellColor As Long If IsNumeric(Target.Value) Then lCellColor = Target.Font.Color End If GetFontColor = lCellColorEnd Sub 几何运算函数 ‘ 计算圆的面积Function CircleArea(R As Double) As DoubleConst PI As Double = 3.14159265358979 CircleArea = PI * R ^ 2End Function ‘ 自动计算当前单元格为半径的圆的面积Sub AutoCalculateCircleArea() ActiveCell.Offset(0,1).Value = CircleArea(ActiveCell.Value)End Function WithEvents] varname[([subscripts])] [As [New] type] [,[WithEvents] varname[([subscripts])] [As [New] type]] . . . Dim lLoopRow As Long 常量声明方式 [Public | Private] Const constname [As type] = expression 基本数据类型 字符串型、数值型数据、字节型、货币性、对象型、日期型、布尔型和变体数据类型 String, Byte, Integer, Long, Single, Double, Currency, Object, Date, Boolean, Variant 命名规则 ⑴ 名字只能由字母、数字和下划线组成； ⑵ 名字的第一个字母必须是英文字母，最后一个字符可以是类型说明符； ⑶ 名字的字符的最长长度是255个； ⑷ 不能使用VBA的保留字为变量名 ⑸ 名字中的字母不区分大小写。 ⑹ 同一范围内命名必须唯一，所谓的作用域就是变量的作用范围。 变量的赋值 [Let] | Set varname = expression 运算符与表达式 算术运算符 运算 运算符 表达式举例 说明 幂 ^ X ^ Y 取负 - -X 乘法 * X * Y 浮点除法 / X / Y? 整数除法 \ X \ Y 截去小数，不舍入 取模 Mod X Mod Y 加法 + X + Y 减法 -