建一个CommandButton1,代码如下。
================
Private Sub CommandButton1_Click()
ActiveSheet.Range("A4").Value = ActiveSheet.Range("A1").Value * ActiveSheet.Range("A2").Value * ActiveSheet.Range("A3").Value
End Sub
这样就不会出现公式了,只在你按按钮的时候计算。
'''''''''A4 = A1*A2*A3
Private Sub CommandButton1_Click()
'''输入公式
Sheet1.Cells(4, 1).FormulaR1C1 = "=R[-3]C*R[-2]C*R[-1]C"
'''直接计算
Sheet1.Cells(4, 1)=Sheet1.Cells(1, 1)*Sheet1.Cells(2, 1)*Sheet1.Cells(3, 1)
End Sub