1 实例说明
在下图所示的工作表中，当在B列和C列输入数字后，要求在D列自动添加公式“=数量*单价”。虽然通过复制公式也可以完成，但使用VBA事件程序可以有更高的自动化，更为便捷。
2 程序代码
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim X
X = Target.Row
If Cells(X, 2) <> "" And Cells(X, 3) <> "" Then
Cells(X, 4).Formula = "=B" & X & "*C" & X
End If
End Sub
3 代码要点分析
Workbook_SheetChangeg事件
当工作表中的单元格“进行编辑”后会触发该事件
取得当前编辑的单元格行数
在Workbook_SheetChange事件程序中，系统提供的变量Target为当前编辑的单元格。所以当前修改的单元格行数可以用以下方法取得：
Target.Row
向单元格中输入公式
在单元格中输入公式的具体语法如下：
Cells(x,4).Formula = "公式表达式"
