1、B列和C列是有关产品的数量和单价——用VBA输入公式计算金额总值。
2、开发工具——插入——Active控件——命令控件，在空白处插入命令控件。
3、选择控件——开发工具——属性——Caption设置为：计算。
4、选择控件——开发工具中选择查看代码——在Private Sub CommandButton1_Click()和End Sub中间输入以下代码。Dim x As IntegerActiveS茑霁酌绡heet.[d2:d100].ClearFor x = 2 To 11 Cells(x, 4) = "=b" & x & "* c" & xNext x
5、也可以使用RANGE来修改单元格的范围代码：ActiveSheet.[d2:d100].ClearFor x = 2 To 11 Ra荏鱿胫协nge("d" & x) = "=b" & x & "* c" & xNext x
