Excel自动填充公式-Excel自动填充需要的公式

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 = "公式表达式"