VBA在Excel中的应用（一）

VBA在Excel中的应用（一）2010-01-29 博客园 Jaxu目录

ActiveCell

ActiveWorkbook

AdvancedFilter

AutoFill

ActiveCell

1.检查活动单元格是否存在

Sub activeCell（）
If ActiveCell Is Nothing Then End If
End Sub

2.通过指定偏移量设置活动单元格

Sub offset（）
ActiveCell.Offset（RowOffset:=-2, ColumnOffset:=4）.Activate
End Sub

Offset函数的第一个参数为Row的偏移量，第二个参数为Column的偏移量（可以不指定），使用时可以直接给定值，如Offset（2, 4）。值小于0向相反方向偏移。Offset（）.Activate与Offset（）.Select在效果上等同。

3.设置活动单元格的当前值

Sub SetValue
ActiveCell.Value = "Hello World！"
End Sub

4.为当前活动单元格设置公式

Sub fomula（）
ActiveCell.Formula = "=SUM（$G$12:$G$22）"
End Sub

将公式的表达式直接赋值给Formula属性，公式表达式可以参考Excel中的公式菜单，如求和、计数、求平均值等。

5.获取当前活动单元格的地址

Sub selectRange（）
MsgBox ActiveCell.Address
End Sub

地址的格式如：$A$11。