菜鸟也懂VBA-excle2007VBA入门教程(5)

Static i As Integer MsgBox i i = i + 1 End Sub Sub Test2() MsgBox i End Sub 代码解释：先运行Test1过程，显示i为0，再运行Test1过程为1，再运行Test1过程为2，再运行Test1过程为3，我们发现每运行一次结果会加1，因为我们有一个累加变量 i=i+1,其值还是保留，但当我们再行Test2时，可是那个i还是0，说明静态变量只作用于Test1，而不作用于Test2

六、常量

1) 常用申明用关键字Const，其值在过程运行中不会发现变化 2) 常量作用域 A. 和变量一样 B. 实例 计算圆面积

Sub test1() '过程开始

Dim S As Single '定义变量S为单精变浮点型，目的让其有保留二位小数，如果你定义Integer就没有小数点位数了

Const Pai = 3.14 '定义常量Pai r = 2 '给r赋值为2

S = Pai * r ^ 2 '计算圆的面积公式

MsgBox \算出的圆的面积为：\显示圆面积结果 End Sub C. 代码截图如图 13

图 13

第 11 页 共 52 页

Excel 2007 VBA 教程

第四讲 单元格对象

单元格和单元格区域是用户操作最多的一个对象，它可以表示一行，一列，一个区域，整个工作表，关键大家要理解它的引用方式 一、单元格的引用方式

1) Range表示 A. 如表示A1单元格 Range (\B. 实例

Sub Range表示()

Range(\佛山小老鼠\End Sub 2) Cells表示 A. 如表示D3单元格 Cells(3,4) B. 实例

Sub Cells表示()

Cells(3, 4) = \佛山小老鼠\End Sub

3) Activecell表示 A. 实例

Sub ActiveCell表示()

ActiveCell = \佛山小老鼠\End Sub

二、单元格区域的引用方式

A. 实例“表示单元格区域A1到D9的区域，有下面几种表法方法 Sub test1()

Range(\End Sub Sub test2()

Range(\End Sub Sub test3()

Range(Cells(1, 1), Cells(9, 4)) = 5 End Sub Sub test4()

Range([A1], [D9]) = 6 End Sub B. 其它方式引用单元格区域

1. Selection 2. UsedRange 3. CurrentRegion 4. Union 5. Intersect 6. Resize

它们的代码用法如下

第 12 页 共 52 页