Excel VBA(第二版) 第一讲 VB 语法基础.docVIP

Excel VBA(第二版) 第一讲VB语法基础 leaf 2011-12-21 宏及录制 带出最重要的几个VBE结构组成：代码窗口、工程资源管理器、菜单栏、工具栏、立即窗口 可运行的代码由什么组成？ 子过程的定义 [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, Date, Boolean, Object, Variant 命名规则 ⑴ 名字只能由字母、数字和下划线组成； ⑵ 名字的第一个字母必须是英文字母，最后一个字符可以是类型说明符； ⑶ 名字的字符的最长长度是255个； ⑷ 不能使用VBA的保留字为变量名 ⑸ 名字中的字母不区分大小写。 ⑹ 同一范围内命名必须唯一，所谓的作用域就是变量的作用范围。 变量的赋值 [Let] | Set varname = expression 运算符与表达式 算术运算符 运算 运算符 表达式举例 说明 幂 ^ X ^ Y 取负 - -X 乘法 * X * Y 浮点除法 / X / Y? 整数除法 \ X \ Y 截去小数，不舍入 取模 Mod X Mod Y 加法 + X + Y 减法 - X - Y 连接运算符 运算 运算符 表达式举例 说明 连接 Hello World 返回Hello World 如果 expression 不是字符串，则将其转换成 String 变体。如果两个表达式都是字符串表达式，则 result 的数据类型是 String；否则 result 是 String 变体。如果两个表达式都是 Null，则 result 也是 Null。但是，只要有一个 expression 是 Null，那么在与其它表达式连接时，都将其作为长度为零的字符串 () 处理。任何 Empty 类型表达式也作为长度为零的字符串处理。 连接 + Hello World 返回Hello World 在使用 + 运算符时有可能无法确定是做加法还是做字符串连接。为避免混淆，请使用 运算