Excel formula 需要宏在单元格中写入公式而不是答案(ouput)

Excel formula 需要宏在单元格中写入公式而不是答案(ouput),excel-formula,output,formula,cell,write,Excel Formula,Output,Formula,Cell,Write,我搞不懂这个-我要么得到一个名字?尝试所有操作时出现错误或应用程序定义的错误 Dim sAmt As Integer Dim sOriginalAmount As Integer sOriginalAmount = ActiveCell.Value sAmt = Application.InputBox("How much additional cost?", Type:=2) ActiveCell.Formula = sOriginalAmount + sAmt 我希望E

我搞不懂这个-我要么得到一个名字?尝试所有操作时出现错误或应用程序定义的错误

Dim sAmt As Integer
Dim sOriginalAmount As Integer
sOriginalAmount = ActiveCell.Value
sAmt = Application.InputBox("How much additional cost?", Type:=2)
ActiveCell.Formula = sOriginalAmount + sAmt
我希望Excel在单元格中写入公式,而不是在输出中写入公式

例如,当前,如果我将sOriginalAmount设置为15,并将sAmt输入为20,则在运行代码时,它会在单元格中给出答案35,但我希望它写入=sum(ValueOfOriginalAmount+valueofsAmt),以便稍后我可以看到原始金额是多少以及添加了多少

有人能帮忙吗?我试过各种组合的&“但是我就是搞不懂。很抱歉提出这样的问题,但我是自学成才的,我只为我的工作编写代码。

这应该行得通

ActiveCell.Formula=“=”&soriginalmount&“+”&sAmt
或者如果你真的想用SUM

ActiveCell.Formula=“=SUM(&soriginalmount&“,&sAmt&”)

工作起来很有魅力!非常感谢你。