Excel自动填充需要的公式

1 实例说明在下图所示的工作表中，当在B列和C列输入数字后，要求在D列自动添加公式“=数量*单价”。虽然通过复制公式也可以完成，但使用VBA事件程序可以有更高的自动化，更为便捷。

1497517347370159.jpg

2 程序代码Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)Dim XX = Target.RowIf Cells(X, 2)  "" And Cells(X, 3)  "" ThenCells(X, 4).Formula = "=B" & X & "*C" & XEnd IfEnd Sub
3 代码要点分析Workbook_SheetChangeg事件当工作表中的单元格“进行编辑”后会触发该事件
取得当前编辑的单元格行数在Workbook_SheetChange事件程序中，系统提供的变量Target为当前编辑的单元格。所以当前修改的单元格行数可以用以下方法取得：Target.Row
向单元格中输入公式在单元格中输入公式的具体语法如下：Cells(x,4).Formula = "公式表达式"