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